〔VBS〕エクセルxls, xlsmファイルをxlsx(新形式)へ変換したい！

VBS

2020.03.20

以下をメモ帳に貼り付けて○○○.vbsで保存する。
エクセルファイルを○○○.vbsにドラッグ＆ドロップする。
ドラッグ＆ドロップしたファイルがすべてxlsx形式で自動的に保存される。
※保存場所は元のファイルのフォルダ内。

set args = WScript.Arguments
set obj = CreateObject("Scripting.FileSystemObject")
set XlApp = CreateObject("Excel.Application")
for each path in args
    ext = obj.GetextensionName(path)
    set book = XlApp.Application.Workbooks.Open(path)
    XlApp.Application.Visible = true
   'book.SaveAs Replace(path, "." & ext, ".xls"), -4143 'xlsx=51, xls=-4143, csv=6
    book.SaveAs Replace(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
set XlApp = nothing
msgbox "Done!!"

set args = WScript.Arguments

set obj = CreateObject("Scripting.FileSystemObject")

set XlApp = CreateObject("Excel.Application")

for each path in args

ext = obj.GetextensionName(path)

set book = XlApp.Application.Workbooks.Open(path)

XlApp.Application.Visible = true

'book.SaveAs Replace(path, "." & ext, ".xls"), -4143 'xlsx=51, xls=-4143, csv=6

book.SaveAs Replace(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

XlApp.Quit

set XlApp = nothing

msgbox "Done!!"

羽織紐を手作りしてます！よろしければご覧ください！

天然石マグネット式羽織紐 #01 / 着物小物 / ブルーグリーン / 水晶
天然石マグネット式羽織紐 #09 / 着物小物 / グレー / 高品質ルチルクォーツ
天然石マグネット式羽織紐 #04 / 着物小物 / ネイビー

羽織紐を手作りしてます！よろしければご覧ください！

天然石マグネット式羽織紐 #01 / 着物小物 / ブルーグリーン / 水晶
天然石マグネット式羽織紐 #09 / 着物小物 / グレー / 高品質ルチルクォーツ
天然石マグネット式羽織紐 #04 / 着物小物 / ネイビー

〔VBS〕エクセルxls, xlsmファイルをxlsx(新形式)へ変換したい！

コメント

お知らせ

お知らせ