导出工作表固定数据到新工作薄

samon_820993 · 发表于 2015-3-9 14:12

求老师指导：
导出excel文件的vba方法；要求是工作表的区域数据，并且导出的文件要数值，不要像原文件一样带公式的。详见复件及模拟文件

zhaogang1960 · 发表于 2015-3-9 15:30

ADO法请参考:

Sub ADO法()
Dim cnn As Object, SQL$, f$
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
f = ThisWorkbook.Path & "\模拟效果" & ActiveSheet.Name & ".xls"
If Dir(f) <> "" Then Kill f
SQL = "select * into [" & f & "]." & ActiveSheet.Name & " from [" & ActiveSheet.Name & "$a:f]"
cnn.Execute SQL
cnn.Close
Set cnn = Nothing
MsgBox "ok"
End Sub

复制代码

zhaogang1960 · 发表于 2015-3-9 15:32

ADO法速度可能稍快，但不保留原工作表中的格式
请测试附件

Desktop.rar (107.77 KB, 下载次数: 116)

samon_820993 · 发表于 2015-3-10 08:03

zhaogang1960 发表于 2015-3-9 15:32
ADO法速度可能稍快，但不保留原工作表中的格式
请测试附件

哇！好用，正是我想要的；能得到大师的帮助真是容幸！您的贴子我看了不少呢，受益匪浅。

samon_820993 · 发表于 2015-3-10 08:30

zhaogang1960 发表于 2015-3-9 15:32
ADO法速度可能稍快，但不保留原工作表中的格式
请测试附件

大师：问题来了，我要把那个 “excel导出” 按钮放到窗体里需要如何做呢？这个代码如何修改呢？另外我用 ListBox 控件就需要把工作表名称(原“清单”修改为“sheet2”)改为英文才好用。有没有解决办法。还请大师费心帮忙看下。请您看下副件

samon_820993 · 发表于 2015-3-11 07:56

不想沉下去，求大师在帮帮忙请下载5楼附件~~~

samon_820993 · 发表于 2015-3-12 07:53

还有谁能帮帮忙吗？ zhangqang1960大师给的代码很好用。就是我不会修改。求zhangqang1960大师在次现身

zhaogang1960 · 发表于 2015-3-12 15:43

导出excel的vba方法.rar (111.75 KB, 下载次数: 136)

samon_820993 · 发表于 2015-3-12 16:28

zhaogang1960 发表于 2015-3-12 15:43

真是太好用了谢谢大师啊！

fdsfas · 发表于 2015-3-24 20:38

zhaogang1960 发表于 2015-3-9 15:30
ADO法请参考:

If Dir(f) <> "" Then Kill f
这句代码什么意思？

		自动登录	找回密码
密码			免费注册

[求助] 导出工作表固定数据到新工作薄