EXCELをTEXTに一括変換出来ませんか？

複数のEXCEL（複数のシートあり）を一括してテキスト化する手段又はツールはありませんか？若しくは一個のEXCELでもかまいません。量があるのでいちいち開いてTEXTセーブするのがつらくなってきました。

No.3 ベストアンサー 回答者： hi501 回答日時： 2006/02/14 09:49

私も、マクロやVBAは得意ではないので、あまり良いコードではないですが、とりあえずこれでできると思います。

エクセルを起動（Book1になってると思います）－　Alt + F11 － Microsoft Visual Basic・・・　という画面が表示されたら
挿入　－　標準モジュール　－　大きな白いスペースのところに下記のコードをコピペ。
Microsoft Visual Basic・・・を閉じてBook1にもどり念のため適当な場所に保存して下さい。

'------------この下からコピー--------------
Sub test()
Dim wb As Workbook
Dim st As Worksheet
Dim wbname As String
Dim stname As String

For Each wb In Workbooks
wb.Activate
If wb.Name <> ThisWorkbook.Name Then
wbname = Left$(wb.Name, Len(wb.Name) - 4)
For Each st In Worksheets
st.Activate
stname = st.Name
wb.SaveAs Filename:="C:\" & wbname & "_" & stname & ".txt", FileFormat:=xlText, CreateBackup:=False
Next
wb.Close savechanges:=False
End If
Next
End Sub
'------------この上まで-----------------------

そのあと、テキスト化したいエクセルをすべて開きます。
（先ほど作成したブックも開いた状態です）
メニューバーの　ツール　－　マクロ　－マクロ　ー　表示されているマクロ（複数ある場合は、「TEST」が含まれているもの）
を選択し、実行ボタンをクリックします。
保存先は「Ｃ:\」（Cドライブ）です。

この回答へのお礼

ありがとうございます。やってみます。

お礼日時：2006/02/27 08:08

No.2 回答者： hi501 回答日時： 2006/02/13 15:26

いくつかお尋ねです。

・マクロは使えますか？
・使えるとしたら、どの程度できますか？
・テキスト化した場合の保存名は規則性がありますか？（例えば、ブック名＆シート名）

No1で回答されているように、この場合マクロを使用すれば、簡単にできます。

この回答への補足

補足です。
マクロは使えますが（私？私のマシンの事？）私は使った事がある程度です。保存名に規則はありません。ファイル名が一つでも有るを希望。
１．エクセルを開く（マクロ付き）。２．該当ファイルを開く。３．（１．）で開いたファイルのマクロを実行で・・（該当ファイルのシート１は該当ファイル名．ＴＸＴ（希望）でシート２以降は適当な名前．ＴＸＴで良い。）になればよいです。よろしくお願いします。

補足日時：2006/02/13 17:38

この回答へのお礼

ありがとうございます。

お礼日時：2006/02/27 08:08

No.1 回答者： o_chi_chi 回答日時： 2006/02/10 18:27

こんな感じでどうでしょう。

---
Sub M()
Dim i As Long
Dim wn As String
Dim sn As String
wn = Left$(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
For i = 1 To Sheets.Count
sn = Sheets(i).Name
ActiveWorkbook.SaveAs Filename:="C:\" & wn & sn & ".txt", _ FileFormat:=xlText, CreateBackup:=False
Next
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2006/02/27 08:09