VBからエクセルを起動して引数を渡し方は？ (ID:118745)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VBのフォームで、csvファイルをコモンダイアログで指定し、 テキストボックスにそのファイルのパスを表示させます。 次にコマンドボタンを押すとエクセルのマクロが起動し そのテキストボックスに書かれているパスのファイルを 引数として渡し、エクセルマクロ側でそのファイルを使って 処理させようと思っています。 この際の、VBからエクセルへの引数の渡し方が色々調べたのですが 分かりませんでしたので、どなたかご教授ください。 よろしくお願いします。 --------以下ソース-------- Private Sub DB_UpLoad_Sarch_Click() Dim pathdata As String Dim pathlengs As Integer 'コモンダイアログを開く CommonDialog1.FileName = "" '選択ファイル名の表示をクリア CommonDialog1.FilterIndex = 0 CommonDialog1.Filter = "csvファイル(*.csv)|*.csv|すべてのファイル(*.*)|*.*" 'ファイルの種類 CommonDialog1.InitDir = CurentPath CommonDialog1.ShowOpen If (CommonDialog1.FileName <> "") Then 'ユーザーがファイルを選択した pathdata = CommonDialog1.FileName pathlengs = Len(pathdata) 'パス情報の文字数を取得 '選択したPath情報をテキストボックスに表示 Comp_Directry1.Text = pathdata '選択されたファイル End If End Sub Private Sub Command3_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") 'エクセル起動 Set xlBook = xlApp.Workbooks.Open(C:\test2.xls) Set xlSheet = xlBook.Worksheets(1) xlApp.Visible = True 'マクロ起動 xlApp.Run ("READ_TextFile") xlApp.DisplayAlerts = False End Sub