查看完整版本: 请教，如何将excel中的所有内容导出到txt中！

请教，如何将excel中的所有内容导出到txt中！

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

仅供参考：
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