在Excel中通过宏VB编程实现导出内容到文本文件

在EXCEL中通过宏VB编程实现导出EXCEL中的内容到txt文件：

1. Office 2007中新建/打开一个Excel文件，命名为book1.xls,注意后缀，并且填充数据

2. 点击视图 > 宏 > 录制宏 > 停止宏 > 查看宏 >编辑宏(写VB代码) >保存

Sub Macro1()
      Dim objApp  As Object
      Dim objWbk  As Object
      Dim objSht  As Object
      Dim i&, strTemp$, strWorkBook$
   '工作簿文件名你自己处理
   strWorkBook = "D:\VB\book1.xls"
   Set objApp = CreateObject("Excel.Application")
   Set objWbk = objApp.Workbooks.Open(strWorkBook)
   Set objSht = objWbk.Sheets(1)    '要导出哪张表，你自己处理
   '输出的文本文件名自己处理
   Open "D:\VB\Book1.txt" For Output As #1
   i = 5    '从第5行开始
   Do
      strTemp = objSht.Cells(i, 1).Text
      '你没说结束行的条件，我就假设Ａ列为空表示数据结束
      If (strTemp = "") Then Exit Do
      'objSht.Cells(i, 1) 是Ａ列
      'objSht.Cells(i, 2) 是Ｂ列
      'objSht.Cells(i, 5) 是Ｅ列
      '每行数据如何分隔单元，你自己处理
      strTemp = strTemp & ", " & objSht.Cells(i, 2) & ", " & objSht.Cells(i, 5)
      Print #1, strTemp
      i = i + 1
   Loop
   Close #1
   objWbk.Close False
   Set objSht = Nothing
   Set objWbk = Nothing
   Set objApp = Nothing
   MsgBox "数据导出完毕！", vbInformation
End Sub

在Excel中通过宏VB编程实现导出内容到文本文件