Excel VBA-Schaltfläche kopieren Arbeitsblatt in neues Word-Dokument

Der folgende Code kopiert eine Tabelle, die ich in einem Arbeitsblatt habe, und fügt es in einem neuen Microsoft Word-Dokument ein. Das einzige Problem ist, dass die Hälfte der Tabelle beim Einfügen in das Word-Dokument abgeschnitten wird. Irgendwelche Vorschläge? Vielen Dank.Excel VBA-Schaltfläche kopieren Arbeitsblatt in neues Word-Dokument

Sub btnExport() 
Dim objWord As Word.Application 
Range("C2:D60").Copy 

Set objWord = CreateObject("Word.Application.14") 
With objWord 
    .Documents.Add 
    .Visible = True 
    .Selection.Paste 
End With 
End Sub

Sheet I'm using

Quelle

2017-03-15 Cole Gwozdecki

Können Sie ein Beispiel für die Daten angeben, die Sie kopieren? Auch welche Hälfte ist abgeschnitten? Verlieren Sie die Unterseite des Tisches oder läuft die zweite Spalte auf der rechten Seite der Seite? – Dave

Die zweite Spalte wird auf der rechten Seite der Seite angezeigt. –

Haben Sie in Erwägung gezogen, den Querformatmodus anstelle von Hochformat in Word zu verwenden? Oder ist der Tisch selbst dann zu groß? Sie haben nur zwei Spalten - wie groß sind die Daten in jeder Spalte? Können Sie ein Beispiel für die verwendeten Daten angeben? – Dave

können Sie den Befehl Wort AutoFit verwenden, um die Tabelle passen in das Dokument zu machen. Ich habe Code eingefügt, um die Ausrichtung auch auf Landscape zu setzen, aber dies ist möglicherweise nicht notwendig.

Sub btnExport() 
    Dim objWord As Word.Application 
    Range("C2:D60").Copy ' you should name the worksheet as well here really 

    Set objWord = CreateObject("Word.Application.14") 
    With objWord 
     .Documents.Add 
     .ActiveDocument.PageSetup.Orientation = 1 'wdOrientLandscape 
     .Visible = True 
     .Selection.Paste 
     .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow 
    End With 
End Sub

Quelle

2017-03-15 19:31:17 Dave

Methode oder Datenelement nicht gefunden Fehler. Tabellen (1) .AutoFitBehavior 2 'wdAutoFitWindow –

Hoppla. Tables ist eine Sammlung, die zu einem 'Document' Objekt gehört - bearbeitet. – Dave

Perfekt, danke! –

Excel VBA-Schaltfläche kopieren Arbeitsblatt in neues Word-Dokument

Antwort

Verwandte Themen