PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 23512 | 09/04/11 00:43:26 | RE(6):OLEによるEXCELシートのコピーについて By class |
| 23510 | 09/04/09 15:54:25 | RE(5):OLEによるEXCELシートのコピーについて By Hakofugu |
| 23509 | 09/04/09 14:20:15 | RE(4):OLEによるEXCELシートのコピーについて By 前立腺肥大 |
| 23506 | 09/04/09 08:56:19 | RE(3):OLEによるEXCELシートのコピーについて By Hakofugu |
| 23505 | 09/04/08 16:00:55 | RE(2):OLEによるEXCELシートのコピーについて By 前立腺肥大 |
| 23504 | 09/04/06 23:48:54 | RE(1):OLEによるEXCELシートのコピーについて By class |
| 23503 | 09/04/06 13:33:41 | OLEによるEXCELシートのコピーについて By 前立腺肥大 |
カテゴリ：PowerBuilderの開発環境
日付：2009年04月09日 14:20 発信者：前立腺肥大
題名：RE(4):OLEによるEXCELシートのコピーについて
いろいろありがとうございました。
私なりの結論です。列幅はコピーできません。
そこでデータコピーの前に列幅だけコピーして，それからデータをコピーすることで
なんとか対応できました。
サンプル
//* 新規シート作成
//* 列幅コピー
FOR n = 1 TO excel_retu_max
ole_excel_saki.Application.ActiveSheet.Columns( n ).ColumnWidth = &
ole_excel_moto.Application.ActiveSheet.Columns( n ).ColumnWidth
NEXT
//* データコピー
以上
＞前立腺肥大さん、おはようございます。
＞
＞＞シート全体をコピー・ペーストするスクリプトわかりましたらご教授お願いします。
＞＞
＞
＞「PowerBuilderでの具体的な実現方法」は、私も実験してみなくてはわかりません。
＞しかし、ExcelのVBAで「ワークシートをコピーする」方法(スクリプト)がわかれば何とかなるのでは？
＞一般的な表現をすると、以下のようになるようです。Copyメソッドを使うようです。
＞
＞Worksheets(\"Sheet2\").Copy After:=Workbooks(\"Book2\").Worksheets(\"Sheet1\")
＞
＞Excelのマクロ、VBAに関するHPはものすごい数があり、自分が見やすいものを１?３ほど見つけて
＞参考にするといいかもしれません。がんばってください。
＞
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS Oracle Net8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle10G
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.