GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Run-Time Error 48
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
Iniciante

postado
Boa tarde!!!

Pessoal estou com um grande problema, tinha uma máquina na firma que rodava com Windows NT e Office 97, aonde desenvolvi uma séria de sistemas no Access, inclusive alguns que rodam em rede sem problema algum. Porém está máquina foi substituída por outra melhor sendo com Windows XP e também com Office 97.

Meu problema é que quando vou criar a instância do Excel (exemplo abaixo), me aparece este "maldido" erro, não sei mais o que fazer, alguém poderia me ajudar por favor, a linha em que aparece o erro está identificada com 4 asteriscos na frente.


Option Compare Database
Option Explicit

Public ex As Excel.Application
Public exArq As Excel.Workbook

Function Gravar_Planilha_Excel(cCaminho As String)

DoCmd.SetWarnings (False)

**** Set ex = CreateObject("Excel.Application")
Set exArq = ex.Workbooks.Open(cCaminho & "\Comparar Receitas Obca e Wire.xls", 0)

exArq.Application.DisplayAlerts = False

exArq.Sheets("Base Fixa Geral").Select
exArq.Application.Range("A1:AP5000").Select
exArq.Application.Selection.ClearContents
exArq.Application.Range("A1").Select

.........
 
Postagens: 2 | Registrado: 24 October 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
 Tópico Anterior | Próximo Tópico Powered by Eve For Enterprise  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Run-Time Error 48

©