我正在嘗試將一些特定的單元格復制到運行 VBA 腳本時提示我創建的新作業簿。我不斷收到 Object 不支持 wsI.Range("Y2:AF2882) 上的此屬性或方法，我的代碼有什么問題？
Option Explicit
Sub Export1()
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet, wsO As Worksheet
Dim Filename As Variant
Set wbI = ThisWorkbook
Set wbO = Workbooks.Add
Filename = Application.GetSaveAsFilename(Filename, "Excelfile (*.xlsx), *.xlsx")
With wbO
Set wsO = wbO.Sheets("Ark1")
Set wsI = wbI.Sheets("SVK stationer")
.SaveAs Filename
wsI.Range("Y2:AF2882") _
.AutoFilter Field:=1, Criteria1:="<>"
.SpecialCells(xlCellTypeVisible).Copy
wsO.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
End With
End Sub
uj5u.com熱心網友回復：
更新評論
Option Explicit
Sub Export1()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Sheets(1).Name = "Arki"
With ThisWorkbook.Sheets("SVK stationer").Range("Y2:AF2882")
.AutoFilter Field:=1, Criteria1:="<>"
.SpecialCells(xlCellTypeVisible).Copy
wb.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
wb.SaveAs Application.GetSaveAsFilename("", "Excelfile (*.xlsx), *.xlsx")
'wb.Close False
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/366817.html