如何將用戶過濾器應用於excel vba中的選擇？

Question

我是vba的新手，我試圖創建一個簡單的宏來將一些數據導出到文本文件。然而，當用戶應用任何隱藏行的過濾器時，我只會將所有數據從第一行導出到最後一行，忽略任何過濾掉的內容。我已經搜遍遍了，但（可能是由於我缺乏vba的經驗），我無法找到任何可以與用戶的過濾器和他們的選擇一起工作的任何東西。事情是，我甚至不知道excel是否將過濾行視爲「隱藏」。我也嘗試了許多方法，而不是下面列出的方法，例如.AutoFilter和.SpecialCells（xlCellTypeVisible），但是它們都不適用於Selection。

Sub old_export_for() 
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer 
myFile = "C:\OUT\old_out_" + CStr(Format(Now(), "mmddhhmm")) + ".txt" 
Set rng = Selection 
Open myFile For Output As #1 
For i = 1 To rng.Rows.Count 
    If Not rng.Rows.Hidden Then 
    j = 1 
    cellValue = rng.Cells(i, j).Value 
    Print #1, "Filename  : " + CStr(cellValue) 
    j = 2 
    cellValue = rng.Cells(i, j).Value 
    Print #1, "File Size  : " + CStr(cellValue) 
    j = 3 
    cellValue = rng.Cells(i, j).Value 
    Print #1, "Hostname  : " + CStr(cellValue) 
    j = 4 
    cellValue = rng.Cells(i, j).Value 
    Print #1, "Date   : " + CStr(cellValue) 
    j = 5 
    cellValue = rng.Cells(i, j).Value 
    Print #1, "Session ID : " + CStr(cellValue), 
    Print #1, vbNewLine + vbNewLine 
    End If 
Next i 
Close #1 
End Sub 

Answer 1

變化

If Not rng.Rows.Hidden Then 

到

If Not rng.Rows(i).EntireRow.Hidden Then 

Answer 2

如果這沒有幫助，我會刪除答案。假設我們在Sheet1中有自動過濾數據。這個微小的宏將採取標題行和所有可見的數據行並將其複製到Sheet2的

Sub AutoFilterCopyVisible() 
    Sheets("Sheet1").AutoFilter.Range.Copy 
    Sheets("Sheet2").Paste 
End Sub 

運行之後，您可以導出Sheet2中。如果Sheet1中是這樣的：

然後Sheet2中將有：

注：

有一個在輸出紙張沒有自動篩選。

Answer 3

爲了表明我將如何把這個與SpecialCells：

Sub old_export_for() 
    Dim myFile As String, rng As Range, cellValue As Variant, xRow As Variant 
    myFile = "C:\OUT\old_out_" + CStr(Format(Now(), "mmddhhmm")) & ".txt" 
    Set rng = Selection.SpecialCells(xlCellTypeVisible) 
    Open myFile For Output As #1 
    For Each xRow In rng.Rows 
     Print #1, "Filename  : " & CStr(xRow.Cells(1).Value) 
     Print #1, "File Size  : " & CStr(xRow.Cells(2).Value) 
     Print #1, "Hostname  : " & CStr(xRow.Cells(3).Value) 
     Print #1, "Date   : " & CStr(xRow.Cells(4).Value) 
     Print #1, "Session ID : " & CStr(xRow.Cells(5).Value) 
     Print #1, vbNewLine & vbNewLine 
    Next i 
    Close #1 
End Sub 

的是，一分這短暫的，我會用這樣的東西不可讀：

Sub old_export_for() 
    Dim xRow As Variant, i As Long, str As String 
    Open "C:\OUT\old_out_" + CStr(Format(Now(), "mmddhhmm")) & ".txt" For Output As #1 
    For Each xRow In Selection.SpecialCells(xlCellTypeVisible).Rows: For i = 1 To 6 
     Print #1, Array("Filename  : ", "File Size  : ", "Hostname  : ", "Date   : ", "Session ID : ", vbNewLine)(i - 1) & Array(CStr(xRow.Cells(i).Value), vbNewLine)(1 + (i < 6)) 
    Next: Next 
    Close #1 
End Sub 

但是不這樣做：P