VBA+ADO提取内容并输出到文本(TXT)

SUB 提取指定内定到TXT()

Set CNN = CreateObject("ADODB.CONNECTION")
Set RS = CreateObject("ADODB.RECORDSET")

CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\统计.accdb"
    
Sql = "select a.*,b.*  from IMS_R A,hlr_n B WHERE  A.号码=B.ISDN"

Set RS = CNN.Execute(Sql)  '将SQL语句获得的数据传
    y = ""
Sheets("结果").Cells.ClearContents       '清理保存数据的区域
    For I = 0 To RS.Fields.Count - 1
      y = y & RS.Fields(I).Name + ","
     Next


ARR = CNN.Execute(Sql).GETROWS  ''''单行内容提取
BRR = RS.Fields.Count '
Open ThisWorkbook.Path & "\统计结果.txt" For Output As #1
Print #1, y
For j = 0 To UBound(ARR, 2)
       X = ""
   For L = 0 To BRR - 1
      X = X & ARR(L, j) & Chr(44)
   Next
Print #1, X
Next
Close #1

CNN.Close
Set rst = Nothing
Set CNN = Nothing
MsgBox "OK"
End Sub