Excelは、コンパイルエラー：読み取り専用に割り当てることができませんプロパティ

Question

を私は次のコードで読み取り専用のプロパティへの代入についてExcelでエラーを取得しています：私はあなたが持っている推測している

1 Sub GetSheets() 
2 Path = "C:WHERE MY DOCUMENTS ARE KEPT" 
3 Filename = Dir(Path & "*.CSV") 
4  Do While Filename <> "" 
5  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 
6   For Each Sheet In ActiveWorkbook.Sheets 
7   Sheet.Copy After:=ThisWorkbook.Sheets(1) 
8  Next Sheet 
9   Workbooks(Filename).Close 
10   Filename = Dir() 
11  Loop 
12 End Sub 

Answer 1

ThisWorkbookモジュールの投稿コード？

ThisWorkbookは、組み込みの（読み取り専用）Pathプロパティを持つブック自体を表します。

Pathの名前を（たとえば）myPathに変更してください。これで問題はありません。

Sub GetSheets() 
    'best to use a Constant here... 
    Const THE_PATH As String = "C:\WHERE\MY DOCUMENTS\ARE KEPT\" 

    Dim Filename as String, wb As Workbook, Sheet As Worksheet 

    Filename = Dir(THE_PATH & "*.CSV") 
    Do While Filename <> "" 
     Set wb = Workbooks.Open(Filename:=THE_PATH & Filename, ReadOnly:=True) 
     For Each Sheet In wb.Sheets 
      Sheet.Copy After:=ThisWorkbook.Sheets(1) 
     Next Sheet 
     wb.Close 
     Filename = Dir() 
     Loop 
End Sub