不正なファイルエラーながら

Question

そのは私はすべての私のファイルを保存している

不正なファイル名または番号を示す。このコードの実行中は「\ C：\ Users \ユーザー20098323 \デスクトップ\ EXCL \」

を

Sub ProcessFiles() 
    Dim Filename, Pathname As String 
    Dim wb As Workbook 

    Pathname = ActiveWorkbook.Path & "\C:\Users\20098323\Desktop\EXCL\" 
    Filename = Dir(Pathname & "*.xlsx") 
    Do While Filename <> "" 
     Set wb = Workbooks.Open(Pathname & Filename) 
     DoWork wb 
     wb.Close SaveChanges:=True 
     Filename = Dir() 
    Loop 
End Sub 

Sub DoWork(wb As Workbook) 
    With wb 
     'Do your work here 
     .Worksheets(1).Range("A1").Value = "Hello World!" 
    End With 
End Sub 

Answer 1

ActiveWorkbook.Path &を削除し、ラインから第\Pathname = ActiveWorkbook.Path & "\C:\Users\20098323\Desktop\EXCL\"

Pathname = "C:\Users\20098323\Desktop\EXCL\" 

Answer 2

ActiveWorkbook.Path & "\C:\Users\20098323\Desktop\EXCL\" 

これはあなたの問題です。 EXCLフォルダーへのパスを現在のブックのパスに追加します。だから、C:\wherever\you\have\your\workbook\C:\Users\20098323\Desktop\EXCL\のようなものになるでしょう。それはあなたにエラーを与えた場合は、デバッグボタンを押すと、それはあなたにエラーが発生した行が表示されます。その代わりここでは、将来のためのヒントです

Pathname = "C:\Users\20098323\Desktop\EXCL\" 

を使用しています。変数名の上にマウスを置くと、現在の値が表示されます。