Selection.End（xlToRight）不起作用

我有一个粗糙的时间得到这个VBscript行与Excel对象一起工作：

set fso=CreateObject("Scripting.FileSystemObject") Set WShell = CreateObject("WScript.Shell") Set objExcel = createobject("Excel.application") objexcel.Visible = true objexcel.Application.ScreenUpdating = True objexcel.Workbooks.Open dir & masterFileName objexcel.Activeworkbook.Worksheets("xActive_User_Ratio").Activate objexcel.Range("A1").Select objexcel.Range(Selection, Selection.End(xlToRight)).Select 

当我运行这个代码时，我得到一个错误：

 Object required: 'Selection' 

我究竟做错了什么？ 任何例子都会非常有帮助。

请帮忙

Answer 1

这是因为你是从Excel以外运行的。

使用objExcel.Selection而不是仅仅Selection 。 以便您的代码知道select与Excel应用程序关联。 此外，您需要定义xlToRight或将其replace为数字值。

更好的是，我会使用和重写整个事情是这样的：

 Set fso = CreateObject("Scripting.FileSystemObject") Set WShell = CreateObject("WScript.Shell") Set objexcel = CreateObject("Excel.application") xlToRight = -4161 ' -4161 is the value of xlToRight With objexcel .Visible = True .Application.ScreenUpdating = True 'using variables for workbook and worksheet to be explicit Set wb = .Workbooks.Open(Dir & masterFileName) Set ws = wb.Worksheets("xActive_User_Ratio") ws.Activate ws.Range("A1").Select ws.Range(.Selection, .Selection.End(xlToRight)).Select End With