将当前工作表的数据保存为以逗号分隔的文本文件(2)

本示例用于将当前工作表的数据保存为以逗号分隔的文本文件，详细代码如下：

Sub SaveAsCSV()

'变量声明

    Dim sh$, myFile$, t

    t = Timer    '计时开始

    sh = 'Sheet1'    '指定工作表给变量sh

    '将要保存的文件名赋值给变量

    myFile = ThisWorkbook.Path & '\' & sh & '.txt'

    On Error Resume Next    '如有错误发生往下执行

    Kill myFile    '删除与当前工作簿相同目录下的同名文本文件

    On Error GoTo 0    '恢复错误处理

    '复制待转换的工作表到新工作簿，该工作簿成为活动工作簿

    Worksheets(sh).Copy

    With ActiveWorkbook

        '以另存的方式将工作表保存为CSV型文本文件

        .SaveAs Filename:=myFile, FileFormat:=xlCSV

        .Close savechanges:=False    '关闭活动工作簿

    End With

    MsgBox '所用时间：' & Format(Timer - t, '0.00') & '秒'

End Sub

看图吧：

以下为模拟数据：

转换结果：

优势与劣势：

与前一篇文章【将当前工作表的数据保存为以逗号分隔的文本文件(1)】对比：

方法2适合前当前所指定的整张工作表数据完整转换，而方法1可以指定对部分数据的转换。

方法2只能使用默认的逗号作为文本文件分隔符，而方法1可以使用竖线（|）、Tab键等字符作为分隔符，相对较为灵活。

方法2代码较少，且转换速度相比方法1要快。