Word VBA質問箱 IV

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

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


322 / 886 ←次へ | 前へ→

【580】Wordを起動しExceをlコピペするには
質問  にしもり  - 08/6/26(木) 11:36 -

引用なし
パスワード
   Word投稿はじめてです。
よろしくお願いします。
Excelシートに入力済みの文字列を、wordを起動して転記したいです。
転記したいのは単一行の複数列です。(例、C9からH9まで)
みようみまねで以下つくってみましたが、まるでうごきません。
どこが悪いか御教えいただけないでしょうか。


Sub test()

  Dim myWord As Variant ' Word.Application
  Dim myWordDoc As Variant ' Word.Document
  Dim myText As Variant

'Wordを起動
  On Error Resume Next
  Set myWord = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
   Set myWord = CreateObject("Word.Application")
   Set myWordDoc = myWord.Documents.Add
   myWord.Visible = True
  End If
  On Error GoTo 0

'Excelシート上の選択されたセル、およびその右側5列目までを順次コピペ  
  myText = ActiveCell.Offset(0, 0).Value
  myText = ActiveCell.Offset(0, 1).Value
  myText = ActiveCell.Offset(0, 2).Value
  myText = ActiveCell.Offset(0, 3).Value
  myText = ActiveCell.Offset(0, 4).Value
   myText = ActiveCell.Offset(0, 5).Value

End Sub

1,688 hits

【580】Wordを起動しExceをlコピペするには にしもり 08/6/26(木) 11:36 質問[未読]
【581】Re:Wordを起動しExceをlコピペするには にしもり 08/6/26(木) 14:54 お礼[未読]

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