他ブックを実行するマクロ
あるexcelファイル(ブック名「自動操作.xlsm」)からべつのexcelファイル(ブック名「a.xlsm」)というファイルを実行するマクロを組んでいます。
Application.Runを用いて「自動操作.xlsm」のコードを以下のように記述しました。
※「\」は半角の円マークだと考えてくれればいいです。ここで半角の円マークをかいても\と表示されます。また、自動操作とaは同じディレクトリにあります。
Sub Test1()
Application.Run "'C:Users\ディレクトリ名\a.xlsm'!test"
End Sub
また、「a.xlsm」は以下のように記述しました。
Sub test()
Dim i As Integer
For i = 1 To 5
'移動元ファイルパスの設定
Cells(i, 1) = i
Next
End Sub
ただ1~5行にその行数を記入するマクロです。
a.xlsmを開いた状態でこれを実行すると、「アプリケーション定義またはオブジェクト定義のエラーです」とでます。
a.xlsmを閉じた状態で実行すると、「このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります」とでます。
いったいなにを間違えているのでしょうか。
お礼
回答ありがとうございます。 バッチリです。