新手求助vb调用Excel后实现下拉填充功能

Sub FillDown()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlRange As Excel.Range

    ' 创建Excel应用程序实例并获取活动工作簿和工作表
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("path_to_your_excel_file.xlsx")
    Set xlSheet = xlBook.Worksheets("Sheet1")

    ' 设置需要填充的范围
    Set xlRange = xlSheet.Range("A4:B4")

    ' 使用AutoFill方法将范围下拉填充至指定区域
    xlRange.AutoFill Destination:=xlSheet.Range("A4:B34")

    ' 保存并关闭工作簿
    xlBook.Save
    xlBook.Close

    ' 退出Excel应用程序
    xlApp.Quit

    ' 释放对象变量
    Set xlRange = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub