|
かすみ さん、こんばんは。
>カンマで区切られた、データのn番目とn番目を抜き出して、表にするにはどのようにしたら良いでしょうか。
>sprit関数を使うということは調べられたのですが。。。
Spritの使い方はわりと最近EXCEL質問箱でもあったので省きますが。
>重ねての質問であり、誠に申し訳ないのですが、ヒントだけでも頂ければ幸いです。
csvを1行ずつ読み込み、Splitで分割してから必要なところだけをドッキングした文字列を作成し、文書にとりこんで表のオートフォーマットで体裁を整えています。
Sub tempo2()
Dim s1 As String, s2 As Variant, s3 As String
Ifile = "D:\Tempo\Tempo2.csv"
Open Ifile For Input As #1
Do Until EOF(1)
Line Input #1, s1
If s3 <> "" Then s3 = s3 & vbCrLf
s2 = Split(s1, ",") 'カンマで区切る(0スタート)
'エラーチェックはしていません
' |2番目 |6番目 |9番目 |12番目&13番目|
s3 = s3 & s2(1) & "," & s2(5) & "," & s2(8) & "," & s2(11) & s2(12)
Loop
Close #1
Application.Documents.Add
With ActiveDocument.Content
'テキストを文書に
.Text = s3
'表の体裁に
.ConvertToTable Separator:=wdSeparateByCommas, AutoFitBehavior:=wdAutoFitFixed
End With
End Sub
|
|