docmd.TransferArbeitsblatt-Zugriff --> Excel - / / / / Ziel angeben Arbeitsblatt UND Palette

Ich zu schreiben habe einige Access-VBA exportieren von Daten aus einer Access-Abfrage in einem bestimmten Bereich von Zellen in einem Excel-Dokument mit mehreren Arbeitsblättern.

Ich habe Schwierigkeiten, den richtigen Weg zu finden, um anzugeben, die Arbeitsblatt UND Palette.

Hier ist was ich habe, so weit:

docmd.TransferSpreadsheet(TransferType:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel8, TableName:=qry_Main, _
    FileName:="c:\test.xlsm", _
    HasFieldNames:=False, _
    Range:="Main!J9:J10")

Das abgebrochene Stück ist Range:="Main!J9:J10"

Was ist der richtige Weg, um diesen Verweis?

InformationsquelleAutor sion_corn | 2014-02-07

  1. 4

    Können Sie die CopyFromRecordset-Methode und Automatisierung:

    Sub XLTrans()
''Reference: Microsoft ActiveX Data Object x.x Library
Dim rs As New ADODB.Recordset
Dim xl As Object ''Excel.Application
Dim wb As Object ''Workbook

Set xl = CreateObject("Excel.Application")

''Pick one
''1. New book
Set wb = xl.Workbooks.Add

''2. Existing book
Set wb = xl.Workbooks.Open("z:\docs\book1.xlsx")

''Connection relevant for 2007 or 2010
rs.Open "MyTableOrQuery", CurrentProject.AccessConnection

wb.Sheets("Sheet1").Cells(4, 5).CopyFromRecordset rs

xl.Visible = True

End Sub

    Beachten Sie, dass dies nicht die Spaltenüberschriften, sondern Sie können Sie, wie zum Beispiel:

    For i = 0 To rs.Fields.Count - 1
    Worksheets("Sheet1").Cells(3, i + 5) = rs(i).Name
Next
    Danke, ich werde dies ausprobieren und Euch wissen lassen. +1 für jetzt.
    Wie würde ich in der Lage sein zu transfer Access Daten in eine bestehende Excel-Arbeitsmappe? Ich habe einen Pfad zu der Excel-Datei. Es scheint, wie Ihre Lösung erstellt eine neue Arbeitsmappe, das ist nicht das, was ich brauche.
    Sie können die gleiche Idee, eine Arbeitsmappe zu öffnen. Ich habe soeben einen Hinweis.
    Das funktionierte! Danke!

    InformationsquelleAutor Fionnuala

  2. 2

    http://msdn.microsoft.com/en-us/library/office/ff844793.aspx
    http://msdn.microsoft.com/en-us/library/office/aa141565(v=office.10).aspx

    Können Sie nicht verwenden-BEREICH für Export:
    "
    Bereich Optionale Variante. Ein Zeichenfolgenausdruck, der einen gültigen Zellenbereich oder den Namen eines Bereichs in der Kalkulationstabelle. Dieses argument gilt nur für den Import. Lassen Sie dieses argument leer, um importieren Sie die gesamte Tabelle. Beim exportieren in ein Arbeitsblatt müssen Sie lassen Sie dieses argument leer. Wenn Sie geben Sie einen Bereich ein, der export fehl.

    "

    ah, das lehrt mir, ich sollte mir Zeit lassen beim Lesen der MSDN 😉 +1 für den Hinweis.

    InformationsquelleAutor Alan Waage

Schreibe einen Kommentar