Forums Neueste Beiträge
 

Excel export

09/04/2010 - 22:05 von Johann Weiss | Report spam
Hallo,

ich wollte meine Abfrage nach Excel exportieren, nun hab ich mit folgenden
Code ein Problem.

Die Fehlermeldung lautet "DB kann das angesprochene Feld "Blatt" nicht
finden"

Hier der Code:



























































































Private Sub Befehl19_Click()
MakeSQLEx 'hier wird der SQL-String erstellt oder
aufgerufen
'Dim SQL As String
Dim oExcel As Excel.Application, DB As DAO.Database, RS As DAO.Recordset, I
As Long
On Error Resume Next
Err.Clear
Set oExcel = GetObject(, "Excel.Application ")
If Err.Number <> 0 Then Set oExcel = CreateObject("Excel.Application")
On Error GoTo 0
With oExcel
.Visible = True
.Workbooks.Add
.ActiveSheet.NAME = CStr(Me!Blatt) ' <<<<<<<<< Hier kommt die
Fehlermeldung
CurrentDb.QueryDefs!qry_suchen_ex.SQL = SQL
Set DB = CurrentDb
Set RS = DB.OpenRecordset("qry_stüli_ex", dbOpenSnapshot)
If Me!Spaltenk Then
For I = 0 To RS.Fields.Count - 1
.Cells(1, I + 1) = RS.Fields(I).NAME
Next I
.Range("A2").Select
Else
.Range("A1").Select
End If
.Selection.CopyFromRecordset RS

' Verschönerung

.Range("A1:Q1").Select
With .Selection.Font
.Bold = True
.NAME = "Arial"
.Size = 10

End With
.Columns("A:Z").EntireColumn.AutoFit
If MsgBox("Möchten Sie Speichern?", vbYesNo + vbQuestion) = vbYes Then
.ActiveWorkbook.SaveAs Me!FName
Else
.ActiveWorkbook.Close SaveChanges:=False
End If
.Quit
End With
End Sub




























































































Wer schön wenn jemand wüßte was ich da falsch gemacht habe.

Gruß Johann
 

Lesen sie die antworten

#1 Peter Doering
10/04/2010 - 01:51 | Warnen spam
Hallo,

Johann Weiss wrote:

ich wollte meine Abfrage nach Excel exportieren, nun hab ich mit folgenden
Code ein Problem.

Die Fehlermeldung lautet "DB kann das angesprochene Feld "Blatt" nicht
finden"

Hier der Code:





























































Private Sub Befehl19_Click()
MakeSQLEx 'hier wird der SQL-String erstellt oder
aufgerufen
'Dim SQL As String
Dim oExcel As Excel.Application, DB As DAO.Database, RS As DAO.Recordset, I
As Long
On Error Resume Next
Err.Clear
Set oExcel = GetObject(, "Excel.Application ")
If Err.Number <> 0 Then Set oExcel = CreateObject("Excel.Application")
On Error GoTo 0
With oExcel
.Visible = True
.Workbooks.Add
.ActiveSheet.NAME = CStr(Me!Blatt) ' <<<<<<<<< Hier kommt die
Fehlermeldung



Bei mir nicht, sofern ein gueltiger Name verwendet wird. Was steht denn in
Me!Blatt, wenn der Fehler auftritt?

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen