VBA输出指定字段并保存为CSV

2021-03-10 09:32:03 阅读：365 来源： 互联网

标签：VBA Set rs CELL 字段 Sheet1 cnn CSV OUT

SUB DATA()
Dim cnn, SQL$, a, B, C, D, E, f, G, H, i, L, M
Dim OUT As Workbook
    Set cnn = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    
    
 cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =TEXT;Data Source =" & ThisWorkbook.Path & "\"
    

SQL = "SELECT 小区标识,A.CGI,NODEBID*小区ID AS ECI,LA,LO FROM [轩驰.CSV] A  LEFT JOIN [基础信息表.CSV] B on a.小区标识=B.CELL WHERE 设备类型 NOT IN ('5G')  AND 小区标识 IS NOT NULL"

Set OUT = Workbooks.Add

 Set rs = cnn.Execute(SQL)
 Worksheets("Sheet1").Activate
 
  Sheets("Sheet1").Cells.ClearContents       '清理保存数据的区域
     For i = 0 To rs.Fields.Count - 1
       Worksheets("Sheet1").Cells(1, i + 1) = rs.Fields(i).Name
     Next
Sheets("Sheet1").Range("a2").CopyFromRecordset rs
    
rs.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
  
    OUT.SaveAs ThisWorkbook.Path & "\4G_CELL_INFO.csv", xlCSV
    Workbooks("4G_CELL_INFO.csv").Close True
 
MsgBox ("OK")

END SUB

标签：VBA,Set,rs,CELL,字段,Sheet1,cnn,CSV,OUT
来源： https://blog.csdn.net/qq_44390640/article/details/114625509

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

VBA输出指定字段并保存为CSV