工资表3

1-1? 另存为文本文件
使用SaveAs方法将工作表另存为文本文件，如下面的代码所示。
Sub SaveText()
Dim myFileName As String
" myFileName = ""工资表.txt"""
On Error Resume Next
" Kill ThisWorkbook.Path & ""\"" & myFileName"
Application.ScreenUpdating = False
" Worksheets(""Sheet1"").Copy"
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path _
" & ""\"" & myFileName, _"
FileFormat:=xlCSV
" MsgBox ""文件保存成功!"""
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
代码解析：
SaveText过程将工作表“Sheet1”保存为文本文件。
第4、5行代码使用Kill方法删除同一目录中可能存在的同名文本文件。
第7行代码使用Copy方法复制工作表“Sheet1”。
第8行到第10行代码使用SaveAs方法将文件保存为文本文件。应用于Workbook对象的SaveAs方法保存对不同文件中的工作表的更改，语法如下：
"expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)"
其中参数Filename表示要保存的文件名。可包含完整路径。如果不指定路径，Microsoft Excel 将文件保存到当前文件夹中。
其中参数FileFormat指定保存文件时使用的文件格式，在本例中指定为xlCSV即保存为文本文件。
第12行代码使用Close方法关闭活动工作簿。