erro ao exportar para excel


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: erro ao exportar para excel

Futura

PORTO FERREIRA
SP - BRASIL

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.

Jayme

SÃO PAULO
SP - BRASIL

Postada em 06/12/2004 14:08 hs

Tive este mesmo problema num cliente e descobri que ele estava usando o

Office 97.

Instalei o Office 97 em minha máquina, fiz a referência ao Excel 8 e modifiquei esta linha no projeto:

de:

Set OleExcel = CreateObject("Excel.Application.9")
para:

Set OleExcel = CreateObject("Excel.Application.8")

Funcionou direitinho.

Jayme

Sandro
não registrado

Postada em 06/12/2004 23:04 hs

Gostaria de dar uma sugestão: não especifique a versão do Excel que você está usando. Basta digitar Excel.Application que o Windows irá buscar a versão padrão instalada. Isto funciona com qualquer versão do Excel e visa a compatibilidade retroativa entre as bibliotecas de classe das várias versões do programa.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR