将访问表从 Excel VBA 导出到 dBase 文件？

Question

我有一个 Excel“应用程序”，用户可以在其中添加/编辑/等。 数据。 准备好后，他们导出这些数据，最终的交付物需要是一个 dBase 文件。 由于 Excel 2007 不再具有“另存为 dBase”功能，因此我创建了以下代码以将数据导出到 Access 表。

在 Excel 中的 VBA 中是否有任何方法可以继续将访问表传输到 dBase 文件中？ 还是我需要从 Access 本身执行那一步？

我试图将所有内容都保留在 Excel 中，以使将来的修改尽可能容易。 任何帮助表示赞赏。 如果可能的话，如果该过程可以与我的导出过程同步自动化，那么从 Access 中执行甚至可以。

Sub Export()
Dim dbConnection As ADODB.Connection
Dim dbFileName As String
Dim dbRecordset As ADODB.Recordset
Dim xRow As Long, xColumn As Long
Dim LastRow As Long

'Go to the worksheet containing the records you want to transfer.
Worksheets("FeedSamples").Activate
'Determine the last row of data based on column A.
LastRow = Cells(Rows.Count, 1).End(xlUp).row
'Create the connection to the database.
Set dbConnection = New ADODB.Connection
'Define the database file name
dbFileName = "\\agfiles\public\ITSD_ApDev\James Scurlock\Personal Project Notes\FeedSampleResults.accdb"
'Define the Provider and open the connection.
With dbConnection
    .Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFileName & _
    ";Persist Security Info=False;"
    .Open dbFileName
End With
'Create the recordset
Set dbRecordset = New ADODB.Recordset
dbRecordset.CursorLocation = adUseServer
dbRecordset.Open Source:="ImportedData", _
ActiveConnection:=dbConnection, _
CursorType:=adOpenDynamic, _
LockType:=adLockOptimistic, _
Options:=adCmdTable
'Loop thru rows & columns to load records from Excel to Access.
'Assume row 1 is the header row, so start at row 2.
'ACCESS COLUMNS MUST BE NAMED EXACTLY THE SAME AS EXCEL COLUMNS
For xRow = 2 To LastRow
    dbRecordset.AddNew
    'Assume this is an 8-column (field) table starting with column A.
    For xColumn = 1 To 69
        dbRecordset(Cells(1, xColumn).value) = Cells(xRow, xColumn).value
    Next xColumn
    dbRecordset.Update
Next xRow

'Close the connections.
dbRecordset.Close
dbConnection.Close
'Release Object variable memory.
Set dbRecordset = Nothing
Set dbConnection = Nothing
'Optional:
'Clear the range of data (the records) you just transferred.
'Range("A2:H" & LastRow).ClearContents
MsgBox "Test"
Dim access As access.Application
Set access = "\\agfiles\public\ITSD_ApDev\James Scurlock\Personal Project Notes\FeedSampleResults.accdb"
access.DoCmd.OpenTable "ImportedData"
access.DoCmd.TransferDatabase acExport, "dBASE IV", "C:\", acTable, "ImportedData", "TEST.DBF"
DoCmd.Close acTable, "ImportedData"

'CREATE dBASE FILE!

End Sub

Answer 1

您可以通过 ADO 连接到目标 Dbase IV 文件： ADO.NET OleDB 和非常旧的 dBASE IV 文件

连接到 Dbase IV 后，您可以使用用于从 excel 加载数据的相同代码来访问将数据加载到 Dbase IV 中。