VBA ファイル：列の値をエクセル：行に転記

質問

下記内容のテキストファイルがあります（12行）。

2;SIDE-Z; 1;16.0769
3;SIDE-Z; 1;16.0700
4;SIDE-Z; 1;16.0655
5;SIDE-Z; 1;16.0692
6;SIDE-Z; 1;5.5960
7;SIDE-Z; 1;5.5947
8;SIDE-Z; 1;5.5894
9;SIDE-Z; 1;5.5900
10;SIDE-Z; 1;15.7398
11;SIDE-Z; 1;15.7394
12;SIDE-Z; 1;15.7375
13;SIDE-Z; 1;15.7384

この内、セミコロンで区切った四列目をエクセルの行（12列）
に転記したいと考えています。

エクセル

1　　　　　 2　　　　　 　3　　　　　 4　　　　　 5　　　　　 6　　　　　7.......
16.0769 16.0700 16.0655 16.0692 5.5960 5.5947

現在自分で記述しているプログラムでは、テキストファイルをセミコロンで
区切った一行分を読み込み、表示データが格納されている要素を指定しています。
この方法ではやろうとしている事が出来ないのは解っているのですが、良い方法が
解りません。

ご教授頂けると幸いです。

【ソースコード】

Sub データ抽出()
Dim myFSO As New FileSystemObject
Dim myTextFile As TextStream
Dim mySalesData As Variant
Dim I As Integer
Set myTextFile = myFSO.OpenTextFile _
("C:\Documents and Settings\PC045\デスクトップ\テキスト\sample　20110210.txt")
Worksheets("sample").Activate
I = 6
With myTextFile
Do Until .AtEndOfStream = True
mySalesData = Split(.ReadLine, ";")
Cells(I, 4).Value = mySalesData(0)
Cells(I, 5).Value = mySalesData(1)
Cells(I, 6).Value = mySalesData(2)
Cells(I, 7).Value = mySalesData(3)
I = I + 1
Loop
.Close
End With
End Sub

回答No.1

m_and_dmp · ベストアンサー

Dim myFSO As New FileSystemObject
Dim myTextFile As TextStream
私のエクセルでは上述の部分がエラーになるので、つぎのようにしてみました。

Sub データ抽出2()
Dim buf As String, buf1 As String, buf2 As String, n As Long
Worksheets("sample").Activate
Cells.ClearContents
Open "H:\Temp\sample.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
buf1 = Left(buf, Application.Find(";", buf, 1) - 1)
buf2 = Mid(buf, Application.Find(";", buf, 1) + 1, 30)
buf2 = Mid(buf2, Application.Find(";", buf2, 1) + 1, 30)
buf2 = Mid(buf2, Application.Find(";", buf2, 1) + 1, 30)
n = n + 1
Cells(n + 1, 2) = buf
Cells(2, n + 2) = buf1
Cells(3, n + 2) = buf2
Loop
Close #1
End Sub

buf2 =．．．．．が3回繰り返されていますが、三つ目の「 ; 」を検出するためです。
Cells(n + 1, 2) = buf　は、読み込んだデータがそのまま縦に配置されます。
この行は無くても良いのですが、比較のために残しておきました。
参考になれば幸いです。