[已解决]用vba把excel 的内容转为txt输出特定格式

jiycdl

如何用vba把excel 的内容转为txt输出特定格式

在Excel里面的内容，如何通过vba操作，另存为一个txt文本（按照一个特定格式输出）如下图：

下图是Excel里面的内容格式


下图是转为文本里面的格式

[size=0.83em]2015-11-13 17:10 上传
下载附件 [size=0.83em](39.63 KB)





请问各位大神，怎样解决这个问题呢，用vba直接在Excel里面可以通过宏按钮来操作

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-13 22:12

Sub test()
    Dim p$, f$, A, i, j, s$
    p = ThisWorkbook.Path & "\"
    f = Format(Now, "yyyymmdd-hhmmss") & ".txt"
    A = Sheets(1).UsedRange

    Open p & f For Output As #1
    For i = 2 To UBound(A)
        s = ""
        For j = 1 To UBound(A, 2)
            s = s & "," & """" & A(i, j) & """"
        Next j
        s = Mid(s, 2)
        Print #1, s
    Next i
    Close #1

    Shell "explorer " & p & f, vbNormalFocus
End Sub

1.rar (10.98 KB, 下载次数: 4)

2015-11-13 22:11 上传

点击文件名下载附件

生成的文档，在本工作簿的当前路径下。

跳转到最佳答案楼层

爱疯

Sub test()
    Dim p$, f$, A, i, j, s$
    p = ThisWorkbook.Path & "\"
    f = Format(Now, "yyyymmdd-hhmmss") & ".txt"
    A = Sheets(1).UsedRange

    Open p & f For Output As #1
    For i = 2 To UBound(A)
        s = ""
        For j = 1 To UBound(A, 2)
            s = s & "," & """" & A(i, j) & """"
        Next j
        s = Mid(s, 2)
        Print #1, s
    Next i
    Close #1

    Shell "explorer " & p & f, vbNormalFocus
End Sub

1.rar (10.98 KB, 下载次数: 4)

2015-11-13 22:11 上传

点击文件名下载附件

生成的文档，在本工作簿的当前路径下。

jiycdl

爱疯 发表于 2015-11-13 22:12
Sub test()
    Dim p$, f$, A, i, j, s$
    p = ThisWorkbook.Path & "\"

完美解决！！
万分感谢啊！！！！！

能否解说一下思路，以免下次遇到相同问题，还不懂

爱疯

jiycdl 发表于 2015-11-14 11:55
完美解决！！
万分感谢啊！！！！！

把每行的数据连成一个字符串，读进文本中。。。。

直到完成所有的行。

jiycdl

爱疯 发表于 2015-11-14 12:38
把每行的数据连成一个字符串，读进文本中。。。。

直到完成所有的行。

那如果再拓展一下，增加一个筛选的条件，把我要的那些列输出，不要的，则不理，这个怎么在里面用这个条件呢？

我想到的就是增加一个if的，判断哪些列号是我需要的，然后再输出

请教一下，这个应该怎样去嵌套进去呢？

刚刚学VBA，不怎么懂，指导一下！感谢！