W programie Excel musisz ustawić odwołanie do biblioteki wykonawczej skryptów VB. Odpowiedni plik zwykle znajduje się pod adresem\Windows\System32\scrrun.dll
- Aby odwołać się do tego pliku, załaduj Edytor Visual Basic ( ALT+ F11)
- Z menu rozwijanego wybierz opcję Narzędzia> Referencje
- Zostanie wyświetlona lista dostępnych odniesień
- Zaznacz pole wyboru obok „
Microsoft Scripting Runtime
”
- Pełna nazwa i ścieżka do
scrrun.dll
pliku zostaną wyświetlone poniżej pola listy
- Kliknij OKprzycisk.
Można to również zrobić bezpośrednio w kodzie, jeśli został włączony dostęp do modelu obiektowego VBA.
Dostęp można włączyć, zaznaczając pole wyboru Trust access to the VBA project object model
znajdujące się w Plik> Opcje> Centrum zaufania> Ustawienia Centrum zaufania> Ustawienia makr
Aby dodać odniesienie:
Sub Add_Reference()
Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference
End Sub
Aby usunąć odniesienie:
Sub Remove_Reference()
Dim oReference As Object
Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")
Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference
End Sub
W programie Excel 2013 ciąg tworzenia obiektu to:
zamiast kodu w odpowiedzi powyżej:
źródło
Dim fso As Object
Ci goście mają doskonałe przykłady korzystania z obiektu systemu plików http://www.w3schools.com/asp/asp_ref_filesystem.asp
źródło
Po dodaniu referencji musiałem użyć
źródło
Po zaimportowaniu środowiska wykonawczego skryptów, jak opisano powyżej, musisz dokonać niewielkiej modyfikacji, aby działało w programie Excel 2010 (moja wersja). W poniższym kodzie dodałem również kod używany przez użytkownika do wybrania pliku.
Mam nadzieję, że to pomoże!
Z poważaniem
Fabio
źródło