[英]Invalid Procedure call or argument on Debug.Print
嘗試使用幾天前在這里收到的一些建議來重做我幾天前做的函數...在Debug.Print的行上我收到一個無效的過程調用或參數。
VBA和Excel的新手。 感謝您的幫助和耐心等待。
Public Sub GetSOPFiles()
' Set folder path
Const FolderPath As String = "C:\Users\test\Desktop\SOP Excel Prototype"
Const FileExt As String = "docx"
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Dim dept As Variant
Dim deptCodes As Variant
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
Dim vData As Variant
Dim sTemp As Variant
ReDim vData(0 To MyFiles.Count - 1, 0 To 0)
x = 1
With MyFiles
While x <= UBound(vData, 1)
Debug.Print (MyFiles(x).Name)
Wend
End With
End Sub
MyFiles
是一個集合,應該使用For Each...Next
循環對其進行迭代。
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
For Each MyFile In MyFiles
Debug.Print MyFile.Name ' no parentheses
Next
您無法索引MyFiles
集合。 如Files
文檔所述,使用For Each...Next
循環。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.