[已解决]SQL查询数据，导出到Excel

roych

爱疯 发表于 2015-7-1 15:31
1）图中是操作后的效果。两个语句的操作结果都对，区别是：
A:B中的，是你的方法
D:E中的，是我 ...

第二个问题，印象中只能使用”数据\连接“来设置，别无他法。——局限性在于无法随时调整SQL语句。
当然,也可以运行完以后，再选择数据，转为表。不过我觉得没必要
Sub 宏()
    sheets(2).ListObjects.Add(xlSrcRange, Range("A1:B6"), , xlYes).Name = _
        "表1"
End Sub

爱疯

roych 发表于 2015-7-1 16:33
第二个问题，印象中只能使用”数据\连接“来设置，别无他法。——局限性在于无法随时调整SQL语句。
当然 ...

如何获取最大五户3.rar (23.87 KB, 下载次数: 3)

2015-7-1 17:18 上传

点击文件名下载附件

改了下，很少用ListObjects 对象，最后变成列表，看上去挺好看的{:171:}
至于，能否从连接数据中获得列表的效果，我再另外去问好啦，谢谢！