定時に行う作業を自動化したい｡毎週火曜日にﾃﾞｰﾀが送信されてきます｡そのﾃﾞｰﾀを加工集計しています｡その作業をできる限り自動化したいのです｡具体的には 1)あ…

定時に行う作業を自動化したい｡
毎週火曜日にﾃﾞｰﾀが送信されてきます｡そのﾃﾞｰﾀを加工集計しています｡
その作業をできる限り自動化したいのです｡
具体的には
1)あるﾌｫﾙﾀﾞにあるﾃﾞｰﾀを解凍(そのﾌｫﾙﾀﾞにあるﾌｧｲﾙを選択してLhasaにﾄﾞﾛｯﾌﾟ解凍を行っている｡まずこの部分を自動化)
2)解凍されたﾃﾞｰﾀをｴｸｾﾙを用いて名前の変更｡この部分はﾌﾟﾛｸﾞﾗﾑ作成済みです｡ただ､1)の作業終了後､ｴｸｾﾙを立ち上げ､ﾌﾟﾛｸﾞﾗﾑの実行をしているので､ｴｸｾﾙの立ち上げ､ﾌﾟﾛｸﾞﾗﾑの実行を自動で行いたい｡

完全自動化するとしたら､毎週火曜日に送られて来るﾃﾞｰﾀの正確な日時やﾌｧｲﾙ構成､送られてくる場所などの情報に規則性が無いと､ｽｹｼﾞｭｰﾙとして組むことは難しいかと思います｡

私が自動化するとしたらざっと次のような物を考えます｡
1)Lhasaで解凍するということはzipかlzhになりますが､zipの場合はｺﾏﾝﾄﾞﾗｲﾝで解凍することもできますので自動化を考えた場合Lhasaに拘ることもないのかなと思います｡例えばvbsにﾌｫﾙﾀﾞをﾄﾞﾛｯﾌﾟすることでVBScriptから解凍することもできます｡
以下はﾄﾞﾛｯﾌﾟしたzipを解凍するvbsのｻﾝﾌﾟﾙです｡
※わかりやすくするためにｴﾗｰﾄﾗｯﾌﾟ等は省いています｡

set fso = WScript.CreateObject("Scripting.FileSystemObject")
File = WScript.Arguments(0)
With CreateObject("Shell.Application")
.NameSpace(fso.GetParentFolderName(File)).CopyHere .NameSpace(File).Items
End With

2)1)でvbsを使うと､次にVBScriptからExcelを立ち上げﾌｫﾙﾀﾞのﾊﾟｽをそのまま送りﾏｸﾛを実行させることができます｡その部分は次のようなVBScriptで可能です｡

Set ExApp = CreateObject("Excel.Application")
ExApp.Visible = True
ExApp.Workbooks.Open "C:\Users\hogehoge\Desktop\ﾏｸﾛ.xls"
ExApp.Run "myMacro", WScript.Arguments(0)

上記をvbsで保存し､ﾌｫﾙﾀﾞをﾄﾞﾛｯﾌﾟするとﾏｸﾛ.xlsが開きmyMacroという関数が実行されます｡
下記のようにﾏｸﾛ.xlsに関数を作ればﾊﾟｽが渡ることが確認できると思います｡

Private Sub myMacro(path As String)
 MsgBox path
End Sub

ﾊﾟｽが渡れば作成済みのﾌﾟﾛｸﾞﾗﾑで使うことができます｡
気をつけることは解凍からﾌﾟﾛｸﾞﾗﾑの実行を自動で行う場合､解凍の同期処理が必要であるということ｡