'-------------------------

'EXCELマクロへの連動

  Dim strXLSFILE As String 'Excelの元ファイルパス格納場所

  Dim oApp As Object 'Excelを操作するオブジェクト変数

'Excelのマクロファイルのパスを作成

  strXLSFILE = 保存先 & "マクロ.xls"

 

'ファイルの存在をチェックする

  If Dir(strXLSFILE) = "" Then

  MsgBox 保存先 & "　に" & Chr(13) & Chr(13) _

  & "「マクロ.xls 」を 確認して下さい。"

  Exit Sub

  End If

'Excel を起動

  Set oApp = CreateObject("Excel.Application")

  oApp.Visible = True

  'Only XL 97 supports UserControl Property

  oApp.UserControl = True

  oApp.Workbooks.Open Filename:=strXLSFILE

'-------------------------