文件系统对象后期绑定

Question

我在File System Object后期绑定方面遇到问题。这是我的代码：

\n\n

Dim WordA As Object \'aplikacja programu Word\nDim PlikW As Object \'plik Worda\nDim Nazwa As Object \'obszar Worda ze zdefiniowan\xc4\x85 nazw\xc4\x85\nDim Zakres As Range \'zakres danych u\xc5\xbcywany do wiadomo\xc5\x9bci\nDim NrRaportu As Integer \'Numer tworzonego raportu\nDim Katalog As String \'pe\xc5\x82na nazwa katalogu, w kt\xc3\xb3rym zapisywane s\xc4\x85 wiadomo\xc5\x9bci\nConst Raport_szablon = "Raport_szablon.docx" \'zazwa pliku z szablonem\nDim fso As Object \'Objekt FileSystemObject\n\n\'1. Wczytanie danych\nSet Zakres = Range("R2:Z" & Cells(Rows.Count, "R").End(xlUp).Row)\nKatalog = ThisWorkbook.Path & "\\Raporty"\nSet fso = CreateObject("FileSystemObject")\nIf Not fso.FolderExists(Katalog) Then _\n    fso.CreateFolder (Katalog)\n

\n\n

我收到一条消息

\n\n

\n

“AccticeX 组件无法创建对象”

\n

\n\n

。

\n

Answer 1

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