No.3ベストアンサー
- 回答日時:
Sub sample()
MsgBox "hello"
End Sub
この↑コードは、本当にb.xlsの標準モジュールに
あるのですか?
シートのモジュールやThisworkbookモジュールに
あるのではないですよね?
簡単なコードなので
何度も試しているのですが、
正常の
hello と表示されます。
再度確認してみてください
No.2
- 回答日時:
>ご存知の方がおられましたらご
WEBに例が沢山載っています。
http://homepage1.nifty.com/MADIA/vb/Tecnick/Exce …
それらを2、3をつぎはぎして作成できた。
エクセルは、私の場合たまたま
C:\Documents and Settings\xxxx\My Documents\入力規則19.xls
の標準モジュールに(xxxxはユーザー名)
Sub sample()
MsgBox "hello Module1のSample通過"
End Sub
を作りました。
ーーー
ワードのツールーマクローVBE-標準モジュールに下記をセット。
Sub test21()
Dim xlObj As Object
Err.Number = 0
On Error GoTo notLoaded
Set xlObj = GetObject(, "Excel.Application.9")
notLoaded:
If Err.Number = 429 Then
Set xlObj = CreateObject("Excel.Application")
theError = Err.Number
End If
xlObj.Visible = True
xlObj.Workbooks.Open FileName:="C:\Documents and Settings\OTO\My Documents\入力規則19.xls"
With xlObj
.Run ("Module1.sample")
' Excelの終了
.Quit
' オブジェクトを解放
Set xlObj = Nothing
End With
End Sub
ワードで実行すると
入力規則19.xls が開き、
hello Module1のSample通過
のメッセージが出ました。
ーー
Modle2に同名のsample()を作って、Msgboxのメッセージは変えて
.Run ("Module2.sample")
に変えて実行するとそちらを通ることを確認しました。
この回答への補足
実行時エラー '1004':
マクロ 'Module1.sample' が見つかりません。
と表示されてExcelのマクロを実行することができませんでした。
コピー&ペーストしているし、パスもあっているので
問題ないはずなのですがなぜかエラーが出て実行できません
パソコンを再起動後、再度試してみたら問題なく実行することができました。
どうやらこれ以前に実行したマクロの影響でうまく実行することができなかったようです。
(これ以前に実行したマクロの.Visible = Falseの影響により裏でExcelが開いていたから?)
まだ習い始めて間もないため気づくのに時間がかかりました。以後、気を付けたいと思います。
ご回答いただきどうもありがとうございました。
No.1
- 回答日時:
a.docとb.xlsは、同じフォルダ上にあるとすると・・、
a.docの標準モジュールに
'========================================================
Sub main()
With CreateObject("excel.application")
With .workbooks.Open(ThisDocument.Path & "\b.xls")
.Application.Run .Name & "!sample"
.Close False
End With
.Quit
End With
End Sub
この回答への補足
早速やってみたのですが、
実行時エラー '1004':
マクロ 'b.xls!sample' が見つかりません。
と表示されてExcelのマクロを実行することができませんでした。
a.docとb.xlsは、同じフォルダ上にあり、マクロのsample()も
ちゃんと存在しているのに何が問題だったのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザー定義関数に#NAME?が返...
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 『Call』で呼び出す...
-
Excel VBAで、ユーザーフォーム...
-
別シートに罫線がひけない
-
VHDLにおける「generic」について
-
モジュールとクラスの違いって...
-
印刷後メッセージボックスを表...
-
【vba】フォームに書いてあ...
-
グラフのX,Y座標を取得したい
-
'Range'メソッドは失敗しました
-
VBAで旧字体を異字体に一括で変...
-
偶数/奇数の判定
-
Excel VBA でのAPI呼び出しが・...
-
vba userFormのSubを標準モジュ...
-
クラスモジュールについて
-
pythonでファイル移動できません。
-
エクセルVBAでシートモジュール...
-
現在アクティブなフォーム名を...
-
Excel VBA 標準モジュール内で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
Excel VBAで、ユーザーフォーム...
-
VBでグローバル変数を宣言するには
-
Excel VBA 『Call』で呼び出す...
-
エクセルVBAでシートモジュール...
-
モジュールの最大数はいくつな...
-
VBAで旧字体を異字体に一括で変...
-
'Range'メソッドは失敗しました
-
VBA This Workbookモジュール...
-
vba userFormのSubを標準モジュ...
-
グラフのX,Y座標を取得したい
-
VBAで別モジュールへの変数の受...
-
Form間の値の渡し方
-
ベースモジュールって?
-
【vba】フォームに書いてあ...
-
acwzlibとは?
-
標準モジュールを削除したい。(...
-
Excel VBA 標準モジュール内で...
-
Access VBA標準モジュールにつ...
おすすめ情報