PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 22929 | 07/02/09 13:47:05 | RE(1):PB8.0: Excelへ引数は渡せるのですか？ By korira |
| 22925 | 07/02/07 12:37:28 | PB8.0: Excelへ引数は渡せるのですか？ By だーま |
カテゴリ：PowerBuilderの開発環境
日付：2007年02月07日 12:37 発信者：だーま
題名：PB8.0: Excelへ引数は渡せるのですか？
PBからマクロの入ったExcelを起動かけて処理をおこなっているのですが、
Excelへ引数を渡すことってできるのですか？
ちなみにｽｸﾘﾌﾟﾄを以下に・・・
full_file_name = sle_out_dir.text
lin_ret = dw_2.saveas(full_file_name,CSV!,false)
if lin_ret = -1 then
MessageBox(\"SuperStream \",\"処理に失敗しました、処理を中断します。\", None!,OK!,1)
Goto ExitEvent
end if
if FileExists(i_excel) = False then
MessageBox(\"SuperStream エラー\", \"Microsoft Excelに接続できませんでした\")
Goto ExitEvent
end if
//*-- Excel起動 --*//
oleobject excel
excel = CREATE OLEObject
excel.ConnectToNewObject(\"Excel.Application\")
excel.Workbooks.Open(i_excel) <-- i_excelには『D:\\テスト.xls』がはいっています
excel.Application.WindowState = Minimized!
excel.Visible= true
excel.Application.Run(\"start_up\")
excel.Workbooks(1).Close(False)
excel.Application.Quit
lin_ret = excel.DisconnectObject()
if lin_ret = -1 then
MessageBox(\"SuperStream エラー\",\"Excelエラーです。処理を中断します。\", None!,OK!,1)
Destroy excel
Goto ExitEvent
end if
Destroy excel
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle Net8
Browser InternetExplorer
Server SoftWare
OS (記載なし)
DBMS Oracle8i
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.