Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

excel-download aus access-formate ändern
Autor: groggi
Datum: 21.04.05 16:48
Hi, was ist bloß an folgendem code falsch. Es wird alles ignoriert, was nach 'Tabelle in Excel öffnen... kommt: Option Compare Database Option Explicit Private Sub cmdExcel_Click() On Error GoTo Err_cmdExcel_Click Dim oApp As Object Dim objExcel As Object Set oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97 _ , "Zahlungen", "c:\temp\zahlungenexp.xls", True 'Tabelle in Excel öffnen und sichtbar machen With objExcel .Visible = True .Workbooks.Open "c:\temp\zahlungenexp.xls" '.objExcel.ActiveWorkbook. End With ' Formatieren der Zellen With objExcel '.Sheets (1) .Range("A:A").NumberFormat = "General" .Range("B:B").TextFormat .Range("C:C").NumberFormat = "General" .Range("D").Select .Selection.NumberFormat = "#,##0.00" .Interior.Color = RGB(255, 255, 0) .Range("D").ColumnWidth = 18 .Range("E:E").Select .Selection.Columns.AutoFit .Selection.NumberFormat = "#,##0.00" 'Wenn gewünscht Zellenüberschriften Fett und Autofilter setzen .Range("A1:N1").Font.Bold = True .Range("A1:N1").Select .Selection.AutoFilter End With objExcel.Workbooks.Close objExcel.Quit Exit_cmdExcel_Click: Exit Sub Err_cmdExcel_Click: MsgBox Err.Description Resume Exit_cmdExcel_Click End Sub Hoffentlich kann mir einer helfen, bin noch neu im Geschäft. Danke ! Groggi

excel-download aus access-formate ändern

706

groggi

21.04.05 16:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen