Excel文書をCSVに変換(スクリプト実行)

メイン画面のファイルリストを対象に繰り返し処理を行う。

ループ毎にユーザーデータをクリアする。

以下のファイルを書き込みオープンします。

{%GET_G(TopFolder)}\90_System\10_Temp\script.vbs

出力先に既にファイルがある場合は、上書きする。

以下のテキストをテキスト書き込みオープン1でオープンされたファイルに出力する。

'-------------------------------------------------------------------------
'ExcelToCSV.vbs
'
'Excel文書をCSVファイルに変換します。
'-------------------------------------------------------------------------
Option Explicit

dim objExcel

dim INPUT_FILE
dim OUTPUT_FILE

INPUT_FILE = "{%GET(FullPathFileName)}"
OUTPUT_FILE = "{%GET_SEQUENCE_FILENAME({%GET_G(TopFolder)}\20_処理済み\{%GET(FileNameWithoutExtension)}.csv)}"

'CSV形式で保存
SaveCSV(INPUT_FILE)

if IsObject(objExcel) then

    'エクセルを終了します
    objExcel.Quit

end if


sub SaveCSV(inputFileName)

    dim xlCSV
    xlCSV = 6

    '.xlsx,.xls以外のファイルは処理しない
    if lcase(right(inputFileName,4)) <> "xlsx" and _
       lcase(right(inputFileName,3)) <> "xls" then
        exit sub
    end if

    'Excelオブジェクトがない場合
    if IsObject(objExcel) = false then

        'エクセルオブジェクトを作成
        set objExcel = CreateObject("Excel.Application")

        'エクセル画面を非表示
        objExcel.Visible = False

    end if

    'ワークブックを開く
    objExcel.Workbooks.Open inputFileName

    '各種の確認ダイアログを非表示
    objExcel.DisplayAlerts = False

    'アクティブシートをCSV形式で保存
    objExcel.ActiveSheet.SaveAs OUTPUT_FILE, xlCSV

    'ワークブックを閉じる
    objExcel.Workbooks(1).Close

end sub

テキスト書き込みオープン1でオープンされたファイルをクローズする。

以下のコマンドを実行する。

コマンド

C:\Windows\System32\wscript.exe

パラメータ

{%GET_G(TopFolder)}\90_System\10_Temp\script.vbs /b

環境変数

文書を以下の通り移動する。

移動先に同名の文書がある場合は、ファイル名に連番を付与する。