■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#43433-0エクセルワークシートへ出力匿名434332001-05-27(日) 22:32
     #43443-0RE#43433:エクセルワークシートへ出力Ikumi2001-05-28(月) 09:51
     #43447-0RE#43443:エクセルワークシートへ出力の御礼匿名434472001-05-28(月) 10:22
#43433-0
エクセルワークシートへ出力
こんばんわ

VB6.0SP5 アクセス2000 エクセル2000 で作成しております。

VBでレコードを入力、アクセス2000のテーブルに保存しております。
アクセス2000のテーブルからエクセル2000のワークシートに出力したいのです。
エクセル2000のブックの新規作成まで出来たのですが、
次のコードの場所で、
実行時エラー438
オブジェクトは、このプロパティまたは、メソッドをサポートしていません。
と、エラーが出ます。
コードは

         ここの行全体がエラーとして、表示されます。        
With objBook           ↓
            .Worksheets(1).Range("A2").CopyFormRecordset rs
            .SaveAs App.Path & "\shiireExcel.xls"
End With

問題の場所を、.Worksheets(1).Cells("2,1").CopyFormRecordset rs
にしても同様でした。
参考書等を調べても不明です。  宜しくお願い致します。
#43443-0
RE#43433:エクセルワークシートへ出力
> With objBook           ↓
>             .Worksheets(1).Range("A2").CopyFormRecordset rs
>             .SaveAs App.Path & "\shiireExcel.xls"
> End With
> 
> 問題の場所を、.Worksheets(1).Cells("2,1").CopyFormRecordset rs
> にしても同様でした。
> 参考書等を調べても不明です。  宜しくお願い致します。

Excel97の参考書ではCopyFormRecordsetメソッドはないけど
CopyFromRecordsetメソッドならあります。
試してみては?
#43447-0
RE#43443:エクセルワークシートへ出力の御礼
Ikumiさん、ありがとうございます。
CopyFromRecordsetメソッドで、出来ました。

ありがとうございました。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)