Код Visio VBA для копирования и вставки листов Excel из одного в другой

У меня есть макрос Visio Vba, который должен принимать путь к файлу листа Excel из глобальной переменной. Затем он открывает этот файл, создает новый лист Excel, берет листы из старого пути и копирует их в сгенерированный файл. Моя проблема заключается в копировании листов. Первый файл, который я ему даю, иногда работает, но когда я снова запускаю другой или тот же файл, когда он запускает эту конкретную строку: PriceWs.Copy After:=excelWorkbook.Sheets("Sheet1")

Я получаю ошибку 1004 во время выполнения: такой интерфейс не поддерживается, и я не могу понять, почему он продолжает это делать.

Если это поможет, я получаю путь к файлу через глобальную строку, которая содержит только путь к файлу. Пример значения: C:\Users\things\Documents\TESTING.xlsx

Я запускаю этот код с помощью командной кнопки в пользовательской форме, которая запускает только этот макрос и ничего больше.

Кроме того, во время отладки тип PriceWs — это рабочий лист/рабочий лист, если это имеет значение, но опять же, код иногда выполняется, пока он был этого типа.

Sub CombineExcel()
    
    Dim PriceWb As Workbook
    Dim PriceWs As Worksheet
    Dim PriceString As String
 
    'Error checking for a good file
    'Global is a global string that holds the path to an excel file
    PriceString = GlobalPriceList
    
    Debug.Print "Price String: " & PriceString
    
    On Error Resume Next
     Set PriceWb = Workbooks.Open(PriceString)
    On Error GoTo 0

    If PriceWb Is Nothing Then
        MsgBox "Error: The file is not a valid Excel file or it could not be opened.", vbCritical
        Exit Sub
    End If

      ' Initialize Excel
    Set excelApp = CreateObject("Excel.Application")
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    
    Set excelApp = New Excel.Application
    excelApp.Visible = True ' Optional, set to True if you want Excel to be visible
    Set excelWorkbook = excelApp.Workbooks.Add
    Set excelWorksheet = excelWorkbook.Sheets(1)
    
    ' Loop through each sheet in the source workbook
    For Each PriceWs In PriceWb.Sheets
        On Error Resume Next
        PriceWs.Copy After:=excelWorkbook.Sheets(excelWorkbook.Sheets.count)
        If Err.Number <> 0 Then
            Debug.Print "Type Name is: " & TypeName(PriceWs)
            MsgBox "Error copying sheet '" & PriceWs.Name & "': " & Err.Description, vbCritical
        End If
        On Error GoTo 0
    Next PriceWs
    
    Debug.Print GlobalPriceList
    
     ' Delete the Sheet1 without prompting for confirmation
    'Application.DisplayAlerts = False ' Suppress the alert asking for confirmation
    'excelWorkbook.Sheets("Sheet1").Delete
    'Application.DisplayAlerts = True ' Restore the display alerts setting
      
    ' Release object references
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    Set PriceWs = Nothing
     
End Sub

PS: если это поможет, это код, который я использую для получения пути к файлу от конечного пользователя, поскольку я не могу использовать GetOpenFilename в vba Visio:

Dim wShell As Object, sPath As String, oExec As Variant
 ' Create an instance of the WScript.Shell object
Set wShell = CreateObject("WScript.Shell")

' Execute a command line using mshta.exe with an HTML script as an argument
' The HTML script dynamically generates an HTML page with a file input   element and JavaScript code to interact with it

Set oExec = wShell.Exec("mshta.exe ""about:<input type=file id=FILE accept=.xls,.xlsx><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")

' Read the file path from the standard output of the executed command
sPath = oExec.StdOut.ReadLine