- 205 名前：デフォルトの名無しさん [2008/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のテーブルだけを
新規ブックシートに書き込みたいです。どうすればいいでしょか？
|
 |
