如何将excel表格导出到记事本上，不要合并为一列的那种？

xicu3d

教案.zip (151.8 KB, 下载次数: 8)

2023-1-12 21:05 上传

点击文件名下载附件

可以从第2行开始往下输出全部的行和列，千万不要将所有列数据用空格加连接符合并为一列数据，而是原有行列不变，请问这个如何导出到记事本上？

明天会更好zj

Sub Outtotext()   'Excel数据写入到TXT文档
    Dim i, j, col As Long
    Dim str As String, s As String
   
    str = ThisWorkbook.Path & "\"
    col = [a2].End(2).Column
   
     Open str & [a1] & ".txt" For Output As #1
    i = 2
    Do While Cells(i, 1) <> ""
   
        For j = 1 To col
            s = s & Cells(i, j) & "    "
        Next
  
        Print #1, s
        s = ""
        
        i = i + 1
        Loop
       Close #1
End Sub

tmplinshi

1. Sub 导出到文本文件()
   
2.     Dim lastCell, rng, line, arr1(), data$
   
3.    
   
4.     Set lastCell = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)
   
5.     Set rng = Range("A2", lastCell)
   
6. 
   
7.     For Each line In rng.Rows
   
8.         arr1 = Application.Transpose(Application.Transpose(line))
   
9.         data = data & Join(arr1, vbTab) & vbCrLf
   
10.     Next
    
11. 
    
12.     FileWrite data, ThisWorkbook.Path & "\" & [A1] & ".txt"
    
13.     MsgBox "导出完毕"
    
14. End Sub
    
15. 
    
16. Sub FileWrite(text, filePath)
    
17.     Open filePath For Output As #1
    
18.     Print #1, text
    
19.     Close #1
    
20. End Sub

复制代码

lcluck2002

如何把一个表格的数据导出记事本，不要合并为一列？

tmplinshi

xicu3d

非常感谢各位老师的帮忙，lcluck2002老师的代码是我想要的答案，明天会更好zj老师把各列用空格+连接符连起来了，tmplinshi老师的代码输出不了，不知道是不是因为版本的原因？

xicu3d

tmplinshi老师修改后的答案正确，没有看仔细，不好意思。

xicu3d

我添加空格试了一下，tmplinshi老师的答案完全符合，lcluck2002老师还需要改一下只能输出前面两行

静听溪流

tmplinshi 发表于 2023-1-13 00:02

这种情况 输入两个\\ 就可以了