excel - 当单元格格式为其他时，未定义错误“xlValues”

Question

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

代码

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

你能帮我吗？

谢谢，

score 5 · Accepted Answer

由于 VBScript 不知道 Excel 的常量，您必须自己定义它们：

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

score 1 · Accepted Answer

1

尝试：

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

于 2012-12-24T09:02:46.127 回答

score 1 · Accepted Answer

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

和

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

你不应该再收到错误了

3 回答 3