weixin_43136586的博客

原创 Recordset Rst 直接写入Worksheet

如下这段代码来自网页。 其中的copy ado查询后的数据这块儿比较简介，可参考之。 SQL代码： Sub Test() Dim WbNamePath As String, Sht As Worksheet, SQL As String Set Sht = Sheet4 '存放结果的工作表 WbNamePath =ThisWorkbook.FullName '设置工作簿的完整路径和名称 '...