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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Caminho errado
Alexdureggae
SANTO ANDRE
SP - BRASIL
Postada em 12/05/2004 12:11 hs            
Pessoal tenho o seguinte codigo:
 
Private Sub cmdEnviar_Click()
Dim App As Excel.Application
Set App = CreateObject("Excel.Application")

Dim Wb As Excel.Workbook
Set Wb = App.Workbooks.Open(App.Path & "Tabela Áreas e Pesos.xls") 'procura o arquivo na pasta do Office

Dim Ws As Excel.Worksheet
Set Ws = Wb.Worksheets("área + peso des. Sade")

Dim PN As String
PN = txtPN

Dim Busca As Integer
For Busca = 1 To 6655
If Ws.Cells(Busca, 2) = PN Then
Ws.Cells(Busca, 6) = txtResultado
Exit For
End If
Next

Wb.Save
App.Quit
End Sub

Na quinta linha, quando rodo o programa, ele procura o arquivo na pasta do office, nao na pasta em que o projeto esta, PQ?
Como faco para ele procurar o arquivo aonde esta os projeto?

Desde ja agradeco, Alex.

Paz a todos,
Alex.
     
Waldirjr
POÇOS DE CALDAS
MG - BRASIL
Postada em 12/05/2004 13:27 hs            
Renomeie a variável App (para AppExcel, por exemplo), pois qd criou o App as Excel.Application, App.Path passou a ser o caminho do Office.
     
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