Word VBA質問箱 IV

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

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


264 / 886 ←次へ | 前へ→

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

引用なし
パスワード
   かすみ さん、おはようございます。
>はじめて投稿いたします。
>Wordでのマクロ作成に苦心しており、お知恵を拝借したく投稿いたしました。
>CSVのファイルから、Wordで表作成をしたいのです。
>
>CSVファイルの中身が以下のようになっています。
>○○○,○○●●▲○○,■▲■,○○,○○,○○,▼▼●●,▼▲,▲▲●●,■■▲●
>○○○,○○▲▲■○○,■■●■,○○,○○,○○,▼●●,●▲●,▼●
>○○○,○○▲■▲○○,●▼,○○,○○,○○,■●▼,■▲,●■■
>以下数十行続く。

>○の文字列だけを取り除いて、カンマで区切られた部分を各セルに振り分けるイメージ。
>|●●▲|■▲■ |▼▼●●|▼▲ |▲▲●●|■■▲●
>|▲▲■|■■●■|▼●● |●▲●|▼●  |
>|▲■▲|●▼  |■●▼ |■▲ |●■■ |

>何卒よろしくお願いいたします。
○を抜いた後にセルがずれるかどうかわからないので、表にしてから行を削除しています。

Sub Tempo()
  Dim Ifile As String, s1 As String
  Dim RR As Long, CC As Long, Rmax As Long, Cmax As Long
  '新しい文書で作業
  Application.Documents.Add
  '読み込むファイル名
  Ifile = "C:\Tempo\Tempo.csv"
  'ファイルを読み込む『挿入→ファイル』
  With ActiveDocument.Content
   .InsertFile FileName:=Ifile, Range:="", _
   ConfirmConversions:=False, Link:=False, Attachment:=False
   '○を抜く『編集→置換』
   With .Find
     .Text = "○"
     .Replacement.Text = ""
     .Execute Replace:=wdReplaceAll
   End With
   '表に変換『罫線→表のオートフォーマット』
   .ConvertToTable Separator:=wdSeparateByCommas, AutoFitBehavior:=wdAutoFitFixed
   '追加した表を処理
   With .Tables(1)
     Cmax = .Columns.Count
     Rmax = .Rows.Count
     '
     For CC = Cmax To 1 Step -1
      s1 = ""
      '制御コード等を消した状態で全行空欄だったら列削除
      For RR = 1 To Rmax
        s1 = s1 & Replace(Replace(.Cell(RR, CC).Range.Text, Chr(13), ""), Chr(7), "")
      Next
      '全行空欄の列を抜く『罫線→削除→列』
      If s1 = "" Then .Columns(CC).Delete
     Next
   End With
   '保存したフリ
   .Parent.Saved = True
  End With
End Sub

『』内はマクロ記録した手順です。
ちなみに、13と7を消しているのは、確認してみたらそれが入っていたからです。
13はともかく何故7が入っているのかはよくわかりません。

1,771 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 お礼[未読]

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