Frage : Export-Frage zu Excel von Zugang 2007

Hallo, exportiere ich ein Fragenresultat in Microsoft Excel-Akte using den vba Code, der unten gezeigt wird. Ich stelle diese Akte übertreffe innen im Auftrag her, den ich die Verhandlungen zu JD Edwards importieren kann. Aus irgendeinem Grund wenn JD Edwards die Akte validiert, ermittelt es, dass es Leerzeilen nach der letzten Aufzeichnung in Excel gibt.  Ich benötige einen vba Code, den ich im Code unter dem integrieren kann lösche automatisch alle Linien im freien Raum nach der letzten Aufzeichnung. Ich dachte, dass wir benutzen könnten die erste Spalte des Arbeitsblattes für die Entdeckung, wenn es leer ist, dann, das der Auslöser für das Löschen der vollständigen Linie ist, aber ich nicht sie tun kann. Bitte helfen.



Function ExportFile ()
Dim strFilename als String
strFilename = „C:\KRISPY _IMPORT_EXPORT \ salesimport.xls "
DoCmd.TransferSpreadsheet TransferType: =acExport, SpreadsheetType: =acSpreadsheetTypeExcel8, TableName: = " GlManualEntries“, Dateiname: =strFilename

Dim übertreffen, während Object
Dim Buch als Object
Dim Blatt als Object
Set = CreateObject („Excel.Application“)
excel.DisplayAlerts = False
Set Buch = excel.workbooks übertreffen. (strFilename)
Set Blatt = book.worksheets (1)
sheet öffnen. Spalten (8).Formula = Blatt. Spalten (8).Formula
sheet. Spalten (9).NumberFormat = „#, ##0.00 "
sheet. Spalten (10).NumberFormat = „#, ##0.00 "
book. Save
excel. Quit
End Function

Antwort : Export-Frage zu Excel von Zugang 2007

Während es unterschiedliches etwas sein könnte, lag dieses Problem auf einem der Systeme I geregelt am Scheibenkontrolleur, der von DMA zu PIO-Modus umschält.  Die Verlegenheit war, in Vorrichtungsmanager einzusteigen und den „Primäride-Kanal“ und den „Sekundäride-Kanal“ zu entfernen und dann neu zu starten.  Windows sollte die Hardware wieder auto-detect und sie richtig zurückstellen.

Den angebrachten Schirmschuß sehen.