当Cells格式化为其他格式时，未定义错误`xlValues`

Question

我正在尝试使用VBScript将Cell的格式复制到第一行的所有单元格，但是未定义错误xlValues。

CODE

  ob3.Range("A1").Copy
  ob3.Range("A1").EntireRow.PasteSpecial(xlValues) 'error here for that constants

你能帮助我吗？

谢谢，

Answer 1

由于VBScript不了解Excel的常量，因此您必须自己定义它们：

Const xlValues = 123 ' <-- replace 123 with the correct value for your version of Excel

Answer 2

尝试：

ob3.Range("A1").Copy
ob3.Range("A1").EntireRow.PasteSpecial xlPasteFormats

Answer 3

您可以在此处找到常量列表：http://techsupt.winbatch.com/ts/T000001033005F9.html

这些适用于Excel 97，但在您的情况下（xlValues），常量未更改（-4163）。

使用

Const xlValues = -4163
...
ob3.Range("A1").Copy
ob3.Range("A1").EntireRow.PasteSpecial(xlValues)

你不应该再出现错误