VB脚本运行时错误：对象必需：“活动单元格”

试图运行下面的VBScript：

Set ObjExcel = createobject("Excel.Application") Set objWb = objExcel.Workbooks.Open("C:\test.xlsx") Set objSheet = objWb.Worksheets("Sheet1") objSheet.Cells(1,1).Select With ActiveCell.Font .Bold = True .Italic = True End With 

抛出一个错误如下：

行：7个字符：1个错误：所需对象：'ActiveCell'代码：800A01A8来源：Microsoft VBScript运行时错误

所以它不链接ActiveCell。 我已经花了几个小时，并search了很多类似的问题，网上没有运气，有什么build议吗？ 提前致谢。

Answer 1

尝试这个：

 Set ObjExcel = createobject("Excel.Application") ObjExcel.Visible=true 'you can remove this line as per your requirement Set objWb = objExcel.Workbooks.Open("C:\test.xlsx") Set objSheet = objWb.Worksheets("Sheet1") objSheet.Cells(1,1).Select Set reqCell = ObjExcel.ActiveCell 'Setting reference to the active cell With reqCell.Font .Bold = True .Italic = True End With 

Answer 2

“.ActiveCell”（以及所有其他Active *）是用于交互式使用Excel的概念。 这意味着用户刚刚点击的单元格 – 可能是错误的，只是等待，直到他击中了他的意思。 如果你自动化的Excel你摆脱了用户，因此需要跟踪他的疯狂点击。 现在一个程序要求另一个程序直接完成必要的任务。 无需模拟用户的点击（.Select），并search到所有已激活Cell的地方。 该计划只是说：“请 –

 With objSheet.Cells(1,1).Font .Bold = True .Italic = True End With 

非常感谢”。