Ошибка получения метода AdvancedFilter класса range при копировании уникальных данных из одного Excel в другой

Question

Я приложил фрагмент файла Excel, где столбец B - это желаемый результат.Эта похожая логика работала в макросе, но согласно нашему требованию нам нужно создать для нее VBScript.Ниже приведен мой код

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set inputExcelWorkbook = oExcel.Workbooks.Open("C:\...\Test1.xlsx")
Set inputExcelSheet = inputExcelWorkbook.ActiveSheet


inputExcelSheet.Range("A2:A11").AdvancedFilter _
xlFilterCopy,,inputExcelSheet.Range("B2"),True

inputExcelWorkbook.save
inputExcelWorkbook.close

Фрагмент файла Excel

Answer 1

Итак, моя проблема была решена, когда вместо xlFilterCopy я использовал «2» в соответствии с предложением @ nick.McDermaid

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set inputExcelWorkbook = oExcel.Workbooks.Open("C:\...\Test1.xlsx")
Set inputExcelSheet = inputExcelWorkbook.ActiveSheet


inputExcelSheet.Range("A2:A11").AdvancedFilter _
2,,inputExcelSheet.Range("B2"),True

inputExcelWorkbook.save
inputExcelWorkbook.close