vba - 文件系统对象后期绑定(bind)

Question

我对 File System Object 有疑问后期绑定(bind)。这是我的代码:

Dim WordA As Object 'aplikacja programu Word
Dim PlikW As Object 'plik Worda
Dim Nazwa As Object 'obszar Worda ze zdefiniowaną nazwą
Dim Zakres As Range 'zakres danych używany do wiadomości
Dim NrRaportu As Integer 'Numer tworzonego raportu
Dim Katalog As String 'pełna nazwa katalogu, w którym zapisywane są wiadomości
Const Raport_szablon = "Raport_szablon.docx" 'zazwa pliku z szablonem
Dim fso As Object 'Objekt FileSystemObject

'1. Wczytanie danych
Set Zakres = Range("R2:Z" & Cells(Rows.Count, "R").End(xlUp).Row)
Katalog = ThisWorkbook.Path & "\Raporty"
Set fso = CreateObject("FileSystemObject")
If Not fso.FolderExists(Katalog) Then _
    fso.CreateFolder (Katalog)

我收到一条消息

"ActiceX component can't create object"

.

Answer 1

您还需要使用引用管理器并将 dll/ocx 添加到项目中。 c:\windows\system32\wshom.ocx 如果我没记错的话