|
こんにちは。
excelデータをwrodにコピペしたいです。
excelの単一行をコピペします。(例 c9からH9)
下記まで自力でできました。
このままですと新規文書が開きますが、本当は当該excelと同じカレントpathに存在する既存文書”Lec.doc"を開きたいです。
また”Lec.doc"はすでにテキストボックスが用意されていて、
ActiveCell.Offset(0, 0).Valueは一番上のテキストボックスへ、
ActiveCell.Offset(0, 1).Valueは二番目のテキストボックスへ、、、、
というふうにしたいのです。
そのようなことができるでしょうか?
どなたか御教示ください。
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
myWord.Selection.TypeText myText & vbCrLf
myWord.Selection.TypeParagraph
myText = ActiveCell.Offset(0, 1).Value
myWord.Selection.TypeText myText & vbCrLf
myWord.Selection.TypeParagraph
myText = ActiveCell.Offset(0, 2).Value
myWord.Selection.TypeText myText & vbCrLf
myWord.Selection.TypeParagraph
myText = ActiveCell.Offset(0, 3).Value
myWord.Selection.TypeText myText & vbCrLf
myWord.Selection.TypeParagraph
myText = ActiveCell.Offset(0, 4).Value
myWord.Selection.TypeText myText & vbCrLf
myWord.Selection.TypeParagraph
myText = ActiveCell.Offset(0, 5).Value
myWord.Selection.TypeText myText & vbCrLf
End Sub
|
|