Problema na criacao de planilha excel


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Problema na criacao de planilha excel

Defende

JARINÚ
SP - BRASIL

ENUNCIADA !

Postada em 18/02/2008 11:41 hs

Fiz o seguinte codigo:

Dim EApp As Object
Dim EwkB As Object
Dim EwkS As Object

Set EApp = CreateObject("Excel.Application")

Set EwkB = EApp.Workbooks.Add
Set EwkS = EApp.ActiveWorkbook.Sheets.Add
EwkS.SaveAs nmRelatorio

Quando eu executo esse codigo ele me retorna o erro:

ActiveX Component cant create object
Run-time error 429

Estou usando o Office 97 mas instalei apenas o Excel.
Sera que pode ser por causa disso?

Grato

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 18/02/2008 11:55 hs

você referência ao objeto MICRSOFT EXCEL 8.0 OBJECT LIBRARY ou 10.0

Defende

JARINÚ
SP - BRASIL

ENUNCIADA !

Postada em 18/02/2008 12:55 hs

Estou referenciando ao 8.0

Adicionando mais uma duvida - caso o cliente tenha na sua maquina o 10 ou 11 vai funcionar normalmente??

Valeu

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 18/02/2008 13:18 hs

acredito que não, o ideal seria você instalar um ofice mais recente, assim funcionaria em maquinas mais antigas, experimente o office xp

Tiranossauro
não registrado

ENUNCIADA !

Postada em 19/02/2008 08:28 hs

Uso assim e não tem dado problema. Adotei o Office 2003 porque tive alguns problemas com o XP.

Mas o seu programa precisa funcionar sem o Office instalado. A sua instalação precisa suprir estas dll's, etc

Public Plani As New Excel.Application
Public ObjBook As Excel.Workbook
Public ObjSheet As New Excel.Worksheet

    Set Plani = CreateObject("Excel.Application")
    Plani.Workbooks.Add
    Plani.Range("A1").Select

                  Rem Fixa os Titulos dos campos
    With Plani
       .ActiveCell.Cells(4, 1) = ""
       .ActiveCell.Cells(4, 2) = "Data"
       .ActiveCell.Cells(4, 3) = "Taxa Ano"
       .ActiveCell.Cells(4, 4) = "Taxa Mês"
       .ActiveCell.Cells(4, 5) = "Fator"
       .ActiveCell.Cells(4, 6) = "Cpmf"
       .ActiveCell.Cells(4, 7) = "Iof"
       .ActiveCell.Cells(4, 8) = "Dolar Compra"
       .ActiveCell.Cells(4, 9) = "Dolar Venda"
    End With

Microsoft Excel 8.0 Object Library

Microsoft Activex Data Objects 2.7 Library

Tiranossauro
não registrado

ENUNCIADA !

Postada em 19/02/2008 08:29 hs

as duas últimas linhas são as Referências do projeto

Microsoft Excel 8.0 Object Library

Microsoft Activex Data Objects 2.7 Library

Página(s): 1/2 PRÓXIMA »

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

VOLTAR