Cuestión : Pregunta de la exportación a Excel del acceso 2007

Hola, estoy exportando un resultado de la pregunta al archivo de Microsoft Excel usar el código del vba demostrado abajo. Estoy creando este archivo adentro sobresalgo en orden que puedo importar las transacciones a JD Edwards. Por alguna razón, cuando JD Edwards valida el archivo detecta que hay líneas en blanco después del expediente pasado en Excel.  Necesito un código del vba que pueda integrar en el código debajo de ése suprima automáticamente todas las líneas en espacio en blanco después del expediente pasado. Pensé que podríamos utilizar la primera columna de la hoja de trabajo para detectar si es en blanco, después que será el disparador para suprimir la línea entera, solamente no sé hacerla. Ayudar por favor. strFilename del
Dim del



Function ExportFile () como String
strFilename = “_IMPORT_EXPORT \ sDoCmd.TransferSpreadsheet TransferType de/>alesimport.xls de C:\KRISPY ": =acExport, SpreadsheetType: =acSpreadsheetTypeExcel8, TableName: = " GlManualEntries”, nombre de fichero: el =strFilename

Dim sobresale mientras que el libro de Object
Dim como hoja de Object
Dim como Object
Set sobresale =
ation”)/>excel.DisplayAlerts = libro de False
Set = excel.workbooks. Abrir (strFilename) la hoja = book.worksheets (1)
sheet del
Set. Columnas (8).Formula = hoja. Columnas (8).Formula
sheet. Columnas (9).NumberFormat = “#, ##0.00 "
sheet. Columnas (10).NumberFormat = “#, ##0.00 "
book. Save
excel. Quit
End Function
class= del

Respuesta : Pregunta de la exportación a Excel del acceso 2007

Mientras que podría ser algo diferente, este problema en uno de los sistemas I fijado era debido al regulador de disco que invertía del acceso directo de memoria al modo del PIO.  El arreglo era entrar encargado de dispositivo y quitar el “canal primario del ide” y el “canal secundario del ide” y después reanudarlos.  Windows debe auto-detect el hardware otra vez y reajustarlo correctamente.

Ver el tiro de pantalla atado.
Otras soluciones  
 
programming4us programming4us