|
はじめまして。Excel の VBA で他のブックの関数を呼び出そうとしてうまくいきません。お知恵を拝借させてください。
■症状
二つのブック(Book1.xls, Book2.xls)を作ります。
Book1.xls から Book2.xls 上にある Function を呼び出したいと思うのですが、
「実行時エラー 1004
マクロ 'C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls!Test' が見つかりません」
と言われて Book2.xls にある Test() という Function が呼び出せません。
■マクロ
■■Book1.xls
Private Sub Command_Button1_Click()
Workbooks.Open("C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls")
dim x as Long
x = Application.Run( "C:\Documents and Settings\First-Last\My Documents\excel\Book2.xls!Test )
End Sub
■■Book2.xls
Public Function Test()
Dim wb as Workbook
set wb = ThisWorkbook
MsgBox( "僕は" & wb.Name )
End Function
■その他
OS: Windows XP sp3
Excel 2000
|
|