代码之家 › 专栏 › 技术社区 › Wizhi

使用VBA将每个列导出为唯一的txt文件

loops excel-vba vba excel

-1

Wizhi · 技术社区 · 6 年前

我一直在努力跟着汤姆·厄蒂斯 example 将数据导出到txt文件,在该文件中,他将每一行提取为唯一的txt文件。 Toms代码:

Sub TextExport()
Dim strPath$, x&, i%, txt$
strPath = ThisWorkbook.Path & "\"
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'From row 1 to last row
Open strPath & Cells(x, 1).Value & ".txt" For Output As #1
txt = ""
For i = 1 To 3 'From Column 1 to 3
txt = txt & Cells(x, i).Value & vbTab
Next i
Print #1, Left(txt, Len(txt) - 1)
Close #1
Next x
MsgBox "The text files can be found in " & strPath & ".", 64, "Complete"
End Sub

我想将每一列提取为一个txt文件,而不是每一行。

1 回复 | 直到 6 年前

Wizhi 6 年前

经过几次调整,我终于实现了我想要的。第一行将是输出txt文件的头。

Sub TextExportCol()
Dim strPath$, x&, i%, txt$
strPath = ThisWorkbook.Path & "\"
For x = 1 To Cells(1, Columns.Count).End(xlToLeft).Column 'Loop from  column 1 to end column
    Open strPath & Cells(1, x).Value & ".txt" For Output As #1
    txt = ""
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'How many rows to include, from row 1 to end
        txt = txt & Cells(i, x).Value & vbNewLine
        Next i
    Print #1, Left(txt, Len(txt) - 1)
    Close #1
    Next x
MsgBox "The text files can be found in " & strPath & ".", 64, "Complete"
End Sub

推荐文章

BlurKid · R中for循环时结果的奇怪差异

5 月前

Costinean Sebastian · 如何优化使用for循环处理大型数组的MATLAB脚本的执行时间?"

5 月前

bigjdawg43 · 迭代多个数据帧中的列并有条件地执行操作

9 月前

Colin · 缩短嵌套文件夹名称

10 月前

xhamsterIT · 循环VBA Microsoft Excel

10 月前

Nico44044 · 使用for循环遍历Django模型字段

10 月前

chanbo chung · 如何在聚合中获得所有可能的组合

10 月前

Himanshu · 无法在逐行二进制搜索中迭代2D数组中的所有行

10 月前

Sonia Acosta · 如何在python for while循环中获取下一个用户输入?[副本]

10 月前

stephr · 循环为多个变量选择最接近另一个日期的日期

10 月前