vba - VBA代码：将填充数据保存到txt文件

Question

VBA代码：帮帮我，我想将填充数据保存到txt文件。

Sub Intemp()

Dim arr, i As Long
Dim FPath As String

FPath = ThisWorkbook.Path & "\" & "text" & ".txt"
Application.CutCopyMode = False
arr = Sheet5.Range("B1:C" & [B100000].End(xlUp).Row)

Open FPath For Output As #1
For i = 1 To UBound(arr)
    Print #1, arr(i, 1) & vbTab & arr(i, 2)
Next i

Close #1
End Sub

标签： vba

Answer 1

如果要将过滤后的值分配给数组，一种简单的方法是使用高级过滤并过滤到工作表的另一个区域并在那里分配您的值。

但是一个简单的方法可以让你开始，只是循环你的行在你的范围内，如果行被隐藏，然后继续 - 否则，将数据打印到你的文本文档。

Dim rng As Range, r As Long
Set rng = Sheet5.Range("B1:C" & [B100000].End(xlUp).Row)

Dim FPath As String
FPath = ThisWorkbook.Path & "\" & "text" & ".txt"
Application.CutCopyMode = False

Open FPath For Output As #1
With Sheet5
    For r = rng.Row To rng.Rows.Count + rng.Row - 1
        If Not .Rows(r).Hidden Then
            Print #1, .Cells(r, 1) & vbTab & .Cells(r, 2)
        End If
    Next
End With

Close #1