Question

我正在尝试将Access中的表单上显示的记录导出到Excel模板，然后我将重命名并在进一步的计算中使用这些数据。我想单击表单上的一个按钮将记录传输到Excel，我重命名并完成。数据字段需要转到电子表格中的特定单元格。每条记录代表一个带有字段的调味公式： Formula_name Formula_number Date_entered Ingredient1 Amount1 Ingredient2 AMOUNT2 Ingredient3 等等

金额是总金额的百分比。成分和数量需要在列中。我将把新命名的excel表（批处理表）发送到生产中用于拉动，称重和批次代码记录的PC。我已经看过vba但是没有时间及时学习这个项目，所以我希望只是剪切和粘贴代码或者更好 - 但是将数据库和excel模板通过电子邮件发送给比我聪明的人并让它工作什么时候回来$$它也适用于不同版本的MS Office。感谢。

Answer 1

除非您真的想要一个没有任何自定义的简单解决方案，否则这不是一个微不足道的“剪切和粘贴”问题。

以下是指向如何操作的文章的链接： http://www.accessibledatasolutions.com/articles11/AccessToExcel.htm

Answer 2

通常，您需要使用类似以下代码的内容。您需要调整路径，然后调整SQL语句，您可以将Access中提取的值放在任何位置。也许你可以从这开始，并运行一些简单的SQL提取。

Sub ConnectDatabase()

Dim con As New ADODB.Connection
Dim connected As Boolean
Dim rstAnswer As New ADODB.Recordset
Dim RootPath, DBPath As String
Dim tempString As String

connected = False

RootPath = "C:\Test\"
DBPath = RootPath & "Test.accdb"
con.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBPath & ";"

connected = True

rstAnswer.Open "SELECT CustomerName From tblCustomers " & _
    "WHERE tblCustomers.Country = '" & Denmark & "';", con, adOpenKeyset, adLockOptimistic

Do Until rstAnswer.EOF
    tempString = CStr(rstAnswer!CustomerName)
    Application.ActiveWorkbook.Worksheets("Sheet1").Range("A1").Value = tempString
    rstAnswer.MoveNext
Loop

rstAnswer.Close
con.Close   
connected = False

End Sub

如何将Access中的单个记录导出到Excel中的特定单元格

2 个答案: