Trovare l'ultima cella usata in Excel

Chiunque sa come verificare se la cella contiene dati utilizzando VBScript? A causa di ciò che ho visto, è un po 'diverso dalla VBA. Ho provato questo codice, ma non funziona:

Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\test\test.xlsx") Set user = CreateObject("WScript.Network") logname = user.Username objExcel.Application.Visible = True If Hour(Now) >= 1 And Hour(Now) =< 11 Then WScript.Echo "Good Morning" WScript.Echo "Log Record is:", Time, Date lastrow = Range("A1").End(xlDown).Row Cells(lastrow+1, 1).Value = logname End If 

Dopo aver verificato se la row contiene un dato, il codice inserirà i dati nella row successiva che non contiene dati. Diciamo: se CELL A1 ha i dati, quindi CELL A2 è vuoto, i dati da inserire saranno inseriti in CELL A2 .

Si prega di notare che sto lavorando su vbscript , non vba .

Utilizzare la properties; UsedRange :

 Set ws = objExcel.ActiveSheet With ws.UsedRange nextrow = .Row + .Rows.Count End With Set cell = ws.Cells(nextrow, 1).Range("A1") cell.Value = logname Fine con Set ws = objExcel.ActiveSheet With ws.UsedRange nextrow = .Row + .Rows.Count End With Set cell = ws.Cells(nextrow, 1).Range("A1") cell.Value = logname