保存Excel文件作为TSV使用宏

我想创建我的Excel文件中一个特殊的按钮，将文件保存为TSV自动保存Excel文件作为TSV使用宏

谁能帮我这个..导游或点我的权利方向。谢谢。

我真的很感谢你的帮助。

谢谢！

2012-02-22 Philip Badilla

您是否尝试过录制宏，而该格式保存文件？这应该让你开始。 – 2012-02-22 17:18:10

这应该工作，只是改变了路径

Sub test() 

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

End Sub

来源

2012-02-22 18:17:51 Raystafarian

ChDir（）在此不是必需的，除非您还想更改默认目录。 – 2012-02-22 18:49:32

@TimWilliams好点，删除。谢谢 – Raystafarian 2012-02-22 18:51:16

但是当前的workBoock被重命名为_Book1.tsv_下一个动作** ActiveWorkbook.Save **重新保存* .tsv不是真正的工作簿。 – Alban 2013-06-25 07:35:31

这应该工作，并重新启用当前实际工作簿

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

来源

2013-06-25 08:08:14 Alban

保存Excel文件作为TSV使用宏

回答

相关问题