VB 用户定义类型未定义 请求协助!
Private Sub MyProc(ByVal Folder As String) // 这一句"用户定义类型未定义"Dim objFile
Dim objFolder
Dim fso As New FileSystemObject
Set objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
MyProc2 objFile.Path
Next
End Sub
Private Sub MyProc2(filename As String)
Dim openfile As String
Dim openfullname As String
openfullname = ThisWorkbook.FullName '获取当前excel的绝对路径
openfile = ThisWorkbook.Name '获取当前excel的相对路径(文件名)
sheets_HB filename, openfile
End Sub
运行时提示: 用户定义类型未定义
不知道问题在哪里,请大侠们帮忙一下啦,谢谢了。 Folder是个保留字吧?
有没有解决办法啊? 菜单:工程->引用->Microsoft Scriping Runtime
Private Sub MyProc(ByVal MyFolder As String) // 这一句"用户定义类型未定义"
Dim objFile
Dim objFolder
Dim fso As New FileSystemObject
Set objFolder = fso.GetFolder(MyFolder)
For Each objFile In objFolder.Files
MyProc2 objFile.Path
Next
End Sub
Private Sub MyProc2(filename As String)
Dim openfile As String
Dim openfullname As String
openfullname = ThisWorkbook.FullName '获取当前excel的绝对路径
openfile = ThisWorkbook.Name '获取当前excel的相对路径(文件名)
sheets_HB filename, openfile
End Sub
FSO没引用
补充:VB , VBA