Postada em 29/07/2012 20:36 hs
Boa noite, preciso capturar dados de uma arquivo excel que tem que ficar sempre aberto,( pois os dados são atualizados nele por um programa externo, e eu preciso copiar esses dados de 30 em 30 minutos ,tenho esse codigo , que tentei modifica-lo para nao fechar o excel, mas da erro, se alguem puder me dar uma luz fico agradecido.
Private Sub Command2_Click()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Set xlw = xl.Workbooks.Open(App.Path & "coluna.xls", , True)
xlw.Sheets("Plan1").Select
Text1.Text = xlw.Application.Cells(1, 1).Value
Text2.Text = xlw.Application.Cells(1, 2).Value
xl.Visible = True
xlw.Close True
Set xlw = Nothing
Set xl = Nothing
End Sub
|
