Office: (Office 2003) Daten aus Abfrage in Excel-Sheet ausgeben

Borasol · 12. April 2006

Hallo allseits!
Ich habe folgendes Problem: ich soll Daten einer Acc-Abfrage in ein bestimmtes Arbeitsblatt einer (bestehenden) Excel-Tabelle ausgeben, u.zw. ab Zeile 10. Wie muß der Code in VBA aussehen, damit das funktioniert?
Die Abfrage heißt "AW_Verwendungsnachweis", das Excel "Verwendungsnachweis.xls", das Arbeitsblatt "FinÜbersicht".
Danke für jede Hilfe!
Und schöne Ostern! *Smilie

:)

Großer Meister · 14. April 2006

schau mal hier: Excelsteuerung

Borasol · 14. April 2006

Hallo Markus!
Danke! Ich glaub, das könnt funzen! Komm nur jetzt nimmer dazu, nach Ostern bau ich's dann ein und meld mich, obs gegangen ist!
LG
Eli

Borasol · 18. April 2006

Hat tatsächlich gefunzt! Habs sogar geschafft, ein bestimmtes Arbeitsblatt zu adressieren! *Smilie
Nun noch eine Frage: die Exceldatei ist schreibgeschützt (habs mit einer anderen probiert) - kann ich, wenn ich das Paßwort weiß, diesen Schutz temporär aufheben und nachher wieder aktivieren? (vom Programm aus, nicht händisch)

Borasol · 17. Mai 2006

Wärme das mal wieder auf!
Nun stellt sich das Problem, daß nicht alle Benutzer des Programms dieselbe Excel-Version installiert haben. Kann ich vom Programm aus (per Code) den Verweis auf Excel umschalten z.B. von Microsoft Excel 11.0 auf 10.0? Ich selbst hab nur Office 2003 und daher keine MÖglichkeit, einen Verweis auf Excel 2000 zu setzen. Und noch was: Ist Excel 2002 die Version 11.0 oder 10.0?

Großer Meister · 17. Mai 2006

wenn du Late-Binding verwendest, brauchst du gar keinen Verweis auf Excel.
Schau mal hier: Late-Binding

Borasol · 17. Mai 2006

Vielen Dank! War zwar etwas Sucherei und "Try and Error" - aber jetzt funzt es tatsächlich!
Eine Frage noch: wie kann ich feststellen, ob die Excel-Datei, in die ich hineinschreibe, gerade geöffnet ist? Wenn ja, bleibt das Programm nämlich hängen. Möchte also vorher abfragen, ob geschlossen.

Steffen0815 · 17. Mai 2006

Hallo,
mit Kanonen nach Spatzen geschossen: Code:

Option Compare Database
Option Explicit
Function StatusExcelDat(ExcelFullDatNam As String, ExcelTabNam As String) As String
' ============
' Ab Access 97
' ============
' Ergebnis:
' 1. Stelle: 0: kein Excel offen
' 1: excel offen
' 2: Stelle: 0: Exceldatei existiert nicht
' 1: Exceldatei existiert
' 3: Stelle: 0: Exceldatei geschlossen
' 1: Exceldatei offen
' 4: Stelle: 0 Tabellenblatt existiert nicht
' 1 Tabellenblatt existiert
' 4: Stelle: 0 Tabellenblatt existiert nicht
' 1 Tabellenblatt existiert
' 5: Stelle: 0 Name existiert nicht
' 1 Name existiert

Dim WorkBookNam As String, Ergebnis As String
Dim ExcelDatExist As Boolean, TabExist As Boolean, ExcelIsOpen As Boolean
Dim NameExist As Boolean, WorkbookIsOpen As Boolean
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object ' Excel.Worksheet
Dim i As Integer
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
Else
ExcelIsOpen = True
End If
On Error GoTo 0

' xls anhängen, falls user gepennt
If Len(ExcelFullDatNam) < 5 Then ExcelFullDatNam = ExcelFullDatNam & ".xls"
If Mid(ExcelFullDatNam, Len(ExcelFullDatNam) - 3, 4) ".xls" Then _
ExcelFullDatNam = ExcelFullDatNam & ".xls"

If Len(Dir(ExcelFullDatNam)) > 0 Then
ExcelDatExist = True
' Ermittlung des Dateinamens aus dem Namen incl. Pfad
' Ab AC 2000 ist dies einfacher mit InstrRev
Dim ii As Integer, iiPos As Integer
For ii = 1 To Len(ExcelFullDatNam)
If Mid(ExcelFullDatNam, ii, 1) = "\" Then iiPos = ii
Next
WorkBookNam = Mid(ExcelFullDatNam, iiPos + 1)

For Each xlBook In xlApp.Workbooks
If xlBook.Name = WorkBookNam Then WorkbookIsOpen = True
Next
If Not WorkbookIsOpen Then
Set xlBook = xlApp.Workbooks.Open(ExcelFullDatNam)
Else
Set xlBook = xlApp.Workbooks(WorkBookNam)
End If
For i = 1 To xlBook.names.Count
Debug.Print xlBook.names(i)
If xlBook.names(i).Name = ExcelTabNam Then NameExist = True
Next
For Each xlSheet In xlBook.Worksheets
If xlSheet.Name = ExcelTabNam Then TabExist = True
Next
If Not WorkbookIsOpen Then xlBook.Close
End If

If Not ExcelIsOpen Then xlApp.Application.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
If ExcelIsOpen Then Ergebnis = "1" Else Ergebnis = "0"
If ExcelDatExist Then Ergebnis = Ergebnis & "1" Else Ergebnis = Ergebnis & "0"
If WorkbookIsOpen Then Ergebnis = Ergebnis & "1" Else Ergebnis = Ergebnis & "0"
If TabExist Then Ergebnis = Ergebnis & "1" Else Ergebnis = Ergebnis & "0"
If NameExist Then Ergebnis = Ergebnis & "1" Else Ergebnis = Ergebnis & "0"
StatusExcelDat = Ergebnis
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Borasol · 17. Mai 2006

In der Tat! *Smilie
Scheint aber recht brauchbar, das Ding. Nur eine Frage: was bedeutet "Name existiert/nicht"? Um welche(n) Namen handelt es sich da?

Steffen0815 · 17. Mai 2006

Hallo,
Name ist ein Bereichs(name) in Excel.

Bezieht sich auf "DoCmd.TransferSpreadsheet":

Wenn Access eine Tabelle exportiert, legt es in Excel zusätzlich zum Blatt(namen) einen (Bereichs)Namen an (z.B. Tabelle1=Tabelle1!$A$1:$F$3).
Wird die Tabelle jetzt umbenannt (Tabelle1->Tabelle1_alt) orientiert sich ein späterer Export nicht am Blatt sondern am (Bereichs-)Namen ("Tabelle1"). Das hat den Effekt, dass nicht ein Blatt Tabelle1 angelegt wird, sondern der Export nach "Tabelle1_alt") erfolgt.
Vor dem Export in eine bestehende Datei sollte also sowohl der Blattname als auch der Bereichsname gelöscht werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Borasol · 17. Mai 2006

Danke Dir! Ich glaube, das betrifft mich nicht, weil ich nicht mit TransferSpreadSheet ausgebe, sondern in einer bestehenden Tabelle direkt die Zellen anspreche und fülle.

Steffen0815 · 17. Mai 2006

Hallo,

Eine Frage noch: wie kann ich feststellen, ob die Excel-Datei, in die ich hineinschreibe, gerade geöffnet ist? Wenn ja, bleibt das Programm nämlich hängen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann hast du aber was falsch gemacht, denn mit OLE kann man (im Gegensatz zu TransferSpreadSheet) in offenen Dateien schreiben.

Borasol · 17. Mai 2006

Hallo!
Kann schon sein, aber jetzt frag ich ab, und wenns Excel zu ist, klappts. Damit geb ich mich zufrieden!*Smilie
LG, Eli

marioo24 · 23. Mai 2007

Und wie kann ich den Bereichsnamen löschen?

Office: (Office 2003) Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben

Daten aus Abfrage in Excel-Sheet ausgeben - Similar Threads - Daten Abfrage Excel

Import Daten aus Access Abfrage klappt nicht

Excel lädt die Daten nicht sobald Abfragekriterium für ein Textfeld erstellt wird

Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen

Datensatz abfragen und Daten ergänzen

Mit SQL-Abfragen Access-Daten in Excel übertrage

Daten zurückschreiben über Verknüpfte Abfrage

Sortierung von Daten via Abfrage?