자동 필터를 적용한 제품이 있는 테이블이 있고 필터링된 제품을 가져옵니다.
Set tbl = Worksheets("FOR EXPORT").ListObjects("MyTable")
'SET AUTOFILTER
tbl.Range.AutoFilter Field:=3, Criteria1:="<>*ERROR*"
제품을 필터링하여 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
내가 추가 tbl.Range.SpecialCells(xlCellTypeVisible).select하면 개체를 요청합니다.
약 362개의 필터링된 제품이 있어도 196개만 얻습니다.
필터링된 데이터를 변수에 복사하는 방법은 tblArr무엇입니까? 제품을 덜 받는 이유는 무엇입니까?
또 다른 해결책은 VisRng.Copy값을 새 통합 문서/워크시트에 붙여넣는 것 입니다. 그런 다음 해당 워크시트를 CSV로 내보내거나 저장합니다. 인접하지 않은 범위를 복사/붙여넣기하면 대상에서 인접하게 됩니다.
예:
Dim NewWB As Workbook 'create new workbook
Set NewWB = Application.Workbooks.Add
VisRng.Copy
NewWB.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
NewWB.SaveAs Filename:="C:\Temp\MyFile.csv", FileFormat:=xlCSV
NewWB.Close SaveChanges:=False
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다