7,785
社区成员




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