#1です。
まず、操作についてですがエクセル→ワードへのデータ引渡しは手動で行います。
方法は
添付画像のように
(A列)(B列)(C列)
(1行目)○ ◇ △
(2行目)△ ○ ○
(3行目)□ ◇ □
・・・
(100行目)□ △ ◇
のデータを作りエクセルメニューより「ファイル」→「名前を付けて保存」→保存先を仮にデスクトップとして「ファイルの種類」を「CSV(カンマ区切り)(*.csv)」にしてファイル名を「Test.csv」にし、「保存」を押してください。
終わったらエクセルは閉じてください。
次にワードを開き、添付画像のような表を作ってください。
内容は空でいいです。
次に前回同様、標準モジュールを↓のようにして下さい。
Sub TEST()
Dim CsvText1(1 To 100) As String
Dim CsvText2(1 To 100) As String
Dim CsvText3(1 To 100) As String
Dim I As Long
Dim FileName As String
Dim FF As Integer
Dim TableX As Long, TableNo As Long
TableNo = 1
I = 1
FF = FreeFile
FileName = "C:\★要変更★\デスクトップ\Test.csv" '環境に合わせ変更
Open FileName For Input As #FF
Do Until EOF(FF)
Input #FF, CsvText1(I), CsvText2(I), CsvText3(I)
I = I + 1
Loop
Close #FF
TableX = InputBox("挿入するのは何列目ですか?")
For I = 1 To 100
ActiveDocument.Range.Tables(TableNo).Cell(1, TableX).Select
Selection.TypeText Text:=CsvText1(I)
ActiveDocument.Range.Tables(TableNo).Cell(2, TableX).Select
Selection.TypeText Text:=CsvText2(I)
ActiveDocument.Range.Tables(TableNo).Cell(3, TableX).Select
Selection.TypeText Text:=CsvText3(I)
TableNo = TableNo + 1 '次のテーブルに移動
Next I
MsgBox ("完了")
End Sub
実行すると何行目か聞いてくるので1~6の数字を入れ続行すれば結果が出ます。
お試しください。
お礼
いつも親切ご丁寧にありがとうございます。 早速試してみることにします。