- 以下をメモ帳に貼り付けて○○○.vbsで保存する。
- エクセルファイルを○○○.vbsにドラッグ&ドロップする。
- ドラッグ&ドロップしたファイルがすべてxlsx形式で自動的に保存される。
※保存場所は元のファイルのフォルダ内。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | setargs=WScript.Arguments setobj=CreateObject("Scripting.FileSystemObject") setXlApp=CreateObject("Excel.Application") foreachpathinargs ext=obj.GetextensionName(path) setbook=XlApp.Application.Workbooks.Open(path) XlApp.Application.Visible=true 'book.SaveAs Replace(path, "." & ext, ".xls"), -4143 'xlsx=51, xls=-4143, csv=6 book.SaveAsReplace(path,"."&ext,".xlsx"),51'xlsx=51, xls=-4143, csv=6 'book.SaveAs Replace(path, "." & ext, ".csv"), 6 'xlsx=51, xls=-4143, csv=6 book.Close next XlApp.Quit setXlApp=nothing msgbox"Done!!" |
コメント