[已解决]如何去掉用VBA产生的文本文件中的第一行，主帮我修改一下VBA

wuliao_tao

我用VBA产生一文本文件，可我不想要文本文件中的第一行，如何去掉，请大家帮我修改一下VBA，谢谢

4OzMAKKb.rar (7.87 KB, 下载次数: 8)

2009-11-18 21:05 上传

点击文件名下载附件
如何去掉用VBA产生的文本文件中的第一行，主帮我修改一下VBA

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-18 21:12

 rng = Range(Cells(2, 1), Cells(nRow, nColumn))

跳转到最佳答案楼层

雨狐

 rng = Range(Cells(2, 1), Cells(nRow, nColumn))

爱疯

Sub a()
    Dim Pa As String
    Dim Sav As String
    Dim S As String
    Dim i As Integer
    Dim j As Integer
    Dim arr()
   
    Pa = ThisWorkbook.Path
    Sav = "\abc.txt"
    arr = Range("a2:g" & Range("a1").End(xlDown).Row)
   
    Open Pa & Sav For Output As #1  '打开输出文件。
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            S = S & arr(i, j) & ","
        Next j
        S = Left(S, Len(S) - 1)
        Print #1, S '打开输出文件。
        S = ""
    Next i
    Close #1
End Sub

这是收集的（忘了谁帮我写的），我用的不多，也不是很明白。

[em04]

爱疯

⊙﹏⊙b汗，原来附件里有代码

搁浅2008

学习2楼 鄙视下不细心的爱疯

爱疯

重新学习下这个[em11][em11][em11]