ein Blatt zu einem Worttabelle exportieren gibt ein seltsames Ergebnis

Question

ich dieses Makro schrieb eine Excel-Tabelle in eine Word-Tabelle zu exportieren:

Private Sub Export_Click()  'export to word table 
Dim objWord As Object 
Dim objDoc As Object 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
Sheets("export").Visible = True  'make hidden sheet visible 
Set objDoc = objWord.documents.Add() 
LastRow = Sheets("export").Range("$G$1").Value 'number of lines to export 
For i = 1 To LastRow 
Sheets("export").Rows(i).EntireRow.Copy 
objWord.Selection.Paste 
Next i 
Application.CutCopyMode = False   'clear the clipboard 
Sheets("export").Visible = 2  'hide the sheet 
End Sub 

Das Ergebnis ist eine seltsames formatiert ist table mit Zellen breite und breiter in Richtung der immer unten, während das Originalblatt die gleiche Formatierung für alle Zeilen und Spalten aufweist.

Wie kann ich das lösen?

Answer 1

Anstatt die Tabelle Zeile für Zeile zu exportieren, können Sie die gesamte Tabelle auf einmal kopieren und einfügen.

Sub Export_Click() 
    'export to word table 
    Dim objWord As Object 
    Dim objDoc As Object 
    Set objWord = CreateObject("Word.Application") 
    objWord.Visible = True 
    Sheets("export").Visible = True  'make hidden sheet visible 
    Set objDoc = objWord.Documents.Add() 
    lastrow = Sheets("export").Range("$G$1").Value 'number of lines to export 

    Range("A1:F" & lastrow).Copy 'mention the number of columns you want to copy 

    With objWord 
     .Documents.Add 
     .Selection.Paste 
     .Visible = True 
    End With 

    Application.CutCopyMode = False   'clear the clipboard 
    Sheets("export").Visible = 2  'hide the sheet 
End Sub