【求助】生成TXT文件VBA代码问题

wjb313

如附件所示的EXCEL中，我选择“生成工参”，就会在桌面上生成TXT文件，但是当前应用的这个EXCEL表也变成TXT文件，要A关掉，再重新开起这个生成代码的EXCEL才行，而不是直接生成TXT文件后，当前的EXCEL表不会变化。请帮忙看下代码


代码如下：
   Sheet3.Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
  ChDir "C:\Users\Administrator\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\鼎利工参.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    Sheet3.Range("A2:I" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row + 3000).Delete
    Sheet1.Select
MsgBox ("粘贴完成!")

粘贴.rar (80.99 KB, 下载次数: 14)

2014-4-6 10:36 上传

点击文件名下载附件

wjb313

顶一下，希望朋友们帮忙看一下怎么处理这个宏代码