未定义的bloc object.getfolder错误variables

我写一个代码来导入一个文件夹的所有文件到一个Excel工作表。 这里是我的代码：

Sub ImportLiabs() Dim destination As String Dim Colonne1Tableau As Integer Dim Ligne1Tableau As Integer Dim nb_onglets_param As Integer Dim OngletMacro As String Dim i As Integer: i = 1 Dim folder As String 'Paramétrage destination = ThisWorkbook.Name Dim NomFichier() As String Dim MyObj As Object, MySource As Object, file As Variant folder = Range("Folder").Value Set MyObject = CreateObject("Scripting.FileSystemObject") Set MySource = MyObj.GetFolder(folder) For Each file In MySource.Files If Left(file.Name, 9) = "liab_data" Then i = i + 1 ReDim Preserve NomFichier(i) NomFichier(i) = file.Name Workbooks.Open file Sheets.Copy After:=Workbooks(destination).Sheets(i) Windows(NomFichier(i)).Close i = i + 1 End If Next file End Sub 

问题是，在执行时显示，variables或对象未定义的块在这一行：

 Set MySource = MyObj.GetFolder(folder) 

不能设法问题是什么，谢谢你的帮助。

Answer 1

您正在定义variablesMyObject ，然后使用MyObj来设置文件夹。

尝试这个：

 Set MyObject = CreateObject("Scripting.FileSystemObject") Set MySource = MyObject.GetFolder(folder)