excel宏问题

更新时间2019-07-06 05:47:10

Sub 导出数据()
Dim Arr, k%, Str$
Dim Nm$
Close #1
Range("a1:v100").Select
Arr = Selection
For k = 1 To UBound(Arr)
If Len(Trim(Join(Application.Index(Arr, k), " "))) Then Str = Str & IIf(Str = "", "", vbCrLf) & RTrim(Join(Application.Index(Arr, k), " "))
Next
Nm = "E:数据1.txt"
Open Nm For Output As #1
Print #1, Str
Close #1
End Sub
Sub 导出数据()
Dim Arr, k%, Str$
Dim Nm$
Close #1
Range("a101:v200").Select
Arr = Selection
For k = 1 To UBound(Arr)
If Len(Trim(Join(Application.Index(Arr, k), " "))) Then Str = Str & IIf(Str = "", "", vbCrLf) & RTrim(Join(Application.Index(Arr, k), " "))
Next
Nm = "E:数据2.txt"
Open Nm For Output As #1
Print #1, Str
Close #1
End Sub
两个宏怎么弄到一个按钮上点击之后依次运行？麻烦各位了，谢谢！

首先，要将两个Sub以不同的名字命名，比如"导出数据1"，"导出数据2"

1 打开菜单：视图-》工具栏-》控件工具箱

进入设计模式-》分别建立两个"按钮"，鼠标右键点"按钮"-》属性

把内里的"(名称)"、"Caption"的内容均分别变更为"导出数据1"，"导出数据2"

2 然后鼠标右键点"按钮"-》查看代码，在弹出的页面内，把两个已经分别命名为"导出数据1"，"导出数据2"的Sub复制进去，编辑好；

3 回到excel主页，关闭"控件工具箱"的"设计模式"，此时即可使用该两按钮。