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

Question

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

siddhaartha · Accepted Answer

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:	ab.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

siddhaartha · Answer

＃４です。

＞'A列をタブ区切
＞xlSheet.Columns("A:A").TextToColumns , Tab:=True
＞xlSheet.Cells(1, 1).Select

＞の部分はNo.3でご回答いただいた部分と違う部分で無くても動作したのですが、省略可能と解釈して問題ないのでしょうか・・。

上記の部分ですが、ＴＡＢ区切りで開きたいとの事でしたので、
明示的にＴＡＢ区切りを指定しています。
自動でＴＡＢ区切りになるかどうかは各ＰＣの設定によりますので。
ちなみに私のＰＣではなりませんでした。（Excel2000）

２行目でＡ１をセレクトしているのは、ＴＡＢ区切りした後で
Ａ１列の表示（上部に表示されるセルの値の部分）を再表示させています。
…これも私のＰＣではなぜかＴＡＢ区切り前の表示になっていたので
気持ち悪かったから付け加えただけです。

temtecomai2 · Answer

VB 6.0 から Excel を Com オブジェクトで操作すれば問題ないかと。
Excel への参照設定を行ったうえで
Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbooks
Dim xlBook As Excel Workbook

Set xlApp = New Excel.Application
Set xlBooks = xlApp.Workbooks
Set xlBook = xlBooks.Open("c:\hoge.txt")
xlApp.Visible = True

Set xlBook = Nothing
Set xlBooks = Nothing
Set xlApp = Nothing

または、Excel のバージョン変化に何とか対応するには
Dim xlApp As Object
Dim xlBooks As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBooks = xlApp.Workbooks
Set xlBook = xlBooks.Open("c:\hoge.txt")
xlApp.Visible = True

Set xlBook = Nothing
Set xlBooks = Nothing
Set xlApp = Nothing

てな感じで。

> VBからテキストファイル（タブ区切り）をエクセルで開く方法を探しています。CSVデータを出力する方法や、テキストファイルを読み込む方法等の情報はたくさんあるのですが、直接エクセルを起動し、それにテキストファイルを出力するのはなかなか見当たらない状況です。

ズバリなサンプルを探してしまうのは最初は仕方のない事なのですが、そこから前進するためには、
かつて得たズバリな知識、または今回も Web で調べまくった数々のサンプル。これらを小さな点に例えます。
kodawariha さんの中にはこれら小さな点がいくつもあるはずですので、次はこの小さな点たちの間に空いている空間を埋める努力をし、大きな円になるようにします。（なんのこっちゃって思います？）
空いている空間を埋めるのは「ひらめき」もあるのですが、「すでにある知識の中に出てくる要素から探っていく」という方法が大事です。
今回の目的には合致しなかった無数のサンプルをとりあえず入力してみる。
オブジェクト ブラウザとかで、Excel を VB から扱う時にどんな命令などがあるのか見てみる。
そんな行動から目的の解決方法が見つかったり、今後使うかもしれない何かを先取りすることが可能になります。

JeanneNet · Answer

じゃんぬねっと です。

> CSVデータを出力する方法や、テキストファイルを読み込む方法等
> の情報はたくさんあるのですが、
> 直接エクセルを起動し、それにテキストファイルを出力するのは
> なかなか見当たらない状況です。

そうでしょうか?
CSV でも TSV でも、'形式さえ正しければ' Excel から開くことはできますので、同じように可能だと思います。

たとえば、以下のような方法があります。
まず、プロジェクトの参照設定に 'Microsoft Excel xx.x Object Library' を追加します。
(Excel 2002 であれば、'Microsoft Excel 10.0 Object Library' のハズ)

次に以下のようなテストソースを書きます。

    Dim xlApplication As Excel.Application
    Set xlApplication = New Excel.Application

    Dim xlWorkbooks As Excel.Workbooks
    Set xlWorkbooks = xlApplication.Workbooks

    Call xlWorkbooks.Open("C:\Hoge.txt")

    Set xlWorkbooks = Nothing
    xlApplication.Visible = True
    Set xlApplication = Nothing

動作確認済みです。

noname#25230 · Answer

手元に開発環境が無く、最近はVB.NET 2003ばかりつかっているので正確ではないかもしれませんが、Excel自体が、オブジェクトとして単独で存在し得るのではないでしょうか？

現在の仕事で、VB.NETから「Wordオブジェクト」を生成し、Wordを起動、指定されたWordファイルを開いて内部を編集、保存して印刷して、なんてのを一通りやってます。実は、VB.NETだといろいろと面倒がありまして、本来はVB6.0などでやるための手順を応用してやっていますので、VB6.0からも同様のことができるはずです。

内容は.NET向けですが、マイクロソフトにもいくつか文献はあります。
http://msdn2.microsoft.com/ja-JP/library/y1xatbkd.aspx
などです。また、「VB Wordオブジェクト」などで検索してもいくつか文献が引っかかります。VBから見れば、WordもExcelもオブジェクトという面では基本性能は同じですので、同様に検索できるでしょう。
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/6/vbacc/vbacc.html
なども参考になるかと。

いろいろ調べて試してみてください。基本的に、ExcelのVBA（マクロ）でできることは、おそらくVB6.0からもできると思います。

cla_kk · Answer

他プログラムを起動させる・・・shell関数
他プログラムをアクティブにする・・・AppActivateステートメント
他プログラムをリモート操作・・・・・sendKeysステートメント

私がVB５でこれらのものを使用したことがあります。
VB６にあるかどうかわかりませんが、これで事が足りるのであれば、
似たようなものはあるのではないでしょうか。

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

SendKeyを使うより直接EXCELオブジェクトを操作するほうがいいです。

＃４です。

VB 6.0 から Excel を Com オブジェクトで操作すれば問題ないかと。

じゃんぬねっと です。

手元に開発環境が無く、最近はVB.NET 2003ばかりつかっているので正確ではないかもしれませんが、Excel自体が、オブジェクトとして単独で存在し得るのではないでしょうか？

他プログラムを起動させる・・・shell関数

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

じゃんぬねっとです。