ＴＸＴファイルデーターをＥＸＣＥＬで読み込む

質問

Ａというテキストファイルがあります。
そのファイルのは、
1 12 123 1234
という様なスペースで分けられた文字列が並んでいます。
これを、新規作成したＥＸＣＥＬファイルで読み込みたいのですが、出来ますでしょうか？
現状は、テキストファイルをスペース区切りでＥＸＣＥＬに変換しているのですが、ファイル量が多くなりそうで手間がかかります。
ですので、テキストファイルから直接読み取りＥＸＣＥＬに貼り付けたいのです。(自動リンクのイメージでリンク元がＡというテキストファイル)

以上、ご教示お願い致します。

回答No.9

KenKen_SP · ベストアンサー

#8 です。

データの様子や動作仕様で不明な点はありますが、とりあえず現状の VBA
コードをアップしてみます。

リンクってのがよく分かりませんが、テキストのインポートでやりました。

下記のコードを実行すると、次の動作を行います。

1.　このコードが書かれた同一フォルダ内の D*.txt をDOSコマンドで連結
　　し、ファイル MergeData.txt に出力します。
2.　MergeData.txt のデータを行単位でメモリ上に読み込みます。
3.　2.をアクティブシートのセルに展開します。
4.　最後にスペース区切りで各要素をセルに分割します。

なお、動作確認は WindowsXPsp2 + Excel2002sp3 の環境です。

30個程度のファイルなら、ループで回しても良かったのですが、何となく、、

ちなみに、テキストファイル毎に1枚のシートであれば、これはボツですね。

Option Explicit

Declare Function SetCurrentDirectory Lib "kernel32" _
　　Alias "SetCurrentDirectoryA" _
　　(ByVal lpPathName As String) As Long

Sub InportTextFile_Sample()

　　Const ForReading& = 1, ForWriting& = 2, ForAppending& = 8
　　Const BufSize& = 2000 '2000行

　　Dim objShell As Object
　　Dim FS　　　 As Object, TS As Object
　　Dim Buf()　　As String
　　Dim i　　　　As Long
　　Dim strPath　As String

　　'カレントディレクトリー設定
　　strPath = ThisWorkbook.Path
　　SetCurrentDirectory strPath

　　'テキストファイルマージ
　　Set objShell = CreateObject("WScript.Shell")
　　　　objShell.Run "%ComSpec% /c COPY /b D*.txt MergeData.txt", 0, True
　　Set objShell = Nothing

　　'データバッファ
　　ReDim Buf(BufSize)
　　strPath = strPath & "\MergeData.txt"
　　Set FS = CreateObject("Scripting.FileSystemObject")
　　Set TS = FS.OpenTextFile(strPath, ForReading)
　　　　Do Until TS.AtEndOfStream
　　　　　　Buf(i) = Trim$(CStr(TS.ReadLine))
　　　　　　i = i + 1
　　　　　　If i > 65536 Then Exit Do
　　　　　　If Not i Mod BufSize Then
　　　　　　　　ReDim Preserve Buf(i + BufSize)
　　　　　　End If
　　　　Loop
　　　　ReDim Preserve Buf(i)
　　　　TS.Close
　　Set TS = Nothing: Set FS = Nothing

　　'セルに書き込み
　　Application.ScreenUpdating = False
　　ActiveSheet.Range("A1") _
　　　　.Resize(UBound(Buf) + 1).Value = Application.Transpose(Buf)

　　'バッファクリア
　　Erase Buf

　　'ソートするならここに書く

　　'要素分割（SP区切り）
　　ActiveSheet.Columns("A:A").TextToColumns _
　　　　DataType:=xlDelimited, _
　　　　TextQualifier:=xlDoubleQuote, _
　　　　ConsecutiveDelimiter:=True, _
　　　　Space:=True

　　Application.ScreenUpdating = True
　　MsgBox "終了しました.", vbInformation

End Sub

お礼

丁寧なご説明ありがとうございます。
やはり、ＶＢＡになりますかぁ・・・

◆1点目
問）テキストファイル毎に1枚のシートにするのですか？
捕）できればそうしたいと考えています。理由は、内線の発呼が２千／日以内と決まっているわけでは無い為、＃８様が仰るように、１つのシートにまとめると行数不足になる恐れがあるためです・・・

◆2点目
問）処理効率からの点で・・・
捕）やはり、インポートしないと無理ですか・・・
　　自動作成される課金レポートの中身は以下のようになっています。
・内線番号 通話日時 発信先
　↑このフォーマットでその日のうちの発呼分(おおよそ２千)
これを、インポートすればそれぞれ、Ａ１，Ｂ１，Ｃ１に入ってくれるので、後は普通に計算できるのですが、これではこのインポート作業を１ヶ月分(３０ファイル)行う必要がありますよね？ただこれを、＃５様にご教示頂いたソフトで一括ファイルにしてしまえば１回のインポートで済むのですが、行数に不安があります。
なので、できるならば、インポートせずに(テキストファイルをいじることなく)計算用ファイルに１ファイル／１シートで読み込ませたかったのです・・・

◆3点目
問）インポートの際に邪魔になりそうなものはありませんか？
捕）特にありません。

この場をお借りして・・・
この様な稚拙な質問に対し皆様方には大変役立つご回答して頂き、ありがとうございます。
　今回の内容を自分なりにもう一度考えて、また必要な時に再質問させて頂きますので、いったん、閉めさせて頂きます。

回答No.8

KenKen_SP

こんにちは。KenKen_SP です。

フォルダ内のファイルを一括処理するなら VBA による方法になると
思います。

◆1点目

> 社内電話の課金日報レポートが毎日01:00のテキストファイルで作成
> されます。(おおよそ２千行)

どうやら集計したいみたいなので、1つシートに1ヶ月分のテキストの
データをインポートする仕組みでコードを書いていたのですが、
#6 の方の書き込みをみて、次のことに気が付きました（汗）

2,000行/1日であれば1ヶ月なら、2,000行×最大31日＝62,000行...

になりますので、Excel ではちょっと厳しいですね.....行が不足し
そうです。テキストファイル毎に1枚のシートにするのですか？

1つのシートにまとめたい、、と考えているなら ACCESS の方が良さ
そうです。

◆2点目

処理効率からの点で、予めテキストファイルを連結させてからインポー
トする方法を考えました。インポートした後で、ソートのキーとなる
フィールド（列）はありますか？

◆3点目

テキストデータは1行目に見出しなり、インポートの際に邪魔になりそう
なものはありませんか？

回答No.7

imogasi

＞、1つのセルに全ての列が入ってしまいました・・・(;_;)
これは、タブ区切りではないという
これは当たり前。
この後、メニューのデーターデータ区切り、でスペースを区切りに指定して
ウイザードの指示に従えば、各フィールドに分離してくれます。

＞ファイル量が多くなりそうで手間がかかります
上記操作はデータ量で差が出るものではない。

回答No.6

noname#223623

#5です。1個のテキストファイルを1枚のシートにするのかな？だとすると#5は関係ないので無視してください。#4さんのおっしゃるようにTABにすれば簡単だと思います。

回答No.5

noname#223623

問題がよくわからないのですが、テキストファイルが多くてExcelでいちいち開くのが大変、ということですか？
テキストファイルを1つにまとめていっぺんに処理するのではだめなのかな？
開き方は#1、#3さんのやり方で。

質問を読むと空白で区切るのが大変、ともとれるのですが...

↓テキストファイルをまとめるツール

参考URL：

http://www.vector.co.jp/soft/win95/util/se347042.html

回答No.4

asahina02

#1で回答した者です。

では、ちょっと視点を変えてスペース区切りではなく、タブ区切りで変換することは出来ないでしょうか？

タブ区切りになっていれば、ファイルをドラッグ＆ドロップするだけで、
ご希望の形式でEXCELに展開されると思います。

補足

再度のご回答ありがとうございます。
教えていただいた事を試してみました！・・・
が、1つのセルに全ての列が入ってしまいました・・・(;_;)
これは、タブ区切りではないという事でしょうか？
ちなみに、大変言い辛いのですが、この内容は私の希望する事とは違います・・・
んー・・・どうもうまく伝わりませんねぇ、すみませんm(_ _)m

私の希望する手順を書いてみます。
１．課金用テキストファイルが1つ/1日自動作成(フォーマット決まっている)される。
２．”１”のファイルが一月分(３０ファイル)出来上がる。
３．そのファイルを所定のフォルダに入れる。
４．”２”と同じフォルダ内にある課金料金計算用ＥＸＣＥＬファイルを開く
※計算用ファイルは事前に作成(リンク元はテキストファイル)
５．内線毎の利用状態が計算されている。

以上です。
これは、元データーが既にＥＸＣＥＬファイルでしたら問題なく可能ですよね？
ですが、テキストファイルなので、皆様が仰るように種種の方法でいったんＥＸＣＥＬに変換し、保存→そのファイルにリンクさせる。
手順でいえば、
１および２，３の手順は同じ
４．テキストファイルをＥＸＣＥＬで読み出し、拡張子を.xlsに変えて保存。
５．”３”の手順を一月分のファイル数(約３０個)だけ繰り返し行う。
６．これより後は、希望手順と同じ。

以上ですが、わかりますか？

回答No.3

OsieteG00

データ-外部データの取り込み-テキストファイルのインポート
から、#1さんのテキストファイルウィザードを実行してみてください。
貼り付けられたセルを選択して「データの更新」とすると元のファイルの内容を再び読み込みます。

「データベースクエリ」でも同じことができそうですが、空白区切りの処理の仕方がわかりませんでした。

回答No.2

usata1234

ご質問は単純に

テキストをリンク貼り付けしたい・・・ということですか？
その場合、ＥＸＣＥＬでそのデータを今後加工して使用していくという前提はあると考えていいのでしょうか？

それとも以下のようなことでしょうか？

データ入力されたソフトが存在。
そこからテキスト書き出しで何種類かテキストファイルを作成した。
ＥＸＣＥＬで読み込むとファイル量が多いので処理が大変。
↓
データ入力してあるソフトから自動的にＥＸＣＥＬに読み込む方法がしりたい。

どちらでしょう・・・？

補足

ご回答ありがとうございます。
テキストをリンク貼り付けしたい・・・
と、言う事ですね。正確に申しますと、リンク貼り付けの操作を手動ではなく自動でなのです。

詳細をいいますと、
社内電話の課金日報レポートが毎日01:00のテキストファイルで作成されます。(おおよそ２千行)
これを内線番号別に料金を割り振る為、ＥＸＣＥＬで計算したいのですが、元データーがテキストファイルなので、いったん、Ｎｏ１，３様が仰る操作でＥＸＣＥＬベースに変換させて、文字列を認識させていますが、課金情報で必要なのは１ヶ月単位の為、月末に処理する事となり、毎月３０又は３１日のテキストファイルを繰り返し変換して認識させなければならず面倒です(^_^;
従って、料金計算用のＥＸＣＥＬファイルにはあらかじめ、リンク元を指定入力しておき、(A1にテキストファイル名＋データー入力セル？)月末のファイルが出揃った時に一括して３０ないし３１のテキストファイルを料金計算用ＥＸＣＥＬファイルの指定したフォルダに入れる事で自動計算したい・・・という事なのですが、意味わかりますか？
尚、自動作成される課金レポートファイル(テキスト)名は、
Ｄ年月日です。
例えば、２００５／０９／０１ですと、
Ｄ０５０９０１となります。
以上です。

回答No.1

asahina02

Excelを先に起動し、ファイルメニューから開くを選択して、上記のようなテキストファイルを指定してあげると、データの変換ウィザードが出てきます。
これで区切り文字をスペースとして選択してやるとエクセルの形式で開くことが出来ます。

1 12 123 1234
というファイルの場合、
セルＡ１に「1」、Ｂ１に「12」、Ｃ１に「123」、Ｄ１に「1234」
となります。

あとはエクセル形式で保存してあげるだけです。

と、こういう回答でよかったのでしょうか？
検討違いだったらすいません。

補足

早速のご回答ありがとうございます。
私の説明不足で申し訳ありません。
No1ご回答者様の方法はごもっともなのですが、この方法ではテキストファイルが多い場合大変です。
なので、テキストファイルを開くことなく、読み込み、ご回答者様が仰るような配列(A1に1，B1に12・・・)で表示したいのです。