PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 1718 | 98/06/08 11:08:53 | RE(5):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1714 | 98/06/08 08:45:05 | RE(4):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
| 1709 | 98/06/05 20:18:45 | RE(3):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1707 | 98/06/05 17:31:41 | RE(2):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
| 1705 | 98/06/05 16:30:24 | RE(1):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1699 | 98/06/05 13:32:17 | PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
カテゴリ：旧電子会議室
日付：1998年06月05日 17:31 発信者：まこと
題名：RE(2):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。
＞まことさんこんにちは。（久しぶりにこの会議室に来たらすっかり様変わりしててびっくりしました。）
はい。 接続できないと思ってたら・・ 目一杯変わった画面が表示されたのにはビックリしました。
＞ちなみにうちではエクセル起動を次のようにしてます。
＞
＞１．グローバル外部関数にSHELLEXECUTEを宣言する。
＞/* Excel外部出力用：Excelを起動する */
＞function Long ShellExecute( Long hWnd, REF string lpszOp, REF string lpszFile, REF string
＞lpszParams, REF string lpszDir, Long fsShowCmd ) Library \"Shell32.dll\" alias for \"ShellExecuteA\"
＞
＞２．スクリプトで・・・
＞dw_1.SaveAS( ls_filename, Excel!, TRUE)
＞ll_msg_rtn = MessageBox(\"Excel起動\",\"Excelを起動しますか？\",Question!,YesNo!)
＞If ll_msg_rtn = 1 Then
＞ sw_show = 5 //Excelのｻｲｽﾞを現在の設定ままで表示
＞ ls_parms[1] = \"Open\"
＞ ls_parms[2] = \"\"
＞ lw_win = w_1.GetActivesheet()
＞ ret = ShellExecute( Handle( lw_win ) ,ls_parms[1], filename,ls_parms[2],ls_parms[2],sw_show)
＞End if
＞
＞ってな感じです・・・。どうでしょう？
表示できました！！ （使えそうですね）
でも・・ ＤＢに格納してあるExcelファイルを起動するには、SaveAsの所（格納）が問題なんです。
添付ファイル[Excel]を、バイナリデータとしてＤＢに格納した状態から、filenameへ格納する所を教えて下さい。
（FileWriteがうまくいかないんです。）
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.