[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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 >
# 個人的な感想が許されるなら、そうしたことよりも前に、インデントをきちんとつけるとか
# そうしたことを身に着けるほうが有益かと思いました。
(γ) 2021/09/16(木) 15:52
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.