|
拡張子の変更方法です。
登録するときに、拡張子・ファイルフォーマットを指定することによりコントロールできます。
使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。
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
|