在另一列excel vba中过滤后的列值总和

Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlWorkbook = xlApp.Workbooks.Open("路径\文件名.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("工作表名")

Dim filterRange As Range
Dim filteredRange As Range
Dim sumRange As Range

Set filterRange = xlWorksheet.Range("A1:A10") '设置要过滤的列范围
Set filteredRange = filterRange.SpecialCells(xlCellTypeVisible) '过滤后的可见单元格范围
Set sumRange = xlWorksheet.Range("B1:B10") '设置要求和的列范围

filterRange.AutoFilter Field:=1, Criteria1:="过滤条件"

Dim sumValue As Double

sumValue = Application.WorksheetFunction.Sum(filteredRange.Offset(0, 1)) '计算过滤后列值的总和

xlWorkbook.Close SaveChanges:=False
xlApp.Quit

Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing

Sub CalculateFilteredColumnSum()
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlWorksheet As Excel.Worksheet
    Dim filterRange As Range
    Dim filteredRange As Range
    Dim sumRange As Range
    Dim sumValue As Double
    
    Set xlApp = New Excel.Application
    Set xlWorkbook = xlApp.Workbooks.Open("路径\文件名.xlsx")
    Set xlWorksheet = xlWorkbook.Worksheets("工作表名")
    
    Set filterRange = xlWorksheet.Range("A1:A10")
    Set filteredRange = filterRange.SpecialCells(xlCellTypeVisible)
    Set sumRange = xlWorksheet.Range("B1:B10")
    
    filterRange.AutoFilter Field:=1, Criteria1:="过滤条件"
    
    sumValue = Application.WorksheetFunction.Sum(filteredRange.Offset(0, 1))
    
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    MsgBox "过滤后列值的总和为: " & sumValue
End Sub