如何将一个工作簿里若干工作表批量生成为txt文本文件

foreverjhlc

工作中遇到个问题，想请各位帮忙解决下



问题描述：

需要将同一工作簿里的若干工作表，批量生成为txt文本文件，并且保存在某一个文件夹。保存路径暂定为D:\新建文件夹

附件里有10个表，实际工作中，有上百个表。

要求生成的txt文件的名字跟工作表的要一一对应，例如工作表sheet1的名字是1，那么生成的文本文件的名字也是1，即1.txt，依次类推。

要求生成的txt文件的内容要跟对应的表一致，即1.txt跟sheet1的内容是完全一致，不能发生更改。



不知道能否用VBA实现上述要求呢，在线等！

dqhtju

用for each 循环就可以了

foreverjhlc

dqhtju 发表于 2016-7-27 11:45
用for each 循环就可以了

能帮忙写个不

看见星光

1. Sub zh()
   
2. Dim p$, sht, s$, fullp$
   
3. Application.ScreenUpdating = False
   
4. p = "D:\新建文件夹"
   
5. For Each sht In Worksheets
   
6.     fullp = p & "" & sht.Name & ".txt"
   
7.     Open fullp For Output As #1
   
8.     r = sht.[a1].CurrentRegion
   
9.     For i = 1 To UBound(r)
   
10.         For j = 1 To UBound(r, 2)
    
11.             s = IIf(s = "", r(i, j), s & "丨" & r(i, j))
    
12.         Next
    
13.         Print #1, s
    
14.         s = ""
    
15.     Next
    
16.     Close #1
    
17. Next
    
18. Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

看见星光

附件参考 1如何将工作表批量生成为文本文件.rar (29.4 KB, 下载次数: 365)

2016-7-27 12:00 上传

点击文件名下载附件

foreverjhlc

看见星光 发表于 2016-7-27 12:00
附件参考

老师，谢谢你，不过有个问题啊，用这个代码确实可以批量生成TXT文件，但是我用excel的打开方式打开任意一个文件，发现所有的内容都在A列里面，字段之间有分割号。怎么样才能使得生成的txt打开之后，每个字段的内容分别在各自列里面呢，即生成后的TXT文件，用excel打开之后，样子跟原来的sheet1一样

foreverjhlc

有人来帮帮忙吗，在线等啊

huang1314wei

改一个地方就可以了
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

foreverjhlc

huang1314wei 发表于 2016-8-15 17:35
改一个地方就可以了
Sub zh()
Dim p$, sht, s$, fullp$

不好意思，我没看出来是改的什么地方啊，貌似你给的，跟原来的一样啊，或者说是我眼神不好，改的哪里呢

foreverjhlc

看到了，谢谢老师了