PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 19889 | 03/07/11 15:55:19 | RE(2):PB5.0.01: OLEオートメーションでのEXCELマクロの書き方 By t-shimmy |
| 19885 | 03/07/10 20:21:49 | RE(1):PB5.0.01: OLEオートメーションでのEXCELマクロの書き方 By isii |
| 19883 | 03/07/10 18:48:15 | PB5.0.01: OLEオートメーションでのEXCELマクロの書き方 By t-shimmy |
カテゴリ：PowerBuilderの開発環境
日付：2003年07月10日 20:21 発信者：isii
題名：RE(1):PB5.0.01: OLEオートメーションでのEXCELマクロの書き方
t-shimmyさん、こんばんは。
＞いつもお世話になってます。 OLEオートメーションを使ってEXCEL FILEを更新してるのですが、
＞レスポンスが悪いので、EXCEL FILEの計算方法を自動から手動に切り替えようと思ってます。
＞EXCELのマクロでは以下のようになるのですが、PBのスクリプトはどのように書けばいいのか、
＞どなたか解りましたら、教えてください。
＞
＞With Application
＞ .Calculation = xlManual 手動の場合
＞ .MaxChange = 0.001
＞ End With
＞
＞With Application
＞ .Calculation = xlAutomatic 自動の場合
＞ .MaxChange = 0.001
＞ End With
OLEオートメーションにつきましては、アシストのPowersoftホームページに参考になる情報
があります。（技術ドキュメントのOLE&ActiveX）
http://powersoft.ashisuto.co.jp/technicalservice/techdocument/technoteonline
PBでの例を以下に示します。
なお、Excel(VBA)の定数は、マクロにて値を確認してください。
OLEObject ExcelObj
ExcelObj = create OLEObject
ExcelObj.ConnectToNewObject( \"Excel.Application\" )
// Microsoft Excel(VBA)の定数
CONSTANT long xlManual = -4135
CONSTANT long xlAutomatic = -4105
// 手動
ExcelObj.Application.Calculation = xlManual
ExcelObj.MaxChange = 0.001
// 自動
ExcelObj.Application.Calculation = xlAutomatic
ExcelObj.MaxChange = 0.001
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Sybase SQL Anywhere Server
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.