Postada em 06/12/2004 07:34 hs
estou usando o seguinte comando para exportar alguns dados para o excel:
Label12.Caption = "Inicio da operação" Screen.MousePointer = 11 Set oleexcel = CreateObject("excel.application.9") Set oleworkbook = oleexcel.Workbooks.Add Set oleworksheet = oleexcel.Worksheets.Add Label12.Caption = "Montando a planilha com dados do arquivo"
DoEvents rs.MoveMin While Not rs.EOF For y = 1 To rs.Fields.Count oleworksheet.Cells(X, y) = rs.Fields(y - 1) Next y X = X + 1 rs.MoveNext Wend
Label12.Caption = "salvando a planilha..." DoEvents oleworksheet.SaveAs "h:contabildados.xls" rs.Close Screen.MousePointer = 0 oleexcel.Visible = True Label12.Caption = "Ok !" funciona nomal, mas em algumas estações, da o erro, automation error, e outras, diz que o activex não conseguiu criar o objeto., estão quais dlls e ocxs, realmente preciso para montar esta operação. Uso vb6 + dao + access97 + crystal 8.5.
|