求导出表格时可以勾选需要的列的代码

武松打鼓 · 发表于 2020-8-5 15:28

醉清心发表于 2020-8-2 01:26
好好学习天天向上

做的还不错，不过我是想选择导出哪个字段列，不是选择行哦

武松打鼓 · 发表于 2020-8-5 15:32

liulang0808 发表于 2020-8-2 08:24
Sub 导出()
Set Rng = Application.InputBox("请选择区域", "选择", , , , , , 8)
Sheets.Add af ...

可以实现列字段的导出，我是想连列字段下面的数据内容也导出，怎么改，拜托

武松打鼓 · 发表于 2020-8-5 16:01

本帖最后由武松打鼓于 2020-8-5 16:06 编辑

aman1516 发表于 2020-8-4 21:45
随意隐藏或导出指定列
http://club.excelhome.net/thread-1245145-1-1.html

用你的代码，出现错误提示，搞不懂什么意思。

导出选择框.zip (16.81 KB, 下载次数: 9)

aman1516 · 发表于 2020-8-5 17:44

武松打鼓发表于 2020-8-5 16:01
用你的代码，出现错误提示，搞不懂什么意思。

用窗体吧：

aman1516 · 发表于 2020-8-5 17:45

详见附件：

导出选择框.rar (37.56 KB, 下载次数: 29)

武松打鼓 · 发表于 2020-8-5 17:50

aman1516 发表于 2020-8-5 17:45
详见附件：

就是想要这种效果

武松打鼓 · 发表于 2020-8-5 17:52

本帖最后由武松打鼓于 2020-8-5 20:33 编辑

aman1516 发表于 2020-8-5 17:44
用窗体吧：

你的第一种方法不好实现吗

aman1516 · 发表于 2020-8-5 20:03

武松打鼓发表于 2020-8-5 17:52
你的第一种发放不好实现吗

工作表控件也一样的，都可以实现，改下代码生成新工作薄就行了

武松打鼓 · 发表于 2020-8-7 17:13

liulang0808 发表于 2020-8-2 08:24
Sub 导出()
Set Rng = Application.InputBox("请选择区域", "选择", , , , , , 8)
Sheets.Add af ...

标题字段下面的各行数据怎么到新表呢

liulang0808 · 发表于 2020-8-7 17:19

武松打鼓发表于 2020-8-5 15:32
可以实现列字段的导出，我是想连列字段下面的数据内容也导出，怎么改，拜托

这句话不是很明白，带着附件描述吧

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

[求助] 求导出表格时可以勾选需要的列的代码