[英]To export query from Access to Excel in Read/Write mode in VBA
下面是从Access导出名为'LatestSNR'的查询到Excel的代码;
Public Sub Expdata()
Dim rst As DAO.Recordset
Dim Apxl As Object
Dim xlWBk, xlWSh As Object
Dim PathEx As String
Dim fld As DAO.Field
PathEx = Forms("Export").Text14 'path comes from the directory given in form
Set Apxl = CreateObject("Excel.Application")
Set rst = CurrentDb.OpenRecordset("LatestSNR")
Set xlWBk = Apxl.Workbooks.Open(PathEx)
'xlWBk.ChangeFileAccess xlReadWrite
Set xlWBk = Workbook("PathEx")
Apxl.Visible = True
Set xlWSh = xlWBk.Worksheets("Metadatasheet")
xlWSh.Activate
xlWSh.Range("A2").Select
For Each fld In rst.Fields
Apxl.ActiveCell = fld.Name
Apxl.ActiveCell.Offset(0, 1).Select
Next
rst.MoveFirst
xlWSh.Range("A2").CopyFromRecordset rst
xlWSh.Range("1:1").Select
' selects all of the cells
Apxl.ActiveSheet.Cells.Select
' selects the first cell to unselect all cells
xlWSh.Range("A2").Select
rst.Close
Set rst = Nothing
' Quit excel
Apxl.Quit
End Sub
执行代码后,查询将转移到Excel工作表,并以“只读”模式查看。 如果我尝试保存它,则会生成excel文件的副本。 可以在读/写模式下打开Excel吗? 以便保存工作簿,并将查询重复传输到同一工作簿。
通常,导出的Excel文件不应处于只读模式。 在处理过程中的某个地方,您无法正确结束Excel实例。 检查的一个好方法是在进程下的任务管理器中查看EXCEL.EXE是否仍然存在。 如果是,请结束该过程并进行以下代码调整:
首先,正确关闭并保存您的Excel文件。 退出需要保存或不保存工作簿的确认,因为它意味着关闭您初始化的Excel应用程序,而不是目标工作簿。 所以在Apxl.Quit
之前Apxl.Quit
:
xlWBk.Close True
其次,正确地取消初始化Excel对象以释放计算机资源。 这不是必需的,只是良好的编码实践:
Set Apxl = Nothing
Set xlWBk = Nothing
Set xlWSh = Nothing
顺便说一下,除非你做细微的编码和格式化,否则有一个内置的Access to Excel功能可以将字段名和记录集一起导出: DoCmd.TransferSpreadsheet 。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.