【エクセルマクロ】名前を付けて保存時に拡張子をtxtに設定する

ExcelVBA_名前を付けて保存時に拡張子txt_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、名前を付けて保存時に拡張子をtxt(テキストファイル)に設定するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

名前を付けて保存時に拡張子をtxtに設定

以下のマクロを実行すると、
名前を付けて保存ダイヤログを表示し、拡張子をテキストファイルのタブ区切り(txt)に設定します。


Sub 名前を付けて保存で拡張子に設定()

Dim FileName As String
Dim FindPos As Long
Dim Done As Variant

    '拡張子を除くファイル名を取得
    FindPos = InStrRev(ActiveWorkbook.Name, ".")
    FileName = Left(ActiveWorkbook.Name, FindPos - 1)

    Done = IIf(Application.Dialogs(xlDialogSaveAs). _
     Show(Arg1:=ThisWorkbook.Path & "\" & FileName & ".txt", Arg2:=3), _
     "保存", "キャンセル")

    If Done = "キャンセル" Then
        '「キャンセル」を選択したときの動作を入力する
    Else
        '「保存」を選択したときの動作を入力する
    End If

End Sub

 

マクロ実行後

「ファイル名」の拡張子と「ファイルの種類」の両方が、txtに設定されます。


 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】名前を付けて保存時に拡張子をCSVに設定する
...

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載