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.

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.