Caminho Errado

[alexdureggae]

Pessoal, estou com um problema neste 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, não na pasta em que o projeto esta, porque?

Como faco para ele procurar o arquivo aonde esta os projeto?

Desde já agradeco, Alex.

[Bruno Krebs]

Provavelmente oque esta acontecendo é que você criou a variavel App para abrir a tabela do excel, então o vb se confunde e acha que na quinta linha, no "App.path" você está se referindo a variável que você criou. Tente mudar o nome de sua variável para outro nome qualquer, tipo aplicativo, seila.

Bom, essa é a única explicação que eu vejo, veja se da certo.

Boa sorte.

[alexdureggae]

já resolvi o problema, e era esse mesmo!!!

mesmo assim fico agradecido pela atencao!!

Abracos, Alex.

Obs.: Moderadores, podem fechar o post!!!

[William Rodrigues]

Atendendo os pedidos da multidão:

Obs.: Moderadores, podem fechar o post!!!

hehehehehe

Tópico Fechado !

Abraços,

William Rodrigues