VBからテキストファイル（タブ区切り）をエクセルで開く方法

質問

VBからテキストファイル（タブ区切り）をエクセルで開く方法を探しています。CSVデータを出力する方法や、テキストファイルを読み込む方法等の情報はたくさんあるのですが、直接エクセルを起動し、それにテキストファイルを出力するのはなかなか見当たらない状況です。
質問の主旨は、もともと、参照ボタンを押下すると、選択されている指定のテキストファイルを保存するダイアログが出力される仕組みであったものを、どうせ開くのはエクセルだからと言うユーザーの要望から、参照ボタンクリックと同時にエクセルが起動し指定のテキストファイルをエクセルで開いて見ることができるように改造するといったものです。（参照のみですので読み取り専用で見たい）
テキストファイルをドラッグしてエクセルシートに持っていけばタブを認識して格セルに分割して開いてくれるのですが、VBから同じような動作をさせることは可能なのでしょうか？
よいヒントになるような情報でもかまいません
うまく説明できずわかりにくいかも知れませんがご助言をお願いいたします。
【環境】
WindowsXP、VB6.0、EXCEL2002

回答No.4

siddhaartha · ベストアンサー

SendKeyを使うより直接EXCELオブジェクトを操作するほうがいいです。
こんな感じでしょうでしょうか。
VBの参照設定でEXCELオオブジェクトライブラリを
ロードしてやることを忘れずに。

Sub a()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

'オブジェクトのロード
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("D:\tab.csv", , True)
Set xlSheet = xlBook.Worksheets(1)

'A列をタブ区切
xlSheet.Columns("A:A").TextToColumns , Tab:=True
xlSheet.Cells(1, 1).Select

'当該EXCELを画面に表示
xlApp.Visible = True

'オブジェクトの破棄
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

お礼

ご回答ありがとうございます。
上記コードで問題なく動作確認できました。
で、ちょっと疑問に思ったのは

'A列をタブ区切
xlSheet.Columns("A:A").TextToColumns , Tab:=True
xlSheet.Cells(1, 1).Select

の部分はNo.3でご回答いただいた部分と違う部分で無くても動作したのですが、省略可能と解釈して問題ないのでしょうか・・。

もう少し調査してみます。