ブックBのシート(*)に関数 sub aaaを定義します。
(*)シートオブジェクト名を任意のものに変更します。(→eee)
この時、ブックAのVBAからブックBを開き、その参照を得て(workbook型の
wbという名前の変数に格納します。)、「Call wb.eee.aaa」と
呼び出すことができると思っていましたが、"オブジェクトは
そのメソッド/プロパティを持っていません"という旨のエラーが
出て、呼び出すことができませんでした。
どのようにしたら呼び出すことができるようになりますか。
aaaはpublicで定義しています。
No.2ベストアンサー
- 回答日時:
> aaaはpublicで定義しています。
Workbook型の変数では、ユーザーが独自に定義したメソッドを呼び出せなくなります。
(Workbookオブジェクトに定義された(=組み込み済みの)メソッドしか呼び出せない)
そのオブジェクトを受ける変数の型をObject型にすれば、独自に定義したaaaメソッドを
呼び出すことができるかと思います。
(「Dim wb As Object」と宣言すればOk、と)
なお、VBEのメニューから「ツール(T)→参照設定(R)」で『参照設定』ダイアログを開き、
『参照(B)』ボタンを押して、ブックBへの参照設定を行うと、
Dim wb As VBAProject.eee
といった宣言も可能になり、eeeシートに定義したPublicなプロパティ/メソッドに対して
インテリセンスによる入力支援を有効にすることもできますので、併せて参考まで。
(上記での「VBAProject」には、VBEのメニューで「ツール(T)→○○のプロパティ(E)」
で開く『プロジェクトプロパティ』ダイアログの『全般』タブにある『プロジェクト名(N)』を
指定します)
但し、ブックAを開くと同時に毎回ブックBが開かれることになりますので、運用できる
場面は限られるかと思いますが(汗)
以下な感じで他ブックのシートに定義されている関数を呼び出すことが
できました。sshがworkbookだと関数がうまく呼び出せなかったので、
参考にさせていただき助かりました。ご回答ありがとうございました。
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim path
Dim ssh As Object
path = Application.GetOpenFilename("Microsoft Excelブック,*.*")
Set wb = Workbooks.Open(path)
Call get_ob(wb, ssh, "eee")'コードネームからシートオブジェクト取得
Call ssh.aaa
wb.Close (False)
Set wb = Nothing
End Sub
'コードネームからシートオブジェクト取得
Sub get_ob(wb, ssh, name)
Dim sh As Object
For Each sh In wb.Worksheets
If sh.CodeName = name Then
Set ssh = sh
Exit For
End If
Next
End Sub
No.1
- 回答日時:
こんなかんじでできました
Call Application.Workbooks("Book1").Sheets("Sheet1").test
Call Application.Workbooks(ファイル名).Sheets(シート名).プロシージャ名
シート名は、対象の Worksheet の Name プロパティを指定します。
オブジェクト名はプロジェクト単位で通用するグローバルなシンボルのようです。
プロジェクト単位(ブック)を超えてプロシージャを参照するには、Application オブジェクト経由でワークブックの名前とオブジェクトの名前(Name プロパティ)で対象のオブジェクトを解決する必要があるようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
オブジェクトが見つかりません
-
VBAで既に開いている別アプリケ...
-
EXCEL VBA オートシェイプナン...
-
VBからPDFファイル自動生成...
-
ExcelVBAでのNZ関数について
-
Excelでフィルタをかけると警告...
-
Excelのシート上にtextboxを作...
-
横軸ラベルの追加に関するエラ...
-
Excel VBA Collection.add で R...
-
上下の位置揃えについて
-
findメソッドの変数について
-
テキストボックスが読み取り専...
-
ユーザ定義型は定義されてません
-
エクセルマクロエラー「'Cells'...
-
VBAで作成するメール(開封確認...
-
CreateObjectとGetObjectの違い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
PowerPointVBAでスライドマスタ...
-
[VBA]CDOメッセージ送信エラー
-
AccessVBAで「dim dbs as datab...
-
VBAで作成するメール(開封確認...
-
VBからPDFファイル自動生成...
-
上下の位置揃えについて
-
ExcelVBAでのNZ関数について
-
テキストボックス中の文字列の...
-
エクセルマクロエラー「'Cells'...
おすすめ情報