PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
23896 | 12/09/06 14:34:25 | RE(2):EXCEL OLEオブジェクトの実行時エラー By Kindo-3 |
23895 | 12/09/05 13:20:37 | RE(1):EXCEL OLEオブジェクトの実行時エラー By めめ |
23893 | 12/09/03 13:58:08 | EXCEL OLEオブジェクトの実行時エラー By Kindo-3 |
カテゴリ:PowerBuilderの開発環境
日付:2012年09月05日 13:20 発信者:めめ
題名:RE(1):EXCEL OLEオブジェクトの実行時エラー
Kindo-3さん、こんにちは。
冗長的かもしれませんが、以下のようにしてみられてはいかがでしょう。
OLEObject objRange, objRange1, objRange2
objRange1 = objexcel.Cells(2,2)
objRange2 = objexcel.Cells(20,11)
objRange = xlApp.ActiveSheet.Range(objRange1,objRange2)
>EXCELを操作するOLEオブジェクトの下記記述で、実行時にエラーとなります。
>Pコードで実行ファイルを作成した場合はエラーになりませんが、マシンコードで
>実行ファイルを作成するとエラーになります。
>お客様要件により、マシンコードで実行したいのですが、対処方法を教えて頂けないでしょうか。
>
>WindowsXP PB12.1 Excel2003 の環境です。
>ちなみに同等のソースをPB6.5で実行していたときは落ちませんでした。
>
>string ls_file1, ls_file2, ls_path
>OLEObject xlApp
>OLEObject objexcel
>OLEObject objRange
>
>ls_path = \"D:\\Temp\"
>ls_file1 = \"Book1.xls\"
>
>/* OLE Excel接続 */
>xlApp = Create OLEObject
>xlApp.ConnectToNewObject( \"Excel.Application\" )
>
>/* Excel Bookを開く */
>xlApp.Application.Workbooks.Open( ls_path + \"\\\" + ls_file1 )
>
>/* ブック表示 */
>xlApp.Application.Visible = TRUE
>
>objexcel = xlApp.Application.Workbooks(ls_file1).Worksheets(1)
>objRange = xlApp.ActiveSheet.Range(objexcel.Cells(2,2),objexcel.Cells(20,11))
>// ↑↑↑↑↑ ここで落ちる ↑↑↑↑↑
>objRange.Select
>
>/* ブックを閉じる */
>//xlApp.Application.Workbooks(ls_file1).Close
>
>/* OLE Excel切断 */
>xlApp.DisConnectObject()
>
>Destroy xlApp
>
>******************************************************
>PowerBuilder アプリケーションの実行時エラー (R0019)
>******************************************************
>アプリケーションは中断されました。
>エラー:Any型の変数 гvoid を oleobject に変換できません。関数 clickedの22行目...
>******************************************************
>
>
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.