|
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.
|
|
|
|
|
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.
|
|
|
|