excel - 如何使用 vb 6.0 将 ms 访问数据导出到带有模板的 excel?
问题描述
我有这段代码可以将我的数据库中的数据导出到来自http://www.vbforums.com/showthread.php?870553-How-to-export-selected-ms-access-data-to-ms-的 excel 文件excel-with-Vb-6-0&highlight=how+to+export+selected+data+from+excel++to+ms+access。这次我想导出到带有模板的 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
解决方案
在 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]"
推荐阅读
- c# - Return only one value from JObject with two values in it C#
- sql-server - 按报表项目计算排序行组
- ios - 找不到 SDK 'iphoneos11.2'
- windows - 如何检查文档是否打开预览窗格
- ssl - MacOS Mojave 更新 SSL/TLS (?) 后无法从“https://rubygems.org/”安装 gems
- css - VS 捆绑发布时出现 CSS 缩小错误
- java - 在for循环SQLite android中迭代游标
- dictionary - Golang map的并发访问如何解决?
- email - Google Analytics - 电子邮件跟踪链接点击 - 如何在同一视图中查看所有自定义活动数据(“发送”、“打开”、“点击”)
- python - LSTM,多二进制数组输入和过拟合处理