Vbscript 在Excel中查找最后使用的单元格

Vbscript 在Excel中查找最后使用的单元格,vbscript,vba,excel,Vbscript,Vba,Excel,有人知道如何使用VBScript检查单元格是否包含数据吗?因为我所看到的,它和VBA有点不同。我已尝试此代码,但不起作用: Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\test\test.xlsx") Set user = CreateObject("WScript.Network") logname = user.Username objExcel

有人知道如何使用VBScript检查单元格是否包含数据吗?因为我所看到的,它和VBA有点不同。我已尝试此代码,但不起作用:

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
Set-objExcel=CreateObject(“Excel.Application”)
设置objWorkbook=objExcel.Workbooks.Open(“C:\test\test.xlsx”)
Set user=CreateObject(“WScript.Network”)
logname=user.Username
objExcel.Application.Visible=True
如果小时(现在)>=1,小时(现在)=<11,那么
WScript.Echo“早上好”
Echo“日志记录为:”,时间,日期
lastrow=范围(“A1”)。结束(xlDown)。行
单元格(lastrow+1,1)。值=日志名
如果结束
检查该行是否包含数据后,代码将向不包含数据的下一行插入数据。我们会说:如果
单元格A1
有数据,那么
单元格A2
为空,那么要插入的数据将插入
单元格A2

请注意,我正在处理,而不是。

使用属性:

Set ws = objExcel.ActiveSheet

With ws.UsedRange
  nextrow = .Row + .Rows.Count
End With

Set cell = ws.Cells(nextrow, 1).Range("A1")

cell.Value = logname

VBS将无法识别Excel常量。在这种情况下,
xlDown
。您需要为此使用枚举,通过搜索常量
xlDown
或任何其他常量,可以在VBE的对象浏览器中找到枚举。在这种情况下,枚举为
-4121
。使用
Range(“A”&Rows.Count).End(xlUp).Offset(1).Row
可能会更好,因为在编写时,如果只有单元格A1有数据或列A为空,代码将返回电子表格中的最后一行。@Scott Holtzman我已更新了上面的代码,但工作不正常。这只是更新单元格的值。谢谢!代码和我的一样。它不会插入到不包含数据的下一行。此代码只是替换行的内容。并且没有向行中插入数据。谢谢@ramedju我发布的代码不能替代任何东西。它仅选择所用范围的右下角单元格。如果您需要下面的行:在计算
lastrow
时不要减去1。那么,在确定单元格为空后,如何向空单元格插入数据?谢谢嗯。。。是否将数据指定为单元格的值
cell.Value=data
为什么从C列开始插入数据?很抱歉,因为我对这一点非常陌生,我希望数据插入A列。谢谢!