Excel VBA質問箱 IV

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

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


28961 / 76738 ←次へ | 前へ→

【53067】Re:エクセルデータをワードで表示するマクロ
回答  ちくたく E-MAIL  - 07/12/13(木) 15:55 -

引用なし
パスワード
   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
0 hits

【53051】エクセルデータをワードで表示するマクロ kan 07/12/12(水) 22:29 質問
【53063】Re:エクセルデータをワードで表示するマクロ Jaka 07/12/13(木) 12:05 発言
【53067】Re:エクセルデータをワードで表示するマクロ ちくたく 07/12/13(木) 15:55 回答

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