Excel全シートテキスト保存 Excel macro

番外編で Excel Macro VBAだ。

用語辞書作成支援で紹介したAwkScriptだが、食わせる元文書がExcelだと大変。
数十もあるシートをテキスト保存して、Mecabに食わせるなんてウンサリするぞ、
…てなわけで、VBAだ。
ブック名＋シート名.tsvというファイル群を一気に生成する。

ただし、内部的には、保存時にブック名と形式がテキストファイルに変わっているから、最後に戻す、、、と言いたい所だが、ブック名と形式を戻す為には、再度保存しないと戻せない。
勝手に元ブックに保存するのはマズいので、元ブック名の先頭に "_" をつけてみる。

ま、後は好きにやってくれ。

WinMergeのExcelアドインはヘボいから、コイツでテキスト保存して、フォルダ単位にWinMerge差分を採る…なんて使い方もあるぞ。
ただし、オブジェクトは無視してるから我慢してくれ。

Sub 全シートTSV保存() Dim sh As String Dim shn As String Dim bkn As String Dim bknOrg As String okstr = "／〈〉゛｜￤〈〉゛゛゛゛〈〉〈〉" bknOrg = ActiveWorkbook.Name bkn = StrConv(ActiveWorkbook.Name, vbLowerCase) ff = ActiveWorkbook.FileFormat i = InStr(bkn, ".xls") If i > 0 Then bkn = Left(bkn, i - 1) End If For i = 1 To ActiveWorkbook.Sheets.Count shn = ActiveWorkbook.Sheets(i).Name sh = bkn + "_" + shn + ".tsv" For j = 1 To Len(sh) n = InStr("/<>""|;＜＞""""〝〝()（）", Mid(sh, j, 1)) If (n > 0) Then Mid(sh, j, 1) = Mid(okstr, n, 1) End If Next ActiveWorkbook.Sheets(i).Activate ActiveWorkbook.SaveAs Filename:=sh, FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Sheets(i).Name = shn Next ActiveWorkbook.SaveAs Filename:="_" + bknOrg, FileFormat:=ff, CreateBackup:=False End Sub