PATH E INSTALACAO
Estou com problemas em nessa instancia do codigo e gostaria de saber como posso conseguir o setupWizard do vb ou algum outro.
GerarPlanilha:
frmreladia.pgr.Value = 5
Select Case Err
Case 0
Screen.MousePointer = vbNormal
MsgBox "Relatório gerado com sucesso. Maximize o Excel para ver o arquivo e salve-o com o nome desejado.", vbOKOnly + vbInformation
**************************problema*******************************************************
Shell "C:\Arquivos de programas\Microsoft Office\Office\excel.exe", vbMaximizedFocus & App.Path & " \Agendadia.xls"
********************************************************************************************
GerarPlanilha:
frmreladia.pgr.Value = 5
Select Case Err
Case 0
Screen.MousePointer = vbNormal
MsgBox "Relatório gerado com sucesso. Maximize o Excel para ver o arquivo e salve-o com o nome desejado.", vbOKOnly + vbInformation
**************************problema*******************************************************
Shell "C:\Arquivos de programas\Microsoft Office\Office\excel.exe", vbMaximizedFocus & App.Path & " \Agendadia.xls"
********************************************************************************************
MELISSA:
Sua linha de comando não seria ?:
"C:\Arquivos de programas\Microsoft Office\Office\excel.exe C:\MinhaPasta\Agendadia.xls"
se for faça:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & App.Path & " \Agendadia.xls"
Shell (Caminho),VbMaximizedFocus
algumas versões do Excel exigem que o parà ¢metro esteja entre aspas duplas.
então sua linha de comando deve ficar assim:
"C:\Arquivos de programas\Microsoft Office\Office\excel.exe "C:\MinhaPasta\Agendadia.xls""
faça então:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & " \Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
Do jeito que vc está fazendo, o caminho e a planilha estão vindo depois do comando Shell
Sua linha de comando não seria ?:
"C:\Arquivos de programas\Microsoft Office\Office\excel.exe C:\MinhaPasta\Agendadia.xls"
se for faça:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & App.Path & " \Agendadia.xls"
Shell (Caminho),VbMaximizedFocus
algumas versões do Excel exigem que o parà ¢metro esteja entre aspas duplas.
então sua linha de comando deve ficar assim:
"C:\Arquivos de programas\Microsoft Office\Office\excel.exe "C:\MinhaPasta\Agendadia.xls""
faça então:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & " \Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
Do jeito que vc está fazendo, o caminho e a planilha estão vindo depois do comando Shell
Melissa:
O caminho (pasta) onde vc gravou a planinha está correto ? Ou o nome da planilha ?
O caminho (pasta) onde vc gravou a planinha está correto ? Ou o nome da planilha ?
Melissa:
Depende:
Se vc estiver testando o programa, seu app path vai estar como:
C:\Arquivos de programas\Microsoft Visual Studio\VB98
ou
C:\Program Files\Microsoft Visual Studio\VB98 - se seu windows for em inglês.
talvez venha daà a confusão.
Somente depois que o programa estiver instalado, é que o app path vai retornar a pasta correta.
Depende:
Se vc estiver testando o programa, seu app path vai estar como:
C:\Arquivos de programas\Microsoft Visual Studio\VB98
ou
C:\Program Files\Microsoft Visual Studio\VB98 - se seu windows for em inglês.
talvez venha daà a confusão.
Somente depois que o programa estiver instalado, é que o app path vai retornar a pasta correta.
Melissa:
Complementando, o app path também pode retornar o caminho onde seu programa fonte está gravado (projeto & forms * Modulos).
Ex: C:\MinhaAplicacao\Projeto
Isto em tempo de teste, é claro.
Complementando, o app path também pode retornar o caminho onde seu programa fonte está gravado (projeto & forms * Modulos).
Ex: C:\MinhaAplicacao\Projeto
Isto em tempo de teste, é claro.
Melissa:
Vc grava também com app path ?
Vc grava também com app path ?
Melissa:
Acho que já matei...
Note que na linha abaixo, tem um espaço a mais entre o Microsoft e o Office.
E também ha um espaço antes de " \Agendadia.xls"
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & " \Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
o correto é:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & "\Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
testei aqui e funcionou.
Acho que já matei...
Note que na linha abaixo, tem um espaço a mais entre o Microsoft e o Office.
E também ha um espaço antes de " \Agendadia.xls"
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & " \Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
o correto é:
Caminho = "C:\Arquivos de programas\Microsoft Office\Office\excel.exe " & chr(34) & App.Path & "\Agendadia.xls" &chr(34)
Shell (Caminho),VbMaximizedFocus
testei aqui e funcionou.
Melissa:
Vc está abrindo a planilha (e consequentemente gravando) em:
Set xlWork = xlApp.Workbooks.Open("C:\Documents and Settings\melissa\Usr\vb\AgendaDia.xls")
Entre em modo de Debug e veja se seu app path está apontando para:
C:\Documents and Settings\melissa\Usr\vb\
Vc está abrindo a planilha (e consequentemente gravando) em:
Set xlWork = xlApp.Workbooks.Open("C:\Documents and Settings\melissa\Usr\vb\AgendaDia.xls")
Entre em modo de Debug e veja se seu app path está apontando para:
C:\Documents and Settings\melissa\Usr\vb\
Tópico encerrado , respostas não são mais permitidas