数据分批导出，求写VBA，谢谢

zicong

请问如何将多列数据按每一列分批导出到txt文本且自动重命名，怎么实现？谢谢！

一把小刀闯天下

'当前目录，并没有放桌面，自己测试一下

Option Explicit

Sub test()
  Dim arr, i, j
  arr = [a1].CurrentRegion
  For j = 1 To UBound(arr, 2)
    Open ThisWorkbook.Path & "\" & arr(1, j) & ".txt" For Output As #1
    For i = 2 To UBound(arr, 1): Print #1, arr(i, j): Next
    Close #1
  Next
End Sub

zicong

非常感谢！！！