现在有一本Excel的工作簿,需要将所有的表格都存为文本文件，怎样实现?

Question

Application.Sheets.Count知道工作簿下所有的表的数目.
Application.WorkSheet.Name一张表的名称

Answer 1

谢谢，请告诉我表的名称如何得到？
但是现在又有如何存为文本的问题，由于很长时间不用vb了，对Excel的操作又不熟悉，请问是否需要重新扫描所有的单元格，还是有更好的办法？
目前我只知道saveas的方法

Answer 2

你可以得到sheets.count 后用一个循环取出所有表的名称 。
application.sheets(i).name  是第i  张表的名称,另存为文本文件不需要扫描所有的单元格， excel 会处理的。

Answer 3

不好意思，请问：存为文本文件“excel 会处理的”，我该怎么让Excel处理？代码怎么写？

Answer 4

If MsgBox("您想保存‘" & FileName & "’文件吗？", vbQuestion + vbOKCancel, "提示") = vbOK Then
      If Not (Dir(FileName) = "") Then
         If MsgBox("文件‘" & FileName & "’已经存在！您想替换现有文件吗？", vbQuestion + vbOKCancel, "提示") = vbOK Then
            Kill FileName
         Else
            Exit Sub
         End If
      End If
   Else
      Exit Sub
   End If
End If
ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:= _
        xlNormal, Password:=Password, WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Answer 5

再回答一个问题，使用上面的方法，在FileFormat这个参数上（我就用了这一个，因为其余的都是可选的），
我查了Excel的vb帮助，使用了xlNormal,xlCSV,xlTextWindows等等常量，怎么总是告诉我“变量未定义”，难道还要什么条件？
分数嘛，我会加满100分的
小生有礼了