お久しぶりです。Mです。
先日初めてVBA(エクセルマクロ)を触る必要に迫られました。
全てを調べながらですが、思ったよりは簡単だったなという印象です。
基本的にはWorkbookだったりWorksheets等が最初は難しかったですが、意外と何とかなりました。

そこで、今回使ったものを再利用の意味も含めてまとめたいと思ったので記事にします。

正規表現

Dim reg As Object

Set reg = CreateObject("VBScript.RegExp")
With reg
.Pattern = "(\(.*\))" 'パターンを指定
.IgnoreCase = False '大文字と小文字を区別するか(False)、しないか(True)
.Global = False '文字列全体を検索するか(True)、しないか(False)
End With

reg.Replace("ab(cd)ef", "")

上記を実行することで、(cd)が空文字列に置換されて、abefとなります。
これは確かGoogleさんでggって調べてほぼそのままだった気がします。

ファイル操作

Dim datFile As String

datFile = ActiveWorkbook.Path & "FileName" & ".txt"

Open datFile For Output As #1

Print #1, "abcdef"

Close #1

上記を実行することで、エクセルファイルのあるディレクトリにFileName.txtというファイルが作成され、”abcdef”の文字列が入ってます。
Open datFile For Output As #1
上記の部分のOutputをAppendにすると元のファイルを消さずに追記していく事ができます。

シート一括処理

For Each ws In ThisWorkbook.Worksheets

Next

これだけです。
これだけですが、役に立ちました。
ws.Nameや、ws.Cells(1, 1)などこんな感じで使えます。

セル検索

If ws.Cells(i, 5).Value <> "" Then

End If

例えば、セルの値が空文字列の時という感じですね。
何も迷うことはありませんね。

まとめ

何かデータをまとめた資料をあるフォーマットのtxtに出力したいという時に役立ちました。
そんな機会が来たらぜひ使ってみてください。
難しそうだと思っていましたが、動かしてみるとしっかり動いて感動しました。
以上です。