PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 4216 | 98/12/02 11:30:24 | RE(8):OLEオートメーションでExcelデータを取得する By kari |
| 4215 | 98/12/02 09:49:39 | RE(7):PB6: エクセルのデータをDWに読み込むことはできますか？ By かどきち |
| 4213 | 98/12/01 23:23:07 | RE(6):PB6: エクセルのデータをDWに読み込むことはできますか？ By あすかちゃんの父 |
| 4207 | 98/12/01 17:46:57 | RE(5):PB6: エクセルのデータをDWに読み込むことはできますか？ By OGR |
| 4201 | 98/12/01 16:25:23 | RE(4):PB6: エクセルのデータをDWに読み込むことはできますか？ By こてちゅ |
| 4198 | 98/12/01 15:47:49 | RE(3):PB6: エクセルのデータをDWに読み込むことはできますか？ By かどきち |
| 4190 | 98/12/01 13:00:49 | RE(2):PB6: エクセルのデータをDWに読み込むことはできますか？ By OGR |
| 4189 | 98/12/01 12:05:03 | RE(1):PB6: エクセルのデータをDWに読み込むことはできますか？ By こてちゅ |
| 4188 | 98/12/01 11:47:43 | PB6: エクセルのデータをDWに読み込むことはできますか？ By かどきち |
カテゴリ：データベース
日付：1998年12月02日 11:30 発信者：kari
題名：RE(8):OLEオートメーションでExcelデータを取得する
こんにちは。
ODBC利用でいったん解決しているようですが、ご参考まで。
下記要領で、OLE通信によりExcelからデータを取得することができます。
**************************************************************
oleobject xlsole
string file_path,a_
integer rt_,row_
xlsole = CREATE oleobject
file_path=\"Excelファイルのパス\"
// Excel接続＆起動・・・※１
rt = xlsole.ConnectToNewObject(\"excel.application\")
xlsole.Application.Workbooks.Open(file_path)
// Excelデータ取得・・・※２
a_ = String(xlsole.Application.ActiveWorkbook.Worksheets(1).cells(8,2).value)
// データウィンドウに値セット
row_ = dw_1.InsertRow(0)
dw_1.object.カラム[row_] = a_
// Excel切断＆終了
xlsole.Application.Activeworkbook.Saved = True
xlsole.Application.Quit
xlsole.DisConnectObject()
DESTROY xlsole
Return
**************************************************************
※１このままだと、Excelはバックグラウンドで実行され、画面には表示されません。
Visible属性を設定することで画面表示することもできます。
※２ここの処理をループにすれば、複数行のデータを取得できます。
こまかい部分のエラートラップに関してはこちらでも試行中ですが、
おおむね、こんな感じで処理可能です。
ご参考まで。
＃他にアドバイスがいただけたら、お願いします。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.