Ostatnia niepusta komórka w excelu
Dzień dobry,
Próbuję znaleźć za pomocą ambasic ostatnią zapełnioną danymi komórkę w danej kolumnie.
Niestety przy moich próbach dostaję błąd "Zły typ argumentu: STRING" na linijce z
while i nie potrafię tego obejść
Kod:
//Wskazanie ścieżki pliku do otwarcia
String file_to_read = FileDlg (1, "xls (*.xls) | *.xls" )
//Utworzenie obiektu excel
dispatch excel
excel.Create("Excel.Application")
//Otwarcie skoroszytu excela
excel.Workbooks.Open(file_to_read)
//Skoroszyt jest widoczny lub nie
excel.visible = 0
//Wybieramy arkusz
excel.Worksheets("Page 0")
//
Int x = 5
excel.Range("V5").Select
While excel.ActiveCell.Value !=""
excel.ActiveCell.Offset(1, 0).Select
x =x+1
Wend
x-1
print x; lf
//Nie wyświetla alertów, w tym nie pyta o zapis excela przed zamknięciem
excel.DisplayAlerts = 0
//Zamyka proces excela
excel.Application.Quit
(1)
