ある Excel ワークブックから別の Excel ワークブックにデータをコピーするマクロを作成しようとしています。マクロがデータを含むワークブックを読み込もうとすると、実行時エラー '9': 下付き文字が範囲外です。これは、クリックしてデバッグするときに強調表示されるコードの一部です。
Workbooks("DWH109.xls").Activate
Excel ワークブックは、私の仕事でレポートの実行に使用する別のプログラムから開かれています。Excel ワークブックも互換モードで開かれます。テスト コードを使用して、開いているすべてのワークブックを読み取り、ワークブックが実際に見つかるかどうか、およびワークブックの名前が正しいかどうかを確認しました。テスト コードは、データを抽出したい開いているブックを読み取ることができましたが、私のコードはブックが存在しないように動作します。これに対する解決策はありますか？ありがとう
私が使用したテストコードは次のとおりです。
Sub Check_if_workbook_is_open()
'declare a variable
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "DWH109.xls" Then
'this message will appear if one of the open workbooks is DWH109.xls
MsgBox "File is Open"
End If
Next
End Sub