USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
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

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página