Excel到tsv自动更新

时间:2014-09-03 11:55:00

标签: excel tsv

是否有任何可以将所有excel更改/版本动态转换为tsv文件的脚本或工具?我的要求是在excel表中完成更改,以便动态地反映到相同的tsv文件中,保存excel表时,应编辑其tsv并应包含修改。

先谢谢你们!!

1 个答案:

答案 0 :(得分:0)

此VBA宏基于Mr. Excel处的工作,但扩展为一次保存为两种格式。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

' break the save
Cancel = True

' perform the save wourself
Application.EnableEvents = False
Me.SaveAs Filename:="c:\tmp\x.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.EnableEvents = True

' do something after the save

Me.SaveAs Filename:="c:\tmp\x.tsv", _
        FileFormat:=xlCurrentPlatformText, CreateBackup:=False    
MsgBox "Workbook is saved in xlsm and tsv"    

End Sub