请教大神：点击excel vba 里的按钮怎样做到如下效果？谢！！

宏代码如下：

Sub Test()
Dim wb As Workbook, mAry, fn As String, mPath As String
Application.DisplayAlerts = False
    With ThisWorkbook
        mAry = .ActiveSheet.Range("a2:b3")
        mPath = .Path
        fn = .ActiveSheet.[a1].Value
    End With
    Set wb = Workbooks.Add
    With wb
    .Worksheets(1).[a1].Resize(UBound(mAry, 1), UBound(mAry, 2)) = mAry
    .SaveAs mPath & "\" & fn & ".txt", xlText
    .Close
    End With
Application.DisplayAlerts = True
End Sub

这样就好了啊
Sub 按钮1_Click()
On Error Resume Next
Set Rg1 = Selection
Sheets("data").Delete
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Name = "data"
Rg1.Copy Sheets("data").[a1]
Sheets("data").SaveAs ThisWorkbook.Path & "\data.txt", 6
End Sub

这个代码的意思是 你当前选择的单元格区域输出到 txt 重命名的话修改一下最后的名称变成变量就好了