用vb如何将excel指定的数据导出到txt

[haihai0]

怎么将excel 中第五行开始的A、B、E列导出到txt文档

我对VB一点都不熟，略懂基础语法，请求高手指教

[舉杯邀明月]

给你段代码参考。
这只是主要过程代码，其它细节及异常处理的问题，你自己考虑。
不清楚你的实际应用环境，我想得再多，也是白搭。

Private Sub ExportText()
      Dim objApp  As Object
      Dim objWbk  As Object
      Dim objSht  As Object
      Dim i&, strTemp$, strWorkBook$
   '工作簿文件名你自己处理
   strWorkBook = "X:\Temp\Book1.xls"
   Set objApp = CreateObject("Excel.Application")
   Set objWbk = objApp.Workbooks.Open(strWorkBook)
   Set objSht = objWbk.Sheets(1)    '要导出哪张表，你自己处理
   '输出的文本文件名自己处理
   Open "X:\Temp\TextOut.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

[贝隆]

http://download.csdn.net/detail/veron_04/2341786

[Sure82]

自己编的代码总是有一列写不进去