Question

我有一张桌子，上面放着产品。有时某些产品可能不可用。

所以我创建了一个函数= iferror（单元格值，“ ERROR”）以显示ERROR字样。

现在在我的VBA中，我具有以下创建自动过滤器的功能，以显示除包含错误的产品以外的所有产品

Set tbl = Worksheets("FOR EXPORT").ListObjects("MyTable")
'SET AUTOFILTER
tbl.Range.AutoFilter Field:=3, Criteria1:="<>*ERROR*"

我有这个

Set tbl = Worksheets("FOR EXPORT").ListObjects("Mytable")
'SET AUTOFILTER
tbl.Range.AutoFilter Field:=3, Criteria1:="<>*ERROR*"

'SET PATH
csvFilePath = "C:\Users\Maindesk\Desktop\CSVFile_" & Format(Date, "ddmmmyyyy") & "_" & Format(Time, "hAM/PM") & ".csv"


Dim VisRng As Range
' set the new Range object to the visible cells of `tbl.Range`
Set VisRng = tbl.Range.SpecialCells(xlCellTypeVisible)
' copy only the visible cells in range to array
tblArr = VisRng.Value


'SET FILE OUTPUT
fNum = FreeFile()
Open csvFilePath For Output As #fNum

For i = 1 To UBound(tblArr)

    rowArr = Application.Index(tblArr, i, 0)
    csvVal = VBA.Join(rowArr, ";")
    Print #1, csvVal

Next

但是我仍然没有获得所有产品的标准，而不是获得368-7个产品，而我却获得了196个产品。有5个单元格的ERROR和2个单元格的值为空

自动筛选不适用于vba和标准文本

0 个答案: