Exceldaten nach Word exportieren
18.06.2007 17:19:00
Sveta
Hallo alle,
Könnte mir jemand bei folgendem Problem helfen?:
Ich habe eine Tabelle in Excel, von der ich nur bestimmte Einträge nach Word exportieren muss.
Im Moment kann ich nur eine komplette Worksheet exportieren:
Sub ExportToWord()
Dim objWord As Object
Dim objDoc As Object
Dim shAdr As Worksheet
Dim intRow As Integer, intCol As Integer
Dim strText As String
ThisWorkbook.Worksheets("Sheet1").UsedRange.copy
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
objDoc.Range.Paste
objDoc.SaveAs ActiveWorkbook.Path & "\test.doc"
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing
End Sub
Ich möchte aber dass bestimmte Einträge kopiert werden, etwa so:
ThisWorkbook.Worksheets("Sheet1").Range("A1:C1").copy
objDoc.Range.Paste
' Hier folgt Zeilenumbruch in der Word-Datei (?)
ThisWorkbook.Worksheets("Sheet1").Range("D1").copy
objDoc.Range.Paste
' usw...
Ich wäre superdankbar für ein Beispiel oder weitere Tipps!
Gruß, Sveta