title image


Smiley Re: Abfrage via VBA in Excel ausgeben
Public Function Excelexport()

Dim db As Database, RS As Recordset, StrSQL As String, Pfad as String

Dim Excel97 As Object 'auskommentieret,weil erst zur Laufzeit aktiv wg. gebrochener Verweise Excel.Application

Set db = CurrentDb



If Dir(Nz("C:\WINNT\Profiles\baggett\Desktop\Produktionsreport.xls", "'")) "" Then

Pfad = "C:\WINNT\Profiles\baggett\Desktop\Produktionsreport.xls"

Else

MsgBox "Datei nicht vorhanden - Bitte in deinPfad kopieren", 48, "Export nach Excel"

Exit Function

End If





On Error GoTo Fehler

StrSQL = "hier kommt die SYL-Abfrage deines Formulars rein"

Set RS = db.OpenRecordset(StrSQL, dbOpenSnapshot)

Set Excel97 = GetObject(, "Excel.Application") 'jetzt wird Excel gesetzt

On Error GoTo 0

With Excel97

.Visible = True

.Workbooks.Open Pfad

.Sheets("deinBlatt").Select

.Range("A2").CopyFromRecordset RS



RS.Close

.ActiveWorkbook.Close SaveChanges:=True

End With



Set Excel97 = Nothing

Exit Function



Fehler:

Set Excel97 = CreateObject("Excel.Application")

Resume Next

End Function
Gruß

Wolli     danke für eure Fragen, so weiß ich, daß ich nichts weiß...

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: