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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.