Excelマクロ!名前を付けて保存時に拡張子をCSV・xls・xlsxに変更する!&パスワード! | Excel(エクセル)の顔ブログ!広島!

Excel(エクセル)の顔ブログ!広島!

VLOOKUP、IF、SUMIF、MATCH、INDEX、COUNTIFなどの関数やピボットテーブルによるものや、条件付き書式、名前の管理、データの入力規則などの機能、マクロ(VBA)などによるスキルUPブログです。

おはようございます。

 

Excelの顔ブログの野村です。

 

今回はExcelマクロで名前を付けて保存する際の拡張子の変更方法と読み取りパスワードを付ける方法についてご紹介いたします。

 

【CSVへの変更】

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "名前", FileFormat:=xlCSV

 

【xlsへの変更方法】

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "名前",FileFormat:=xlWorkbookNormal

 

【xlsxへの変更方法】

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "名前",FileFormat:=xlworkbookdefault

 
赤字部分を変更して拡張子を変更していきます。
 
【読み取りパスワードを付ける】
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "名前",FileFormat:=xlworkbookdefault,
Password:=""
 
赤字部分で読み取りパスワード設定。