无法使用VBA代码打开多个工作簿并追加excel工作表中的数据

Sub MergeDataFromWorkbooks()
    Dim TargetWorkbook As Workbook
    Dim SourceWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim TargetWorksheet As Worksheet
    Dim SourceRange As Range
    Dim TargetRange As Range
    Dim FileToOpen As Variant
    
    ' 打开目标工作簿和工作表
    Set TargetWorkbook = ThisWorkbook ' 当前工作簿
    Set TargetWorksheet = TargetWorkbook.Worksheets("合并数据")
    
    ' 循环打开多个工作簿
    FileToOpen = Application.GetOpenFilename("Excel文件 (*.xls;*.xlsx),*.xls;*.xlsx", , "选择要合并的工作簿", , True)
    If VarType(FileToOpen) = vbBoolean And Not FileToOpen Then Exit Sub ' 用户取消选择
    
    Do While FileToOpen <> False
        Set SourceWorkbook = Workbooks.Open(FileToOpen)
        
        ' 选择要追加的数据所在的工作表
        Set SourceWorksheet = SourceWorkbook.Worksheets("数据")
        
        ' 复制数据到目标工作表中
        Set SourceRange = SourceWorksheet.UsedRange
        Set TargetRange = TargetWorksheet.Cells(TargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
        SourceRange.Copy Destination:=TargetRange
        
        ' 关闭打开的工作簿
        SourceWorkbook.Close SaveChanges:=False
        
        ' 继续选择下一个工作簿
        FileToOpen = Application.GetOpenFilename("Excel文件 (*.xls;*.xlsx),*.xls;*.xlsx", , "选择要合并的工作簿", , True)
    Loop
End Sub