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

haihai0 2012-10-02 10:56:13
怎么将excel 中第五行开始的A、B、E列导出到txt文档

我对VB一点都不熟,略懂基础语法,请求高手指教
...全文
1413 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Sure82 2012-10-20
  • 打赏
  • 举报
回复
自己编的代码总是有一列写不进去
舉杯邀明月 2012-10-03
  • 打赏
  • 举报
回复 1
给你段代码参考。
这只是主要过程代码,其它细节及异常处理的问题,你自己考虑。
不清楚你的实际应用环境,我想得再多,也是白搭。

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 "数据导出完毕!", vbInformation
End Sub

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧