wshzw

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