excel2016 VBA+SQL

最新推荐文章于 2023-04-28 01:24:45 发布

Michael.Zheng

最新推荐文章于 2023-04-28 01:24:45 发布

阅读量7.1k

点赞数 3

分类专栏： VBA 文章标签： vba SQL

本文链接：https://blog.csdn.net/zyq_victory/article/details/80016438

版权

VBA 专栏收录该内容

4 篇文章 1 订阅

订阅专栏

学习地址：

vbasql学习地址

Set conn = CreateObject("adodb.connection")

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; & _
            Extended Properties='Excel 12.0; HDR=YES; IMEX=1'; & _
            Data Source=" & ThisWorkbook.FullName

这里HDR参数说明是否有标题行

IMEX=1会将所有数据转为文本，避免数据类型不一致出错

strsql = "select s,count(*) as cntc from [a$] group by s order by count(s)"
Set rst = conn.Execute(strsql)

ThisWorkbook.Sheets(2).Cells.Clear
'逐个粘贴结果字段名
For i = 0 To rst.Fields.Count - 1
    ThisWorkbook.Sheets(2).Cells(1, i + 1) = rst.Fields(i).Name
Next i
'粘贴data
ThisWorkbook.Sheets(2).[A2].CopyFromRecordset rst
conn.Close
ThisWorkbook.Save

to do: 整行粘贴字段名，而不是循环粘贴