Word VBA質問箱 IV

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

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


262 / 886 ←次へ | 前へ→

【640】Re:csvを表に変換したいのですが。。。
回答  りる  - 09/5/19(火) 19:05 -

引用なし
パスワード
   かすみ さん、こんばんは。

>カンマで区切られた、データの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

1,657 hits

【637】csvを表に変換したいのですが。。。 かすみ 09/5/18(月) 14:52 質問[未読]
【638】Re:csvを表に変換したいのですが。。。 りる 09/5/19(火) 4:49 回答[未読]
【639】Re:csvを表に変換したいのですが。。。 かすみ 09/5/19(火) 15:11 質問[未読]
【640】Re:csvを表に変換したいのですが。。。 りる 09/5/19(火) 19:05 回答[未読]
【641】Re:csvを表に変換したいのですが。。。 かすみ 09/5/20(水) 17:23 お礼[未読]

262 / 886 ←次へ | 前へ→
ページ:  ┃  記事番号:
207129
(SS)C-BOARD v3.8 is Free