工作表保存爲文本文件

Public Sub 工作表保存爲文本文件()
    Dim sFName As String
    sFName = Application.InputBox(prompt:="請輸入文本文件的名稱：", _
         Title:="輸入文件名稱", Type:=2)
    If sFName = "False" Or sFName = "" Then Exit Sub
    
    sFName = ThisWorkbook.Path & "\" & sFName & ".txt"
    On Error Resume Next
    If Len(Dir(sFName, vbDirectory)) > 0 Then
        If MsgBox("該文件已經存在，是否刪除？", vbQuestion + vbYesNo) = vbYes Then
            Kill sFName    '刪除已有的同名文件
        Else
            Exit Sub
        End If
    End If
    On Error GoTo 0
    Set ws1 = Worksheets("Sheet1")
    ActiveWorkbook.SaveAs Filename:=sFName, FileFormat:=xlCSV
    MsgBox "保存成功！"
'    ActiveWorkbook.Close SaveChanges:=False  '這個語句用於清空工作表
End Sub

作者：LiW