Excel VBA テクニック集
拡張子の変更





Excel VBA テクニック集
拡張子の変更方法です。 登録するときに、拡張子・ファイルフォーマットを指定することによりコントロールできます。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。
    Dim File_Frm As String
    Dim File_Out As String
    Dim I as Integer

    File_Frm = Excel_App.ActiveWorkbook.Name
    For I = Len(File_Frm) To 1 Step -1
        File_Out = Left(File_Frm, I)
        If Mid(File_Frm, I, 1) = "." Then
            Exit For
            End If
        Next I

    'CSVファイル
    Excel_App.ActiveWorkbook.SaveAs FileName:=File_Out & "Csv", FileFormat:=xlCSV

    'TSVファイル
    Excel_App.ActiveWorkbook.SaveAs FileName:=File_Out & "Tsv", FileFormat:=xlText

    'XLSファイル
    Excel_App.ActiveWorkbook.SaveAs FileName:=File_Out & "Xls", FileFormat:=xlExcel8

    'TXTファイル,カンマ区切り
    Excel_App.ActiveWorkbook.SaveAs FileName:=File_Out & "Txt", FileFormat:=xlCSV

    'TXTファイル,タブ区切り
    Excel_App.ActiveWorkbook.SaveAs FileName:=File_Out & "Txt", FileFormat:=xlText


「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| FaceBook| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|