如何在不打开目标工作簿的情况下在另一个 Sub 过程中使用 Sub 过程

Question

我的问题是Excel文件太大的计算机，机器无法处理，所以我有一个宏将文件的数据分成子文件，所以我可以从那个大文件中获取信息而无需打开它，拆分宏本身就可以运行，但我试图在不打开目标文件的情况下运行宏（通过在空白工作簿上运行宏）并且它运行时没有结果。

Option Explicit

Function IsFileOpen(FileName As String)
 Dim iFilenum As Long
 Dim iErr As Long
 On Error Resume Next
 iFilenum = FreeFile()
 Open FileName For Input Lock Read As #iFilenum
 Close iFilenum
 iErr = Err
 On Error GoTo 0
 Select Case iErr
 Case 0: IsFileOpen = False
 Case 70: IsFileOpen = True
 Case Else: Error iErr
 End Select
End Function

Sub ModificarArchivo()

Dim data_sh As Worksheet
Set data_sh = ThisWorkbook.Sheets(1)

Dim Archive As Application
Dim Archivename As String

Set Archive = CreateObject("Excel.Application")

With Archive
    Archivename = data_sh.Range("E14").Value
    
        If IsFileOpen(Archivename) Then
        '
        Else
            With .Workbooks.Open(Archivename)
                split_excel
           
            End With
        End If
    .Quit
End With
End Sub

Sub split_excel()
Application.ScreenUpdating = False
'Hoja con los datos
Dim datos_sh As Worksheet
Set datos_sh = ThisWorkbook.Sheets(1)
'Hoja con los ajustes
Dim ajustes_sh As Worksheet
Set ajustes_sh = ThisWorkbook.Sheets(2)
'Se definen nuevas libros de excel
Dim nwb As Workbook
Dim nsh As Worksheet
'Se recorre la columna deseada y creara unicos para categorizar
ajustes_sh.Range("A:A").Clear
datos_sh.AutoFilterMode = False
datos_sh.Range("B2:B").Copy ajustes_sh.Range("A1")
ajustes_sh.Range("A:A").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
'Selecciona la columna para filtrar y copiar los datos en una nueva hoja
Dim i As Integer
For i = 2 To Application.CountA(ajustes_sh.Range("A:A"))
    datos_sh.UsedRange.AutoFilter 2, ajustes_sh.Range("A" & i).Value
    Set nwb = Workbooks.Add
    Set nsh = nwb.Sheets(1)
    datos_sh.UsedRange.SpecialCells(xlCellTypeVisible).Copy nsh.Range("A1")
    nsh.UsedRange.EntireColumn.ColumnWidth = 15
    nsh.UsedRange.Rows(1).EntireRow.Delete
'Funcion de guardado de las hojas de calculo
    nwb.SaveAs ajustes_sh.Range("H6").Value & "/" & ajustes_sh.Range("A" & i).Value & ".xlsx"
    nwb.Close False
    data_sh.AutoFilterMode = False
Next i
ajustes_sh.Range("A:A").Clear
MsgBox "Done"
End Sub

data_sh.Range("E14").Value是目标存档的路径，同nwb.SaveAs ajustes_sh.Range("H6").Value是分割数据保存的路径。