Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

262 / 886

←次へ　｜　前へ→


	【640】Re:csvを表に変換したいのですが。。。

りる - 09/5/19(火) 19:05 -


	引用なし

	パスワード

かすみさん、こんばんは。

>カンマで区切られた、データのn番目とn番目を抜き出して、表にするにはどのようにしたら良いでしょうか。
>sprit関数を使うということは調べられたのですが。。。
Spritの使い方はわりと最近EXCEL質問箱でもあったので省きますが。

>重ねての質問であり、誠に申し訳ないのですが、ヒントだけでも頂ければ幸いです。
csvを１行ずつ読み込み、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, ",") 'カンマで区切る（０スタート）
　　　　 'エラーチェックはしていません
　　　　 '　　　　|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

1,659 hits

▼

【637】csvを表に変換したいのですが。。。 かすみ 09/5/18(月) 14:52