0

アドインで以下のコードを使用しました：

Sub MacroToRunOne()

Dim S As String
S = "Hello World From One:"
MsgBox S

Workbooks("86750").Sheets("PIVOT").Activate

End Sub

このマクロを実行すると、msgbox ステートメントの後に "Subscript out of range" というエラーが表示されます。activate ステートメントに問題がありますか、それともコーディング方法が間違っていますか?

4

1 に答える 1

2

"86750"存在しないファイル名 (拡張子なし)のワークブックを参照しています。

Workbooks("86750.xlsx")ファイル名 の (開いている) ワークブックを参照する、 を配置するつもりでしたか86750.xlsx。

数値引数 を指定した場合i、つまり、開いているすべてのワークブックのインデックスで th 番目Workbooks(86750)のワークブックを要求することに注意してください。iしかし、これはあなたがしていたことではありません。

于 2013-02-24T13:09:00.063 に答える