新手求助

正好刚帮别人写完类似代码，你参考一下吧
Set MyCon = CreateObject("Adodb.Connection") '创建一个adodb连接对象
Set MyRS = CreateObject("Adodb.Recordset") '创建一个adodb recordset对象
DBpath = "x:\xxx\xxx\xxx.accdb" '设置access文件完整路径
MyCon.Provider = "Microsoft.ACE.OLEDB.12.0" '设置数据引擎
MyCon.Open (DBpath) '打开access数据文件
SQLstr = "select * from 数据表" '编写sql查询代码
MyRS.Open SQLstr, MyCon, 3, 1 '按照sql代码筛选结果存入recordset
Set NewWB = Workbooks.Add '新建一个工作簿
NewWB.Sheets(1).Range("a1").CopyFromRecordset MyRS '将recordset存入新工作簿sheet1中
NewWB.SaveAs "x:\xxx\xxx\xxx.xlsx" '按路径及文件名保存刚刚生成的新工作簿
NewWB.Close