工资表3
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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方法关闭活动工作簿。