我设置了更大的代码来帮助自动化审核模型。我试图添加一个功能来导入索赔文件。我有一个“ GetFiles”函数，我经常使用该函数来导入信息，但是现在我收到类型不匹配错误。

我已经尝试了不同的变量分配并完全量化了不同的项目，但是无论如何它似乎都会出错。最初，我在做OpenFile = GetFiles（请参见注释行），然后我的公式显示为set aux = application.workbooks.open(OpenFile)，但存在相同的错误

这是代码的一小部分，因此在此代码段中看不到许多声明的变量。关于“ ThisWorkbook”的注释行也很多，因为该模块将从我的个人工作文件移至实际文件中模板模型。

Sub Audit_Template_Autofill()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationmanual
    Dim column_id() As Variant,A1 As Range,Z As Range,c As Range
    Dim column_count As Long,x As Long,input_option() As Variant,Loop_Input As Variant
    Dim claims As Worksheet,audit As Worksheet,OpenFile As Variant,aux As Workbook
    'run function to get claims file for import
    'GetFiles

'    Set claims = ThisWorkbook.Sheets("Claims Data")
'    Set audit = ThisWorkbook.Sheets("Audit")
    Set claims = activeWorkbook.Sheets("Claims Data")
    Set audit = activeWorkbook.Sheets("Audit")
    'OpenFile = GetFiles
    Set aux = Application.Workbooks.Open(GetFiles)
    activeWorkbook.activeSheet.Cells.Select.Copy
    claims.Range("A1").Paste
    Set A1 = claims.Range("A1")
    Set Z = A1.End(xlToRight).Offset(0,1)

    column_count = claims.Range(A1,Z).Count
    ReDim column_id(0 To column_count): ReDim input_option(0 To column_count)

    For Each c In Range(A1,Z)
        column_id(x) = c.Value
        x = x + 1
    Next c

    x = 0
    Do While x <= column_count
        input_option(x) = x + 1 & "=" & column_id(x)
        x = x + 1
    Loop

    x = 0
    Do While x <= column_count
        Loop_Input = Loop_Input & input_option(x) & vbCrLf & ""
        x = x + 1
    Loop

错误发生在set aux = Application.Workbooks.open(GetFiles)

这是功能GetFiles

Function GetFiles() As Variant
    GetFiles = Application.GetOpenFilename(Title:="Select Files(s)",MultiSelect:=True)
End Function

我希望该功能允许我打开工作簿，然后它将继续导入信息并继续执行代码。出现文件选择框，但是当我选择一个excel文件并单击“确定”时，我收到类型不匹配错误。为冗长的文字表示歉意，这对Stack Overflow还是很新的。再次感谢！