首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

用vb怎么将excel指定的数据导出到txt

2012-10-19 
用vb如何将excel指定的数据导出到txt怎么将excel 中第五行开始的A、B、E列导出到txt文档我对VB一点都不熟,略

用vb如何将excel指定的数据导出到txt
怎么将excel 中第五行开始的A、B、E列导出到txt文档

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


[解决办法]
http://download.csdn.net/detail/veron_04/2341786
[解决办法]
给你段代码参考。
这只是主要过程代码,其它细节及异常处理的问题,你自己考虑。
不清楚你的实际应用环境,我想得再多,也是白搭。

VB code
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      '你没说结束行的条件,我就假设A列为空表示数据结束      If (strTemp = "") Then Exit Do      'objSht.Cells(i, 1) 是A列      'objSht.Cells(i, 2) 是B列      'objSht.Cells(i, 5) 是E列      '每行数据如何分隔单元,你自己处理      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 "数据导出完毕!", vbInformationEnd Sub 

热点排行