在ACCESS里用VB代码将数据导出到Excel了，导出完后如何保存这个Excel文件，然后关闭！

用vb导出数据到excel文件时，如何生成新的excel文件？~

抄一段我写的代码给你，除了能新建一个以外，第二个好处是当记录条数超过65535时，它可以自动新增工作表以将全部数据弄进去。你可以根据自己的情况改改。

Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public xlApp As New Excel.Application
Public xlWb As New Excel.Workbook
Public xlWs As New Excel.Worksheet

Private Sub mnuQueryExcel_Click()
On Error GoTo ErrHandle
Dim wsSeq As Long, i As Long, Length As Long
xlApp.Visible = True
xlApp.ScreenUpdating = False
DataGrid.Visible = False
Length = Rs.Fields.Count - 1
Call Rs.MoveFirst
Set xlWb = xlApp.Workbooks.Add
wsSeq = 0
Do While Not Rs.EOF
wsSeq = wsSeq + 1
Set xlWs = xlWb.Worksheets.Add
xlWs.Name = "查询结果" & CStr(wsSeq)
For i = 0 To Length
xlWs.Cells(1, i + 1).Value = "'" & Rs.Fields(i).Name
Next i
Call xlWs.Cells(2, 1).CopyFromRecordset(Rs)
Loop
Call Rs.MoveFirst
DataGrid.Visible = True
xlApp.ScreenUpdating = True
Call MsgBox("写入Excel完毕。", vbInformation)
Exit Sub
ErrHandle:
Call MsgBox("错误代码：" & Hex(Err.Number) & vbCrLf & "错误描述：" & Err.Description, vbCritical)
End Sub

介绍下面通过一步一步的介绍，如何通过VB.NET来读取数据，并且将数据导入到Excel中。第一步：打开VS开发工具，并且添加引用。然后选择。
Microsoft Excel 12.0 object library and。
Microsoft Excel 14.0 object library。

第二步：创建一个Excle在你的电脑中。

第三步：在VS中写入如下代码：
Imports System.Data
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel。

Public Class excel
‘添加按钮
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Try
'创建连接
Dim cnn As DataAccess = New DataAccess(CONNECTION_STRING)

Dim i, j As Integer
'创建Excel对象
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
' 打开某一个表单
xlWorkSheet = xlWorkBook.Sheets("sheet1")
' sql查询
' xlWorkBook.Sheets.Select("A1:A2")

Dim sql As String = "SELECT * FROM EMP"
' SqlAdapter
Dim dscmd As New SqlDataAdapter(sql, cnn.ConnectionString)
' 定义数据集
Dim ds As New DataSet
dscmd.Fill(ds)
‘添加字段信息到Excel表的第一行
xlWorkSheet.Cells(1, 1).Value = "First Name"
xlWorkSheet.Cells(1, 2).Value = "Last Name"
xlWorkSheet.Cells(1, 3).Value = "Full Name"
xlWorkSheet.Cells(1, 4).Value = "Salary"
' 将数据导入到excel
For i = 0 To ds.Tables(0).Rows.Count - 1
'Column
For j = 0 To ds.Tables(0).Columns.Count - 1
' this i change to header line cells >>>
xlWorkSheet.Cells(i + 3, j + 1) = _
ds.Tables(0).Rows(i).Item(j)
Next
Next
'HardCode in Excel sheet
' this i change to footer line cells >>>
xlWorkSheet.Cells(i + 3, 7) = "Total"
xlWorkSheet.Cells.Item(i + 3, 8) = "=SUM(H2:H18)"
' 保存到Excel
xlWorkSheet.SaveAs("D:\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
'弹出对话框显示保存后的路径
MsgBox("You can find the file D:\vbexcel.xlsx")
Catch ex As Exception

End Try

End Sub
' Function of Realease Object in Excel Sheet
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
End Class
复制代码。
第四步：看到如下导出结果。

xlapp.quit

Set xlapp = Nothing

xlapp.quit
set xlapp=nothing

---

津市市19354734021： 用vb命令将access的数据表信息导出txt文件 - ？
蒙慧利欣： Public conn As ADODB.Connection 'conn为连接 Public rs As New ADODB.Recordset 'rs为记录集 Public sql As String Set conn = CreateObject(＂adodb.connection＂) conn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & path_sjk...

津市市19354734021： 急用~!用VB 编程.使得excel里的数据导入进access中 - ？
蒙慧利欣： 可以试试 ACCESS----》文件----》获取外部数据-----》导入----》文件类型 选择 Microsoft Excel----》根据提示可以完成导入!VB 要很多的代码祝你好运如果你非得用vb那以下代码 仅供参考VB是常用的应用软件开发工具之一,由于VB的报表...

津市市19354734021： 如何将excel里的数据批量导入ACCESS,要用vb代码? - ？
蒙慧利欣： 不用VB代码,手动导入可以用access的导入功能.方法:功能菜单->外部数据->Excel 然后按提示1、选择文件2、选择导入的Sheet名称3、首行是否包含标题4、选择索引5、添加主键6、导入到Access的表名7、完成

津市市19354734021： 用VB将Access中的某几列数据导入到excel当中? - ？
蒙慧利欣： 给你一段代码,修改下即可!第一步:创建一个Excel的链接表!'输入目录向数据库链接一个Excel表 并且加上 ＂XL＂Sub LinkInxlsData(strSelectDir As String, tabName As String)On Error GoTo Err_InExcel Dim rst1 As ADODB.Recordset Dim ...

津市市19354734021： VB 将EXCEL数据导入到Access数据库中 - ？
蒙慧利欣： Dim excel_app As Object Dim excel_sheet As Object Dim db As Database Dim AccessPath As String, AccessTable As String Dim sql As String Dim frm As New frmMessage Dim msg As String ADOsdb.BeginTrans ' With ADOsdb ' If .State <> ...

津市市19354734021： vb把access中数据导入excel中 - ？
蒙慧利欣： Option Explicit Public appdisk As String Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public db As String Private Sub Form_Load() appdisk = Trim(App.Path) If Right(appdisk, 1) <> ＂\＂ Then appdisk = appdisk ...

津市市19354734021： 如何用VB将access中字段数据导出生成txt格式的文本文件 - ？
蒙慧利欣： Dim conn As New ADODB.Connection, RS As New ADODB.Recordset, strSQL As String, AA() As String, SST As Integer, X As Integer'数据库链接语句略 strSQL = ＂Select * From 数据表名＂ RS.Open strSQL, conn, 2, 1 SST = RS.RecordCount...

津市市19354734021： 怎么用VB实现将EXCEL的数据导入到ACCESS? - ？
蒙慧利欣： 最近正好在做和你差不多的事 先在Module1中打入 Option Explicit Public xlapp As Object 'Excel对象 Public xlbook As Object '工作簿 Public xlsheet As Object '工作表 Declare Function FindWindow Lib ＂user32＂ Alias _＂FindWindowA＂ (ByVal ...

津市市19354734021： vb如何将excel表中的数据导入到Access数据库中(数据库名test.mdb,表名data,字段:工号,姓名,线别,日期 - ？
蒙慧利欣： 1. 在部件里加载commandialog及Excel控件2.读取Excel的代码如下,sql1 = ＂select * FROM [EXCEL 8.0; HDR=no; IMEX=1; DATABASE=＂ Sql2 = sql1 & test.mdb & ＂;].[sheet1$];＂ Set rn1 = CurrentDb.OpenRecordset(Sql2 ) 下面就直接象视图一样操作就可以

津市市19354734021： 如何用VB实现从access中导出数据生成txt格式的文件 - ？
蒙慧利欣： N=10 是什么意思?你会连接数据库,就可以导出数据了 给出具体的例子,数据库的格式和要导出的txt文件的格式