Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61963 / 76732 ←次へ | 前へ→

【19380】Re:VBからVBAのメソッドをコールしたい
発言  ichinose  - 04/10/29(金) 17:46 -

引用なし
パスワード
   ▼ハル さん、皆さん、こんにちは。
VB側で、
set app =createobject("excel.application")
with app
  .visible=true
  set bk=app.workbooks.open("D:\My Documents\callingtest.xls")
'                  ↑オープンするExcelブック
  end with
こんなコードでインスタンスを作成しているのですよね?

だとしたら、

app.run "callingtest.xls!module1.macro1"

で呼び出せます。


Macro1というプロシジャーが標準モジュールではなく、Thisworkbookにコピーされていれば、

bk.macro1

でOKです(私は、これはよく使います)。

確認して下さい。


>
><ThisWorkbook>
>Public Sub Workbook_Open()
>  
>  iFlg = 0
>  strBakDat = "-1"
>  
>  Sheets("Sheet1").Select
>  Range("A1").Select
>  Module1.Macro1
>End Sub
>Public iFlg As Integer
>Public strBakDat As String * 16
>
>
><Module1のソース>
>Public Sub Macro1()
>'
>' Macro1 Macro
>' マクロ記録日 : 2004/10/26 ユーザー名 : ?????
>'
>
>'
>  Dim strDat As String * 16
>  
>  'webクエリ更新
>  Selection.QueryTable.Refresh BackgroundQuery:=False
>  
>  strDat = Cells(2, 3).Value
>  
>  '値が変わっていれば、テキストファイルに保存
>  If strDat <> strBakDat Then
>    strBakDat = strDat
>    Open "d:\data1.csv" For Output As #1
>    Write #1, strDat
>    Close #1
>  End If
>End Sub
>
>
>よろしくお願いします。

0 hits

【19362】VBからVBAのメソッドをコールしたい ハル 04/10/29(金) 11:53 質問
【19363】Re:VBからVBAのメソッドをコールしたい IROC 04/10/29(金) 11:56 回答
【19365】Re:VBからVBAのメソッドをコールしたい ハル 04/10/29(金) 13:13 質問
【19368】Re:VBからVBAのメソッドをコールしたい ごんぼほり 04/10/29(金) 14:36 回答
【19369】Re:VBからVBAのメソッドをコールしたい ハル 04/10/29(金) 14:55 質問
【19370】Re:VBからVBAのメソッドをコールしたい ごんぼほり 04/10/29(金) 15:03 回答
【19372】Re:VBからVBAのメソッドをコールしたい ハル 04/10/29(金) 15:22 質問
【19373】Re:VBからVBAのメソッドをコールしたい IROC 04/10/29(金) 15:36 回答
【19376】Re:VBからVBAのメソッドをコールしたい ハル 04/10/29(金) 16:00 質問
【19380】Re:VBからVBAのメソッドをコールしたい ichinose 04/10/29(金) 17:46 発言
【19383】Re:VBからVBAのメソッドをコールしたい IROC 04/10/29(金) 18:03 回答
【19384】Re:VBからVBAのメソッドをコールしたい ichinose 04/10/29(金) 18:09 発言
【19385】Re:VBからVBAのメソッドをコールしたい IROC 04/10/29(金) 18:17 回答
【19414】Re:VBからVBAのメソッドをコールしたい ハル 04/11/1(月) 9:22 お礼

61963 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free