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

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