vba - Excelマクロで読み取り専用ファイルを別のファイル拡張子として保存する方法は?

Question

Web から開いているファイルを自動的に開いたり保存したりするマクロ設定があります。Web 形式は #csv.gz 形式です。現在、ファイルをデフォルトの場所 (c:\files に変更しました) に保存するだけのコードがあります。ファイルのファイル名を保持し、拡張子を file.xlsm だけに変更するマクロを作成したいと考えています。VBA/Excelでこれを行う方法はありますか? 拡張子を変更する必要があるのは、現在、数式で機能しないためです。私が持っているデフォルトの保存コードは、ファイルを #csv.txt として保存するだけです。

これは可能ですか？

Answer 1

このコードを自分のコードに統合します。

Sub SaveIt()

Dim wkb As Workbook

Set wkb = ActiveWorkbook 'change to your workbook reference

wkb.SaveAs Replace(wkb.Name, ".txt", ""), 52 'change ".txt" to ".csv" if need be

End Sub

52 の詳細については、Excel File Type Enumを参照してください。