| 
    
     |  | ▼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
 
 
 よろしくお願いします。
 
 |  |