|
▼IROC さん:
>メソッドではなく、ただのマクロ・・?
メソッドとマクロの定義が、もひとつ分かっていません。すみません・・・。
メソッドは、シートやセルに対して何かを行う時に使うもので、私のしようとしていることは、マクロになるのでしょうか?同じようなものだと思っていました。(>_<)
下記ソースのModule1.Macro1を、どうにかしてVBからコールできないのでしょうか?
<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
よろしくお願いします。
|
|