Sub copy()
Workbooks.OpenText Filename:= _
"\\server3\DailyDump\新建 文本文档.txt", Origin:=936, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
将新建文本文档改为txt的名称
C:\Documents and Settings\Administrator\桌面\1.xls是保存的路径及名称
按钮中输入下面的代码：
Application.Run "copy"
