VB如何把XLS整个工作簿的各个工作表分别导出为记事本文件
现有XLS工作簿，有多个工作表。怎样用VB命令一次的将各个工作表直接转换为各个记事本.请指教

[解决办法]
命令是没有的,写代码吧,遍历表名,然后把数据导出到记事本.
[解决办法]
遍历，这样做
xlSheet.SaveAs Filename:="E:\My Documents\" & xlsheet & ".txt", FileFormat:= xlText, CreateBackup:=False
[解决办法]

VB code

'窗体上放一个命令按钮Command1，一个列表框控件List1，一个通用对话框控件CommonDialog1'引用对象库Microsoft Excel 11.0 Object LibraryOption ExplicitDim xlExcel As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetPrivate Sub Command1_Click()        On Error GoTo Errhandler        CommonDialog1.Filter = "Excel(*.xls)|*.xls|AllFile(*.*)|*.*"        CommonDialog1.FilterIndex = 1        CommonDialog1.ShowOpen        Set xlExcel = New Excel.Application        xlExcel.Workbooks.Open CommonDialog1.FileName        Set xlBook = xlExcel.Workbooks(CommonDialog1.FileTitle)        For Each xlSheet In xlBook.Worksheets            List1.AddItem xlSheet.Name '列出所有Sheet表名称            xlBook.Sheets(xlSheet.Name).Select            xlBook.SaveAs "c:\" & xlSheet.Name & ".txt", xlText        Next        xlBook.Close        xlExcel.Quit        Set xlSheet = Nothing        Set xlBook = Nothing        Set xlExcel = NothingErrhandler:        Exit SubEnd Sub