[已解决]复制A列另存为txt文件

26827557

老师好！下面代码，复制整张工作表可行，但我想只复制A列另存为txt文件不行，能否帮我检查下吗？谢谢！

Sub ggsmart()
   Application.ScreenUpdating = False

   ActiveSheet.Copy '复制整个工张表也可以
'   ActiveSheet.Range("a1").CurrentRegion.Columns.Count.Copy '复制A列不能实现

   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\记事本.txt", FileFormat:=xlText, CreateBackup:=False
   ActiveWorkbook.Close False
   Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-6-6 20:20

Sub test()
    Dim A, i
    A = Range("a1:j" & Range("a65536").End(xlUp).Row)
    Open "d:\1.txt" For Output As #1
    For i = 1 To UBound(A)
        Print #1, Format(A(i, 1), "00") & A(i, 2)
    Next i
    Close #1
End Sub



黄是A列，绿是B列。
1楼附件B列也没内容呀？

跳转到最佳答案楼层

爱疯

复制A列另存为txt文件，没说错吧？

26827557

爱疯 发表于 2016-6-6 15:02
复制A列另存为txt文件，没说错吧？

是啊，我要改成只复制某列，比如A列的啊，老师

爱疯

Sub WriteText1()
    Dim A, i, c
    c = Cells(1, "A").Column
    A = Range("a1:j" & Range("a65536").End(xlUp).Row)

    Open "d:\1.txt" For Output As #1
    For i = 1 To UBound(A)
        Print #1, Format(A(i, c), "00")
    Next i
    Close #1
End Sub


如果是其它的列，修改颜色位置。

26827557

爱疯 发表于 2016-6-6 17:05
Sub WriteText1()
    Dim A, i, c
    c = Cells(1, "A").Column

老师你好！非常感谢你，你这句中有些不明白，你可以帮我解答下吗？
Sub WriteText1()
    Dim A, i, c
    c = Cells(1, "A").Column ‘下句的A相当于是一个单元格区域，如果我要导出A列和B列，该怎么写呢？
    A = Range("a1:j" & Range("a65536").End(xlUp).Row)


    Open "d:\1.txt" For Output As #1
    For i = 1 To UBound(A) '怎么导出二维数组呢？
        Print #1, Format(A(i, c), "00") '我试了如果是1的话，则导出是01。我想导出仍是1的话，该定义哪种呢？
    Next i
    Close #1
End Sub

爱疯

Sub test()
    Dim A, i
    A = Range("a1:j" & Range("a65536").End(xlUp).Row)
    Open "d:\1.txt" For Output As #1
    For i = 1 To UBound(A)
        Print #1, Format(A(i, 1), "00") & A(i, 2)
    Next i
    Close #1
End Sub



黄是A列，绿是B列。
1楼附件B列也没内容呀？

26827557

爱疯 发表于 2016-6-6 20:20
Sub test()
    Dim A, i
    A = Range("a1:j" & Range("a65536").End(xlUp).Row)

谢谢老师，明白了！