Muyco, evo odgovora, doduse nekompletnog ali mislim da ce ti pomoci
Prvo napravi referencu ka Microsoft Excel Object Library (Project>References>Microsoft Excel x.0 Object Library),
a onda ubaci sledeci kod :
Code:
Private Sub Command1_Click()
Dim exapp As New Excel.Application
Dim exwrkbk As Excel.Workbook
Dim i As Integer
Dim cellvalue
Set exwrkbk = exapp.Workbooks.Open("C:\Book1.xls") 'Otvara excel fajl
exwrkbk.Sheets("Sheet1").Select 'ubaci Sheet koji hoces
Open "C:\qwe.txt" For Append As #1 'snima u txt fajl
For i = 1 To 3
cellvalue = exwrkbk.Application.Cells(i, 1).value '(row, column)
Print #1, cellvalue
Next i
Close #1
exwrkbk.Close False
Set exwrkbk = Nothing
Set exapp = Nothing
End Sub
Problem je u tome sto xls fajl mora da bude snimljen sa poslednjim izmenama kako bi se dobili pravi podaci. To uradi preko macro-a u Excel-u