| |
▼初心者 さん：
こんばんは。
例えば、
標準モジュールに
'====================================================
Function funcsample() As Variant
funcsample = "funcsample"
End Function
というコードが記述されたブックのブック名を
「func test.xls」とします。
（func test.xlsと間にわざと空白をいれました）
別のブック（runtest.xls）の標準モジュールに
'=========================================================
Sub Macro1()
Dim bk As Workbook
Set bk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\func test.xls")
ans = Application.Run("'" & bk.Name & "'!funcsample")
' ブック名に空白などなければ'で囲まなくてもよい
MsgBox ans
End Sub
と言うコードを記述してふたつのブックは同じフォルダに保存してください。
runtestのみ開いてMacro1を実行してみてください。
funcsample とメッセージボックスで表示されるはずです。
|
|
ichinose
- 06/2/20(月) 17:34 -
