Excel VBA質問スレ Part6

Excel VBA質問スレ Part6 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

200:デフォルトの名無しさん
 08/04/01 05:44:27 
>>182 
なんでこいつこんなにえらそーなんだ

201:デフォルトの名無しさん
 08/04/01 08:34:03 
VBA使いは総じてえらそう

202:デフォルトの名無しさん
 08/04/01 09:16:55 
>>1-201 
質問者以外全部えらそーに見える俺は文盲

203:デフォルトの名無しさん
 08/04/01 09:51:32 
excel97って、left$もright$も無いの？

204:デフォルトの名無しさん
 08/04/01 21:47:10 
public Sub AAA() 
　　Dim cnn as New ADODB.connection 
　　Dim RS as New ADODB Recoreset 
　　Dim value As Boolean 
 
　　cnn.connection String = _ 
　　"Provaider = micosoft.Jet.DLEDB.4.0;" & _ 
　　"Data Source = D:\データ.mdb:" 
 
'**************ダイアログボックス表示 
　　value = Application.Dialogs(xlDialogSaveAs).Show 
　　If value = False Then 
　　　　Exit Sub 
　　End If 
**************

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のテーブルだけを 
新規ブックシートに書き込みたいです。どうすればいいでしょか？

次ページ