[已解决]VBA导出当前筛选出来的数据，保持原工作有的格式不变（代码具有公用性）

yjwdjfqb · 发表于 2013-12-6 15:04

本帖最后由 yjwdjfqb 于 2013-12-6 15:06 编辑

zjdh 发表于 2013-12-6 14:49
For I = 1 To 26 假设有效区域26列
若改成
For I = 1 To .UsedRange.Columns.Count

改成 For I = 1 To .UsedRange.Columns.Count 就是没有列数限制了是吧老师，

老师你好!
我想，不新生成工作薄，就直接在当前的工作薄下生成一张新的工作表，名称用时间来表示。
点击导出成功后，返回，导出的这个工作表。

返回这个工作表后不要全选这工作表如图

你下图一样

请老师帮帮修改下!

zjdh · 发表于 2013-12-6 15:08

导出筛选的数据（代码具有公用性）.rar (28.42 KB, 下载次数: 8)

yjwdjfqb · 发表于 2013-12-6 15:14

zjdh 发表于 2013-12-6 15:08

老师，这样非常的好

能不能提下，代码的速度，我在本地测试时，有点慢，可能是我数据多的原因，由于涉及到单位的一些资料，不能把全部数据放在附件中，所以附件中数据量小，如果数据量多，老师再帮帮提下速度好吧

yjwdjfqb · 发表于 2013-12-6 15:19

zjdh 发表于 2013-12-6 15:08

另外，导出的工作表，和导出的工作薄有时候，表格的格式，不能跟原表一样，可以实现这个吗老师!

zjdh · 发表于 2013-12-6 16:18

已经无法提速啦，运行时间主要是复制，既要复制数据，又要复制格式，数据多复制当然复制时间要长一点。
列宽已经有
For I = 1 To .UsedRange.Columns.Count
.........
来保证啦，
行高则在复制时已经带上了，应该是与原表一致的。
你把不一致的情况用一些模拟数据传上来看看。

yjwdjfqb · 发表于 2013-12-6 16:25

zjdh 发表于 2013-12-6 16:18
已经无法提速啦，运行时间主要是复制，既要复制数据，又要复制格式，数据多复制当然复制时间要长一点。
列 ...

好的老师

yjwdjfqb · 发表于 2013-12-6 16:31

zjdh 发表于 2013-12-6 16:18
已经无法提速啦，运行时间主要是复制，既要复制数据，又要复制格式，数据多复制当然复制时间要长一点。
列 ...

导出的这个工作薄，列宽不一样.rar (209.9 KB, 下载次数: 3)

zjdh · 发表于 2013-12-6 16:54

这个你再试试

导出筛选的数据（代码具有公用性）2.rar (27.26 KB, 下载次数: 21)

yjwdjfqb · 发表于 2013-12-6 17:00

zjdh 发表于 2013-12-6 16:54
这个你再试试

谢谢老师，这个完美!

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