我想在 Excel 文件中创建一个特殊按钮,自动将文件另存为 TSV
任何人都可以帮我解决这个问题......指导或指出我正确的方向。谢谢。
非常感谢您的帮助。
谢谢!
最佳答案
这应该可行,并重新启用当前的真实工作簿
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
关于excel - 使用宏将 Excel 文件保存为 TSV,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9399188/