leggere i dati in excel e copiare e incollare in un altro file excel

[pippaccia1971]

ciao a tutti
ragazzi ho bisogno del vostro aiuto
allora ho un programmino in visual basic che non deve fare altro che leggere i dati in un foglio di un file excel
copiare e incollarli in un altro file sempre di excel..
mi aiutate????
non riesco a leggere i dati

[anatroccolo]

Dim ObjExcel As Excel.Application
Dim ObjWB As Excel.Workbook
Dim ObjWS As Excel.Worksheet
Dim ObjWs2 As Excel.Worksheet

Set ObjExcel = New Excel.Application
Set ObjWB = ObjExcel.Workbooks.Open(App.Path & "\Prova.xls")
Set ObjWS = ObjWB.Worksheets(1)
Set ObjWS2 = ObjWB.Worksheets(2)
Conta = 1
    While Not ((ObjWS.Cells(Conta, 1).Value = "") And (ObjWS.Cells(Conta, 2).Value = ""))
        ObjWs2.Cells(Conta, 1).Value = ObjWS.Cells(Contatore, 1).Value
    Wend

ObjExcel.Workbooks.Close
Set ObjExcel = Nothing

Spero di aver scritto bene.

Ciao

[pippaccia1971]

grazie mille