VB怎么把XLS整个工作簿的各个工作表分别导出为记事本文件

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 Library
Option Explicit
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private 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 = Nothing
Errhandler:
        Exit Sub
End Sub

VB怎么把XLS整个工作簿的各个工作表分别导出为记事本文件

相关推荐