编程开发论坛 - Powered by Discuz! Board

标题: [基础] 请教，如何将excel中的所有内容导出到txt中！ [打印本页]

作者: hrbapple 时间: 2007-12-13 16:01 标题: 请教，如何将excel中的所有内容导出到txt中！

我想将excel中的数据导出到文本文件中，不知该如何弄；请高手指点。谢！！

作者: wshzw 时间: 2008-2-14 19:07

仅供参考：
Sub wshzw()
Dim vStr, i%, iRow%, vSh As Worksheet
Open "e:\wshzw.txt" For Output As #1
For Each vSh In Sheets
   iRow = vSh.UsedRange.Rows.Count
   vStr = vSh.UsedRange
   For i = 1 To iRow
      Write #1, vStr(i, 1), vStr(i, 2), vStr(i, 3)
   Next i
   Erase vStr
Next vSh
Close #1 ' 关闭文件
End Sub

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)