necessito da ajuda de quem poder a acabar o codigo, escrito abaixo.
O que pretendo é que ao clicar neste botão, e depois de escolher o ficheiro pretendido, ele abra. mas o ficheiro pode ser alterado e nao ser sempre o mesmo a ser aberto!
Private Sub inserir_Click()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
'Abrir o arquivo do Excel
cd.FileName = "Escolha o ficheiro"
cd.ShowOpen
'da-me erro neste linha de codigo, e quero que isto faça as mesmas coisas, para os diferentes ficheiros
Set xlw = xl.Workbooks.Open("c:\teste.xls")
' definir qual a planilha de trabalho
xlw.Sheets.Select
'Exibe o conteúdo da célula na posição 2,3
' variavel = xlw.Application.Cells(2, 3).Value
MsgBox ("encontrado")
Text1.Text = xlw.Application.Cells(2, 3).Value
Text5.Text = xlw.Application.Cells(1, 3).Value
' Fechar a planilha sem salvar alterações
' Para salvar mude False para True
xlw.Close False
' Liberamos a memória
Set xlw = Nothing
Set xl = Nothing
End Sub
O que pretendo é que ao clicar neste botão, e depois de escolher o ficheiro pretendido, ele abra. mas o ficheiro pode ser alterado e nao ser sempre o mesmo a ser aberto!
Private Sub inserir_Click()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
'Abrir o arquivo do Excel
cd.FileName = "Escolha o ficheiro"
cd.ShowOpen
'da-me erro neste linha de codigo, e quero que isto faça as mesmas coisas, para os diferentes ficheiros
Set xlw = xl.Workbooks.Open("c:\teste.xls")
' definir qual a planilha de trabalho
xlw.Sheets.Select
'Exibe o conteúdo da célula na posição 2,3
' variavel = xlw.Application.Cells(2, 3).Value
MsgBox ("encontrado")
Text1.Text = xlw.Application.Cells(2, 3).Value
Text5.Text = xlw.Application.Cells(1, 3).Value
' Fechar a planilha sem salvar alterações
' Para salvar mude False para True
xlw.Close False
' Liberamos a memória
Set xlw = Nothing
Set xl = Nothing
End Sub