Excel VBA質問スレ Part6

Excel VBA質問スレ Pa ..

205:デフォルトの名無しさん
08/04/01 21:57:04
続き
　　cnn.Open
　　Set RS = New ADODB.Recordset
　　RS.Open Source := "テーブルデータ"　,ActiveConnection:=cnn, _
　　Corsor Type := adOpenstatic, Option := adCmdTable
　　ThisWorkbook.Sheets(1).range("A1").CopyFromRecordset RS

　　RS.Close
　　Set.Close
　　cnn.Close
　　Set cnn = Nothing
End Sub

質問なのですが、上記を実行するとダイアログボックスが表示されて新規でファイルを
作成して今現在動かしているエクセルブックの名前を変更して保存しているだけになってしまいます。
結局元のブック(マクロ)をコピーしているのと同じです。

私のやりたいことはダイアログボックスを表示させて、新規でブックだけ作成してデータベースのデータ.mdbのテーブルだけを
新規ブックシートに書き込みたいです。どうすればいいでしょか？

次ページ