PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
12786 | 00/08/16 20:58:42 | RE(3):かなり効率は落ちますが、こんなのは如何でしょう。 By Try |
12781 | 00/08/16 18:19:32 | RE(2):PB7.0: データウィンドウの内容をExcel・CSV形式で取得(自己レス) By りおっち |
12776 | 00/08/16 16:58:20 | RE(1):PB7.0: データウィンドウの内容をExcel・CSV形式で取得 By M.M |
12774 | 00/08/16 16:56:03 | PB7.0: データウィンドウの内容をExcel・CSV形式で取得 By りおっち |
カテゴリ:スクリプトの記述
日付:2000年08月16日 16:56 発信者:りおっち
題名:PB7.0: データウィンドウの内容をExcel・CSV形式で取得
みなさん、こんにちは。
いつもお世話になっております。
データウィンドウの内容を、Excel・CSV形式に転送したいと考えています。
Excelについては以下の方法で転送することができたのですが、
CSV形式については、Application名などがわかりません。
また、以下方法以外に、なにか方法がありましたら、
ご教授お願いします。
//Excelシート(Master)の任意範囲にDWの内容を転送し、
//Excelファイルを別名で保存する。
OLEObject xlApp
Integer c,r,numcols,numrows
xlApp = Create OLEObject
xlApp.ConnectToNewObject( \"Excel.Sheet\" )
xlApp.Application.Workbooks.Open(\"c:\\file1.xls\")
xlapp.Application.ActiveWorkbook.Worksheets[1]
//データウィンドウ内の行総数を取得
numrows = dw_1.RowCount()
//データウィンドウ内のカラム総数を取得
numcols = Integer(dw_1.Object.DataWindow.Column.Count)
//各カラム・行に値をセット
For c = 1 to numcols
For r = 1 to numrows
xlapp.Application.cells[r,c] = dw_1.object.data[r,c]
Next
Next
//xlAppの内容をExcelのファイルに保存
xlApp.Application.Activeworkbook.SaveAs(\"c:\\file2.xls\")
xlApp.DisConnectObject()
Destroy xlapp
よろしくお願いします。m(._.)m ペコッ
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 8
Browser InternetExplorer5.X
Server SoftWare
OS Windows NT 4.0
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.