Code: Select all
Private Sub APRIFILE()
Set XLAPP = CreateObject("Excel.Application")
XLAPP.Visible = False
'Debug.Print XLSPATH & NOMEFILE
Set XLWB = XLAPP.Workbooks.Open(XLSPATH & NOMEFILE)
Call LEGGI_RIGHE
XLWB.Close
XLAPP.Quit
Set XLAPP = Nothing
Set XLWB = Nothing
End Sub
Private Sub LEGGI_RIGHE()
Set XLSH = XLWB.Worksheets(1)
....
HERE THE LOOP
...
End Sub
and get value from the related column D, E , F ... to K
NOTE:
All variable are in module as public var
i'm on vb6