如何将excel里的所有工作表的a列提取到txt文本文档？

snowfclan

之前网上搜了一下，只有将工作表所有列提取到单独的txt文件。
如何只提取所有的工作表的A列，集中到一个txt文件，，附件附上我的excel



以下这个是代码
Sub zh()
Dim p$, sht, s$, fullp$
Application.ScreenUpdating = False
p = "D:\"
For Each sht In Worksheets
    fullp = p & "\" & sht.Name & ".txt"
    Open fullp For Output As #1
    r = sht.[a1].CurrentRegion
    For i = 1 To UBound(r)
        For j = 1 To UBound(r, 2)
            s = IIf(s = "", r(i, j), s & vbTab & r(i, j))
        Next
        Print #1, s
        s = ""
    Next
    Close #1
Next
Application.ScreenUpdating = True
End Sub

snowfclan

或者是将这个代码改为只导出A列也行，回头再自己每个txt文件合并

jimyou

'没有下载文件，猜应该这样
Sub zh()
Dim p$, sht, s$, fullp$
Application.ScreenUpdating = False
p = "D:\"
For Each sht In Worksheets
    fullp = p & "\" & sht.Name & ".txt"
    Open fullp For Output As #1
    r = sht.[a1].CurrentRegion
    For i = 1 To UBound(r)

            s = IIf(s = "", r(i, 1), s & vbTab & r(i, 1))

        Print #1, s
        s = ""
    Next
    Close #1
Next
Application.ScreenUpdating = True
End Sub

snowfclan

jimyou 发表于 2019-10-3 16:26
'没有下载文件，猜应该这样
Sub zh()
Dim p$, sht, s$, fullp$

好的，我试试看

snowfclan

jimyou 发表于 2019-10-3 16:26
'没有下载文件，猜应该这样
Sub zh()
Dim p$, sht, s$, fullp$

可以了，谢谢，，有个问题 ，，能不能把把所有的txt集合到一个txt文本文档里？

snowfclan

jimyou 发表于 2019-10-3 16:26
'没有下载文件，猜应该这样
Sub zh()
Dim p$, sht, s$, fullp$

谢谢了，，用了cmd运行命令，，可以解决，多个txt的文件合并，，命令如下，，copy "D:\需要合并的\*.txt" "D:\sult.txt"