VB如何把XLS整个工作簿的各个工作表分别导出为记事本文件
现有XLS工作簿，有多个工作表。怎样用VB命令一次的将各个工作表直接转换为各个记事本.请指教
[解决办法]
命令是没有的,写代码吧,遍历表名,然后把数据导出到记事本.
[解决办法]
遍历，这样做
xlSheet.SaveAs Filename:="E:\My Documents\" & xlsheet & ".txt", FileFormat:= xlText, CreateBackup:=False
[解决办法]
'窗体上放一个命令按钮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
