Rzeczywiście, wydaje się, że nie działa, jak wskazałem powyżej, ale pamiętam, że mogłem łatwo pobrać niestandardowe właściwości pliku Excel (a nawet Worda)...
Mam ten sam problem. Po kilku poszukiwaniach znalazłem sposób, aby zrobić to za pomocą makr.
- musisz zmienić swój plik na .xlsm (aby zarządzać makrami)
- Utwórz nowy arkusz w pliku Excel (na 1 pozycji)
- Utwórz nowe makro o nazwie "Auto_Open" z tym kodem:
Podpunkt Auto_Open() infoWorkbookCustomDocumentProperties ActiveWorkbook Koniec subwoofera
Informacje podrzędneWorkbookCustomDocumentProperties(Wb As Workbook) Dim wartość jako DocumentProperty Dim i As Byte
W przypadku błędu Wznów następny
'Pętla w kolekcji predefiniowanych właściwości Dla każdej wartości w Wb.CustomDocumentProperties i = i + 1 "Wstawia nazwy właściwości w kolumnie A TenSkoroszyt.Arkusze robocze(1). Komórki(i, 1) = Valeur.Name "Wstawia zawartość właściwości w kolumnie B TenSkoroszyt.Arkusze robocze(1). Cells(i, 2) = Value.Value Następny
TenSkoroszyt.Arkusze robocze(1). Kolumny("A:B"). Automatyczne dopasowanie Koniec subwoofera
- Uruchamianie makra
- połącz komórki, które mają zostać wypełnione, z właściwościami pobranymi z pierwszego arkusza