Pergunta : Pergunta da exportação a Excel do acesso 2007

Olá!, eu estou exportando um resultado da pergunta para a lima de Microsoft Excel using o código do vba mostrado abaixo. Eu estou criando esta lima primo dentro em ordem que eu posso importar as transações a JD Edwards. Por qualquer motivo, quando JD Edwards valida a lima deteta que há umas linhas em branco após o último registro em Excel.  Eu preciso um código do vba que eu possa integrar no código abaixo daquele suprima automaticamente de todas as linhas no espaço em branco após o último registro. Eu pensei que nós poderíamos usar a primeira coluna da folha para detetar se é em branco, a seguir que será o disparador para suprimir da linha inteira, mas eu não sei a fazer. Ajudar por favor. strFilename do
Dim do



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

Dim prima enquanto o livro de Object
Dim como a folha de Object
Dim como Object
Set prima =
ation”)/>excel.DisplayAlerts = livro de False
Set = excel.workbooks. Abrir (strFilename) a folha do
Set =
sheet de book.worksheets (o 1). Colunas (8). Fórmula = folha. Colunas (8). Formula
sheet. Colunas (9) .NumberFormat = “#, ##0.00 "
sheet. Colunas (10) .NumberFormat = “#, ##0.00 "
book. Save
excel. Quit
End Function
class= do

Resposta : Pergunta da exportação a Excel do acesso 2007

Quando poderia ser algo diferente, este problema em um dos sistemas I reparado era devido ao controlador de disco que reverte do acesso direto da memória à modalidade do PIO.  O reparo era entrar no gerente de dispositivo e remover “a canaleta preliminar do ide” e “a canaleta secundária do ide” e recarregá-los então.  Windows deve auto-detect a ferragem outra vez e restaurá-la corretamente.

Ver o tiro de tela unido.