[英]Saving Excel Files as TSV using Macro
我想在我的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
這應該有效,只需更改路徑
Sub test()
ActiveWorkbook.SaveAs Filename:="C:\Users\User\Desktop\Book1.tsv", _
FileFormat:=xlText, CreateBackup:=False
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.