|
kanさん
こんにちは。
行と列の入れ替えは、データ全部を一度配列に取り込んで、Transposeなり、
新しい、シートをつくってそこに転記なりすればよいと思います。
ワードに貼るのはわかっているということですが、
一応、下にかいときますね。
10回の繰り返しにしてますが、このコードですと、
先に10ページ用意しとく必要があります。
Sub ワードに貼り付け()
Dim i As Integer
Dim exF As String, wdF As String
Dim cpR As String
For i = 1 To 10
exF = "test.xls" 'エクセルファイルの名前
wdF = "test.doc" 'ワードファイルの名前
cpR = "A" & i & ":C" & i 'コピーする箇所
Workbooks(exF).Activate 'まず、エクセルからコピー
Range(cpR).Copy
Documents(wdF).Activate 'ワードにペースト
Word.Selection.Paste
Word.Selection.GoToNext wdGoToPage 'ちょっと強引に次のページに移動。
Next i
End Sub
|
|