求VB6。将EXCEL导入ACCESS的0程序

Dim cn作为新ADODB。关系

Dim rs作为新ADODB。记录集

将sql显示为字符串

cn.open "provider=Microsoft。Jet . OLEDB.4.0数据源= " & ampApp。路径与路径。"/data/goodStock.mdb "

sql = " select * from " & ampList1。文本& amp""

rs。源= sql

设置rs。ActiveConnection = cn

rs。LockType = adLockOptimistic

rs。CursorLocation = adUseClient

rs.open sql，cn

将I标注为整数

Dim j为整数

将xlExcel调暗为新的Excel。应用

将xlBook调成Excel。练习本

将xlSheet调成Excel格式。工作表

设置xlBook = xlExcel。工作簿.添加

设置xlSheet = xlExcel。工作表.添加

如果rs。记录计数& lt那么1

MsgBox“未导出数据”，vbOKOnly+vbCritical，“错误提示”

出口接头

其他

-保存对话框-

使用CommonDialog2

。InitDir = App。“路径”将CommonDialog1打开时的初始路径设置为当前程序路径。

。Filter = "Excel (*。xls)|*。xls| " '将其过滤属性设置为xls文件，即只显示该文件夹中的xls文件。

。' CancelError = True '如果你点击了取消键，就不需要报错，直接跳过。

。DialogTitle = "导出数据库"'保存对话框标题。

。'显示保存'弹出保存对话框。

以…结尾

如果…就会结束

-修改工作表名称并在表格中添加一个框-

XlBook。ActiveSheet.name = "测试导出数据"

Xlsheet。细胞。列(10)。'增加数组宽度。

Xlsheet.cells (1，1) = "Test 1 "

XlSheet。单元格(1，2) = "测试2 "

XlSheet。单元格(1，3) = "测试3 "

XlSheet。单元格(1，4) = "测试4 "

XlSheet。单元格(1，5) = "测试5 "

XlSheet。单元格(1，6) = "测试6 "

XlSheet。单元格(1，7) = "测试7 "

XlSheet。单元格(1，8) = "测试8 "

XlSheet。单元格(1，9) = "测试9 "

Xlsheet.cells (1，10) = "Test 10 "

对于i = 2至rs。记录计数+ 1

对于j = 1至rs。字段。计数

xlSheet。Cells(i，j) = rs。项目(j - 1)。价值

下一个j

rs。下一步

接下来我

if common dialog 2 . filename & lt；& gt”“那么

Xlbook。“saveascommondialog2.filename”保存数据。

ElseIf CommonDialog2.filename = " "然后

出口接头

其他

如果exist = False，则MsgBox“没有要备份的数据表！”，vbOKOnly，“注意”

如果…就会结束

Set xlSheet = Nothing '发布

Set xlBook = Nothing '发布

XlExcel。退出“用退出方法关闭Microsoft Excel”释放对象。

Set xlExcel = Nothing '发布

MsgBox“测试导出数据成功”，0+48，“信息提示！”

rs关闭

cn .关闭

末端接头