VB ERRO NO XP

MAGRON 18/09/2009 11:31:41
#323197
Quando usava o Windows 98 fiz um programa que acessa um banco de dados do Excel, mas estou usando agora o Windows XP e ao tentar rodar o programa ele da erro na seguinte linha:

Set smw = sml.Workbooks.Open(App.Path & [Ô]\Arq2.xls[Ô])

e aparece a seguinte mensagem:

Method [ô]Open[ô] of object [ô]WorkBooks[ô] failed

Alguém poderia me ajudar?
ROBIU 18/09/2009 11:40:55
#323198
O arquivo Arq2.xls está na pasta do projeto?
Verifique se você converteu a planilha para o formato 2007, que tem outra extensão.
msgbox App.Path & [Ô]\Arq2.xls [ô]Para verificar se o caminho está correto (sem duas barras)
MAGRON 18/09/2009 11:49:45
#323202

O arquivo Arq2.xls se encontra na mesma pasta do aplicativo.
O Excel ainda é o 97.
MAGRON 21/09/2009 00:06:01
#323296
MsgBox (App.Path & [Ô]\Prep2.xls[Ô])

Usei o comando acima antes da linha que da o erro e a mensagem que apareceu foi o endereço onde esta o arquivo Arq2.xls.
Mesmo usando o Windows XP ainda uso o office 97
WCOSTA 21/09/2009 09:55:02
#323304 
 Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib [Ô]user32[Ô] Alias [Ô]GetDesktopWindow[Ô] () As Long

Function StartDoc (DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow ()
[ô] change [Ô]Open[Ô] to [Ô]Explore[Ô] to bring up file explorer
StartDoc = ShellExecute (Scr_hDC, [Ô]Open[Ô], DocName, [Ô][Ô], [Ô]C:\[Ô], 1) 
End Function

[ô]para chamar
Dim r As Long
r = startdoc (App.Path & [Ô]\Prep2.xls[Ô])
MAGRON 21/09/2009 10:45:42
#323310
Eu não queria mudar o código, pois teria que praticamente fazer um programa novo.
Apenas gostaria de saber porque funcionava no Windows 98 e agora não funciona no Windows XP usando ainda o Office 97
OBS: não estou rodando o .exe, estou tentando roda-lo no Visual Basic, pois preciso fazer uma alteração nele

Agradeço a ajuda e me desculpem se minha pergunta foi mal feita
Tópico encerrado , respostas não são mais permitidas
Voltar