種類不一致エラー設定Excel App計算

VBAを使用してVisioからExcelを取得または開始し、アクティブなVisio図面に付属するブックを作成するマクロがあります。種類不一致エラー設定Excel App計算

マクロがExcelの自動計算をオフにすると、型の不一致エラーが発生しますが、必ずしもそのエラーが発生するとは限りません。

なぜコードは時々動作するのですか？

Dim XLCalcMode As Long 
XLCalcMode = XLApp.Calculation 
XLApp.Calculation = xlCalculationManual

Excelアプリケーションには、アプリケーションオブジェクトでCalculationプロパティを設定する前に、少なくとも1つのブックを開いておく必要があります。

ブックを開いた後に。計算設定を移動します。

2016-12-14 16:56:17

私はVisioを知らないと XlCalculationが

をあるように私はあなたが、それはExcelの列挙を共有していないという一般的な仮定で上に行く

：

いずれか実際列挙体を使用例えばxlCalculationManualは、あなたが
をコーディングしたい、-4135の値を値

を持っています
かは、ExcelのApplicationオブジェクト私は遅延バインディングを使用
```
XLApp.Calculation = XLApp.xlCalculationManual 
```

2016-12-14 18:31:50 user3598756

を参照することにより、Excelの列挙名を使用しますが、私は定義されているすべてのExcelの定数を持っています。代わりに、ブックを開いていない限り、Excelのアプリケーションで.Calculationプロパティを設定することができないことがわかりました。 –

答えて