[已解决]谢谢天堂鼠老师，导出txt

lhj323323

老师：
我想把EXCEL中某列数据提取不重复值后，并再分情况添加标识后，以txt格式导出。请问如何写？谢谢。（附件在1楼最下面）

这段虽能成功，但是导出的位数不足,比如000862，导出来就变成862了，前面的三个0都不见了
Sub 导出() '阿童木
    Dim StrJG$, MyFName$
    Dim fso As Object
    Dim MyTxt As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    '文件路径
    MyFName = ThisWorkbook.Path & "\TXT.TXT"
    '要导出的字符
    StrJG = Join(Application.Transpose(Sheet1.Range("j2:j" & Sheet1.Range("j65536").End(xlUp).Row)), vbCrLf)
    '创建文件
    Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)
    '写入字符
    MyTxt.Write StrJG
    '关闭文件
    MyTxt.Close
    '清空对象
    Set MyTxt = Nothing
    Set fso = Nothing
    MsgBox "数据已导出到文本文件，保存位置为当前文件夹，文件名为TXT.TXT"
End Sub

最佳答案

月排行榜 / 总排行榜

djyjysxxs

2011-4-17 19:18

要空一行是不？那就再改点：
ar1 = Sheet1.Range("j2:j" & Sheet1.Range("j65536").End(xlUp).Row)
    For i% = 1 To UBound(ar1)
        StrJG = StrJG & vbCrLf & Right("000000" & ar1(i, 1), 6)
    Next

跳转到最佳答案楼层

lhj323323

回复 lhj323323 的帖子

求助求助求助

lhj323323

回复 lhj323323 的帖子

向朋友们求助

djyjysxxs

将
StrJG= Join(Application.Transpose(Sheet1.Range("i2:i" & Sheet1.Range("i65536").End(xlUp).Row)), vbCrLf)
换成：
ar1 = Sheet1.Range("j2:j" & Sheet1.Range("j65536").End(xlUp).Row)
    StrJG = Right("000000" & ar1(1, 1), 6)
    For i% = 2 To UBound(ar1)
        StrJG = StrJG & vbCrLf & Right("000000" & ar1(i, 1), 6)
    Next
    也可不改代码，改单元格中的内容成六位的文本而不是通过设置单元格格式得到


第二个，另涉及一个去重复的问（其它与这个相同），可用字典来去重复（你以前的帖子中有很多字典的，可翻来稍改下就成），也可用高级筛选不重复值来去生重复（可录个宏就成了）
   

lhj323323

回复 djyjysxxs 的帖子

天堂鼠老师：
您说的这一句，我添加进去后，测试成功了，但尚有一个小问题，就是，导入到外部文件txt时，是从txt的第一行导入的，如何才能将数据导入到txt的第二行开始，而不是第一行开始。

条件股1是我希望达到的效果，
条件股2是目前程序能完成的效果
两者的区别在于导入到txt的起始行不同

djyjysxxs

要空一行是不？那就再改点：
ar1 = Sheet1.Range("j2:j" & Sheet1.Range("j65536").End(xlUp).Row)
    For i% = 1 To UBound(ar1)
        StrJG = StrJG & vbCrLf & Right("000000" & ar1(i, 1), 6)
    Next