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
VBA+ADO提取内容并输出到文本(TXT)
最新推荐文章于 2024-08-06 09:11:44 发布