使用Excel对象进行select

xlobj.Worksheets("Control").Range("A3:P3").Select Selection.AutoFill Destination:=Range("A3:P1500"), Type:=xlFillDefault xlobj.Worksheets("Control").Select Selection.ClearFormats Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

嗨，

我有上面的代码，但它在上面的第二行出错（运行时错误1004：下标超出范围）。 我发现使用这个对象来识别“select”是有问题的。

我怎样才能解决这个问题？ 我想把公式从A3范围拉到P3

谢谢您的帮助！ （这可以帮助我在代码中的其他select问题）

此外，在这个代码上面，我有这个（定义）

  Set xlobj = CreateObject("Excel.Application") xlobj.DisplayAlerts = 0 xlobj.Workbooks.Open wbPathName & "\" & wbList(intListCounter), False, True DoEvents 

Answer 1

这是避免.Select和.Copy的一种方法

 With xlobj.Worksheets("Control").Cells .Range("A3:P1500").Formula = .Range("A3:P3").Formula .ClearFormats .Value = .Value ' converts the formulas to values End With