〔VBS〕エクセルxls, xlsx, xlsmファイルをcsvへ変換したい！

VBS

2020.03.20

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

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!!"

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.SaveAs Replace(path, "." & ext, ".xlsx"), 51 'xlsx=51, xls=-4143, csv=6

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

book.Close

XlApp.Quit

setXlApp=nothing

msgbox"Done!!"

〔VBS〕エクセルxls, xlsx, xlsmファイルをcsvへ変換したい！

コメント

お知らせ

お知らせ