如何使用 vb 6.0 将 ms 访问数据导出到带有模板的 excel？答案

【问题标题】：how to export ms access data to excel with template using vb 6.0?如何使用 vb 6.0 将 ms 访问数据导出到带有模板的 excel？
【发布时间】：2019-02-26 01:46:49
【问题描述】：

我有这段代码可以将我的数据库中的数据导出到来自http://www.vbforums.com/showthread.php?870553-How-to-export-selected-ms-access-data-to-ms-excel-with-Vb-6-0&highlight=how+to+export+selected+data+from+excel++to+ms+access 的excel 文件。这次我想导出到带有模板的 excel 文件，假设我的模板 excel 文件名是 Template1.xltx。如何修改我的代码以使用此模板？

Private Function LoopExport()

Dim SSql As String
Dim DateFrom As String
Dim DateTo As String

DateFrom = Format(DTPicker1.Value, "\#mm\/dd\/yyyy\#")
DateTo = Format(DTPicker2.Value, "\#mm\/dd\/yyyy\#")


SSql = "SELECT * INTO [" & (Label1.Caption) & "] In '" & 
(Text1.Text) & " ' 'EXCEL 8.0;' FROM " & (Label1) & " "
SSql = SSql & " Where DateValue(Date_today) Between " & DateFrom 
& " And " & DateTo & ""

con1.Execute SSql


End Function


Private Sub Export_Click()

sql = "SELECT * FROM Accounts "
With rs
Set rs = New ADODB.Recordset
rs.Open sql, con, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
Label1 = rs!AlphaIndex
LoopExport
rs.MoveNext
Loop


Set rs = Nothing
End With


End Sub

【问题讨论】：

您可以将模板链接到 access 数据库并通过 VBA 代码打开 Excel 文件并更新它。这种情况适合你吗？
对不起，我不希望以编程方式完成：(

标签： excel ms-access vb6

【解决方案1】：

在 LoopExport 函数中，您可以自定义 sql 以访问特定的 excel 文件。我没有包含你所有的代码，但你可以添加数据库和工作表名称部分，让我知道它是否有效。

' Credits: https://social.msdn.microsoft.com/Forums/sqlserver/en-US/9aa810f1-8c5c-49ba-bfad-11e1c23c59cf/import-access-database-data-into-excel?forum=vbgeneral

    SSql = "SELECT * INTO [Excel 12.0;DATABASE=c:\temp\Template.xlsx].[SheetName] FROM [Table1]"

【讨论】：