[[20210916152557]]　『Excelブックを開かなくてもマクロ実行』（水性）　ページの最後に飛ぶ

『Excelブックを開かなくてもマクロ実行』（水性）

指定したcsvファイルのS列の文字列の先頭に「IF]という文字を追加するマクロとして

Sub 一括文字列追加()

Dim A_Sheet

    Dim Csv_Import_File

    A_Sheet = ActiveSheet.Name

   With CreateObject("WScript.Shell")
        .CurrentDirectory = ThisWorkbook.Path
    End With

Dim CSVName As String

    CSVName = Application.GetOpenFilename("CSVファイル,*.csv")

 With Workbooks.Open(CSVName)

 Range(Range("S1"), Cells(Rows.Count, 19).End(xlUp)).Select
  Selection.Value = Evaluate("""IF""&" & Selection.Address)

  .Save
  .Close False
            End With

End Sub

このような式を使っています。
マクロは大変便利なのですが、実行するために一々ブックを開くのが少々面倒に思い、もし可能ならブックを開かず（例えばバッチファイルのように）上記のマクロを実行することは可能なのでしょうか。
ご存じでしたら教えて欲しいです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

VBScriptを使う方法もあるかと思います。ネット検索してみてください。

# 個人的な感想が許されるなら、そうしたことよりも前に、インデントをきちんとつけるとか
# そうしたことを身に着けるほうが有益かと思いました。

（γ） 2021/09/16(木) 15:52

コメント返信：