VBAスクリプトを使用した自動実行Excelで、日付マスクに基づいてファイルを自動的に挿入します

Question

これは基本的にテーブルであるExcelファイルです。 私は、特定のエントリを検索してテキストで出力するために、そのExcelファイルのコンバータとして使用されるVBAスクリプトを備えたExcelファイルをもう1つ持っています。

私はそれを自動化しようとしてきましたが、私は解決策を考え出すことができません。 、我々はそれを開き、ボタンをクリックし、ウィンドウがポップアップ表示さ：

これは、「コンバータ」は それは同じように動作し

どのように見えるかです：

これは、元のExcelがどのように見えるかです我々は常に同じパスを持つファイルを選択し、ファイルの名前は常に明日の日付です。次に、変換されたファイルを前に保存されたパスに置きます。

これは、バージョンを「変換」するものであるが、以下のようになります。私は前に述べたように

、私はこれがあることを必要とする多くの日常的な課題の一つであるとして、この手順を自動化するために探しています毎日行われます。

私の選択肢は何か不思議でした。

入力ファイルを自動的に選択することは可能でしょうか？ あるいは、私はVBAスクリプトをExcelから抽出し、Powershellを使って自動化する方法があります。これは、ファイル名をtommorowsの日付に設定することができます。

ご協力いただきまして誠にありがとうございます。 コンバータースクリプトを作成した請負業者に連絡しようとしましたが、もう連絡できません。

Answer 1

vbscript（* .vbs）を作成して開くか、Task Schedulingを実行して実行できます。

以下のスクリプト（メモ帳にコピーして貼り付け、「Converter.vbs」として保存することができます）では、パスを「コンバータ」ブックに変更し、ジョブ。

マクロにも変更を適用します。名前とパスの入力の代わりに、パスがハードコードされている明示的なコーディングを使用し、システムの日付に基づいて名前を取得します。この方法では、スクリプトとのユーザーの対話は必要ありません。

Option Explicit 

'On Error Resume Next ''Comment-out for debugging 

ExcelMacro 

Sub ExcelMacro() 

Dim xlApp 
Dim xlBook 

Set xlApp = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Open("\path\to\Converter.xlsm", 0, True) 

xlApp.Run "Convert" 'This line runs your macro (called Convert) 

xlBook.Close 
xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = Nothing 

End Sub