excel - 使用宏将 Excel 文件另存为 TSV

Question

我想在我的 excel 文件中创建一个特殊按钮，将文件自动保存为 TSV

任何人都可以帮我解决这个问题.. 指导或指出我正确的方向。谢谢你。

我真的很感谢你的帮助。

谢谢！

Answer 1

这应该可以工作，并重新启用当前的真实工作簿

Sub tsv()
 ' save the current fileName for re-save later
    BookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    ' select the good Sheet.Range
    Sheets("TSV-Sheet").Range("A1:N25").Select
    ' dont display alert when already exist
    Application.DisplayAlerts = False

    ' save TSV file
    ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\Book1.tsv", FileFormat:=xlText, CreateBackup:=False

    ' change the sheetName modified by previous SaveAs
    ActiveSheet.Name = "TSV-Sheet"

    ' Resave the real WorkBook (because the current workbook is *.TSV)
    ActiveWorkbook.SaveAs Filename:=BookName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Answer 2

这应该可以，只需更改路径

Sub test()

    ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\Book1.tsv", _
        FileFormat:=xlText, CreateBackup:=False

End Sub