VBA常用技巧代码解析

pengtao1314

學習學習，完全支持。。。。

VBA小码农

感谢楼主很好很强大牛逼

tulongwei

楼主！！先你叩拜！！谢谢！！

numen1014

好资料，大家分享。

三流高手

真不错！收藏了，谢谢yuanzhuping 版主！

zhangdi20011

想学习学习，谢谢

xsc9999

太好了，谢谢分享！

hujianjian123

做个记号明天学习

lbz0218

越来越复杂

One2020

您好，请教个问题，疑似BUG。vba+ado+sql提取csv txt 中字母数字组合的内容，结果只留下数字。例如F3F2，取出来是2。大写的FKS三个字母其一+数字组合的数据都提取不出来，会屏蔽字母，其他行数据还会出现空值。原因何在？ 代码如下：先后尝试了execute(),format,各种修改。测试均提取不到想要的内容。 Sub chaxuntxt()  Dim u As Integer, cnnstr, mypath, sql As String  Dim cnn, rs As Object  mypath = ThisWorkbook.Path & "\"  Set cnn = CreateObject("adodb.Connection")  Set rs = CreateObject("adodb.recordset")  cnnstr = "provider=microsoft.ace.oledb.12.0;data source =" & mypath & ";extended properties='text;hdr=yes;imex=1;fmt=delimited(,)'" cnn.Open cnnstr sql = "select * from [测试.CSV] " 'Set rs = cnn.Execute(sql) rs.Open sql, cnn Range("a12").CopyFromRecordset rs For u = 0 To rs.Fields.Count - 1  Cells(11, u + 1).Value = rs.Fields(u).Name Next u cnn.Close Set cnn = Nothing End Sub