excel - セルが他のセルにフォーマットされている場合、エラー `xlValues` が定義されていません

Question

ここで「A1」と言うセルの形式をVBScriptを使用して最初の行のすべてのセルにコピーしようとしていますが、エラーxlValuesが発生することは定義されていません。

コード

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

ここで私を助けてもらえますか？

ありがとう、

Answer 1

ここで定数のリストを見つけることができます: http://techsupt.winbatch.com/ts/T000001033005F9.html

これらは Excel 97 用ですが、あなたの場合 (xlValues) 定数は変更されていません (-4163)。

と

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

もうエラーが発生することはありません

Answer 2

試す：

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