ActiveSheet.Range（“ $ A $ 1：$ CV $ 749”）的错误800A0400。RemoveDuplicates列：= 2，标题：= xlNo

Question

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set Excel2= objExcel.Workbooks.Open("D:\DBG\Temp.xlsm")
Excel2.Worksheets("output").Activate
ActiveSheet.Range("$A$1:$CV$749").RemoveDuplicates Columns:=2, Header:=xlNo

if i try to execute above code I get error .Thanks in advance

Line 35
Char 60
Error Expected statement
Code 800A0400

How can I resolve this issue

Answer 1

Use neither named parameters (eg Columns:= ) nor Excel.Application constants (eg xlNo ) in a VBS script. The parameters you used (eg Columns:= and Header:= ) in the Range.RemoveDuplicates method are the only two allowed and xlNo resolves to 2.

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set Excel2= objExcel.Workbooks.Open("t:\tmp\Temp.xlsm")
Excel2.Worksheets("output").Activate
Excel2.ActiveSheet.Range("$A$1:$CV$749").RemoveDuplicates 2, 2

The ActiveSheet property needs to reference its parent Excel Application object as well.