Как добавить XML-файл без дополнительной рабочей книги в VBA?

---

Я сделал это, чтобы добавить xml-файл на лист 2 настоящей книги в excel с помощью VBA. Хотя каждый раз, когда я нажимаю кнопку, excel, тем не менее, добавляет книгу в мою исходную книгу. Как я могу закодировать это, чтобы этого больше не происходило, пожалуйста?

Что я уже пробовал:

Private Sub CommandButton1_Click()
' AddXml
'
Dim fldg As FileDialog
Dim foldername As String
Dim strTargetFile As String
Dim wb As Workbook
 

Set fldg = Application.FileDialog(msoFileDialogFilePicker)
With fldg
.Title = "Select an XML to import"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo NextCode
foldername = .SelectedItems(1)
End With
NextCode:
GetFolder = foldername
Set fldg = Nothing
 
strTargetFile = foldername
Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
Application.DisplayAlerts = True
 
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
wb.Close False
Application.ScreenUpdating = True
 
End Sub

---