Question

我是Access的新手，感谢您先阅读此内容。

我将Access中的查询导出到管道分隔的CSV文件。该查询来自一个从SQL中ODBC的表。

我一直在寻找第dbs.Recordset行：未找到方法或数据成员错误。

非常感谢有任何解决此问题的建议。

Option Compare Database
Option Explicit

Sub Command12_Click()
Dim dbs As DAO.database 
Dim rst As DAO.Recordset
Dim intFile As Integer
Dim strFilePath As String
Dim intCount As Integer
Dim strHold

strFilePath = "C:\temp\TEST.csv"

Set dbs = CurrentDb

Set rst = db.OpenRecordset("T_Export_CSV", dbOpenForwardOnly)

intFile = FreeFile


Open strFilePath For Output As #intFile

Do Until rst.EOF
   For intCount = 0 To rst.Fields.Count - 1
   strHold = strHold & rst(intCount).Value & "|"
   Next
   If Right(strHold, 1) = "|" Then
      strHold = Left(strHold, Len(strHold) - 1)
   End If
   Print #intFile, strHold
   rst.MoveNext
   strHold = vbNullString
Loop

Close intFile
rst.Close
Set rst = Nothing

MsgBox ("Export Completed Successfully")
End Sub

非常感谢您的时间，如果需要，请在下面留下任何评论。我会尽力回应！

Answer 1

Office 15.0对象库是您需要包含在O365对象或Office 2013 Access VBA的引用中的对象库

访问VBA - 未找到方法或数据成员错误

1 个答案: