Export Access -> Excel Zellenformatierung wird nicht übernommen

Question

Hallo,

ich habe ein großes Problem.

Ich importiere mit Access Daten aus einer Textdatei in eine Tabelle. Die Daten sind in der Textdatei in einer festgelegten Struktur und werden mittels einer Importspezifikation importiert.

Die Datenfelder in der Tabelle sind auch dementsprechend definiert.

Diese Tabelle wird dann nach Excel exportiert, dort optisch etwas verschönert und weiterverarbeitet.

Dies funktioniert auch fast alles wunderbar, allerdings ist nun ein Problem aufgetreten.

In der Tabelle sind Zahlenfelder enthalten. Manche mit, manche ohne Nachkommastellen. Beim Export der Tabelle nach Excel wird in Excel zwar mittels Rechtsklick/Felder formatieren die richtige Formatierung angezeigt, allerdings scheint diese nicht aktiv zu sein. Ich kann mit den Feldern nicht weiterrechnen. Dies ist erst möglich, wenn ich einmal ein Doppelklick in die betroffene Zelle gemacht habe. Dann ist die Zelle richtig formatiert.

Mit den Funktionen =ISTZAHL und =ISTTEXT lässt sich dieses ja auch prüfen.

Wie ist es nun möglich die Tabelle direkt so zu exportieren, dass die Zellen auch wirklich richtig formatiert sind ?

Es handelt sich teilweise um große Dateien mit mehreren tausend Datensätze. Damit fällt eine händische Anpassung weg.

[CODE]

       DoCmd.RunSavedImportExport "77sovstor"

        Set Db = Nothing

        Dim rs As DAO.Recordset, fld As DAO.Field

        Dim strSQL As String

        Set rs = CurrentDb.OpenRecordset("Select * From sovency77 Where False")

        For Each fld In rs.Fields

            If fld.Type = dbText Then

                strSQL = strSQL & ", Trim(sovency77." & fld.Name & ") As " & fld.Name

            Else

                strSQL = strSQL & ", " & fld.Name

            End If

        Next

        rs.Close

        strSQL = "Select " & Mid(strSQL, 3) & " From sovency77"

        CurrentDb.CreateQueryDef "77soven", strSQL

        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "77soven", "E:\77\77sovstor.xls"

        DoCmd.DeleteObject acQuery, "77soven"

        Set xlAnw = CreateObject("excel.application")

        xlAnw.Visible = True

        xlAnw.Workbooks.Open FileName:="E:\77\77sovstor.XLS"

        xlAnw.Cells.Select

        xlAnw.Range("F:H;P:X;AG:AN;BE:BG;BP:BW;CN:CP;CY:DF;DW:DY;EH:EO;FF:FH;FQ:FX;GO:GQ").Select

        xlAnw.Selection.NumberFormat = "0"

        xlAnw.Cells.Select

        xlAnw.Range("Y:AF;AO:BC;BH:BO;BX:CL;CQ:CX;DG:DU;DZ:EG;EP:FD;FI:FP;FY:GM").Select

        xlAnw.Selection.NumberFormat = "0.00"

        xlAnw.Range("A:C;E:HZ").Select

            With Selection

                .HorizontalAlignment = xlRight

            End With

        xlAnw.Cells.Select

        xlAnw.Selection.Columns.AutoFit

        xlAnw.Rows("1:1").Select

        xlAnw.Selection.Interior.ColorIndex = xlNone

        xlAnw.Selection.Borders(xlDiagonalDown).LineStyle = xlNone

        xlAnw.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

        xlAnw.Selection.Borders(xlEdgeLeft).LineStyle = xlNone

        xlAnw.Selection.Borders(xlEdgeTop).LineStyle = xlNone

        xlAnw.Selection.Borders(xlEdgeBottom).LineStyle = xlNone

        xlAnw.Selection.Borders(xlEdgeRight).LineStyle = xlNone

        xlAnw.Selection.Borders(xlInsideVertical).LineStyle = xlNone

        xlAnw.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

[/CODE]

Ich hoffe hier kann mir jemand weiterhelfen, da die 299 Euro für eine direkte Anfrage bei Microsoft leider nicht in Frage kommen.

gruß

Patrick

Answer 1

Hallo Patrick,

schaue mal bitte, ob du auf den folgenden beiden Webseiten fündig wirst:

www.donkarl.com

www.accessribbon.de

Du kannst dich aber auch direkt an das Entwickler-Forum von Microsoft wenden. Das Microsoft-Developer-Netzwerk ist auf diese Anfragen spezialisiert.

Leider ist es mir nicht möglich deine Anfrage direkt dorthin zu verschieben, ich möchte dich deshalb bitten diese Anfrage erneut im MSDN-Forum zu stellen.

Hier der Link zum Forum:

http://social.msdn.microsoft.com/Forums/de-DE/category/officede

Es wäre sehr nett von dir, wenn du uns einen Link zu deiner Anfrage im MSDN-Forum zur Verfügung stellst. Auf diese Weise können auch andere User schnell die Antwort finden.

Gruß,

Pauline

Answer 2

Hier dann der Link, damit interessierte dies auch weiter verfolgen können.

http://social.msdn.microsoft.com/Forums/de-DE/72bdbb0d-7ac2-4478-9c0b-5dad4cb947df/export-access-excel-zellenformatierung-wird-nicht-bernommen?forum=accessde