保存するExcelファイルのマクロ

自動的TSVとしてファイルを保存し、私のExcelファイル内の特別なボタンを作成したいのですが、誰がこの..ガイドで私を助けたり、右に私を指すことができます方向。ありがとうございました。

本当にありがとうございます。

ありがとうございました！

2012-02-22 Philip Badilla

は、その形式でファイルを保存しているときに、マクロを記録しようとしている現在の実ワークブックを再有効化？それはあなたを始めるはずです。 –

これは動作するはずです、ただこれは動作するはずのパス

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（）はここでは必要ありません。 –

@TimWilliams良い点が削除されました。ありがとう – Raystafarian

しかし、現在のworkBoockは_Book1.tsv_という名前に変更されます。** ActiveWorkbook.Save **は、実際のワークブックではなく* .tsvを再保存します。 – Alban

を変更し、

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ファイルのマクロ

答えて

関連する問題