VBA excel FileDialog - otwieranie pliku jako nowy arkusz

Question

Cześć, mam pytanie, czy da się otworzyć za pomocą FileDialog istniejący plik excelowski, ale zamiast otwierać go w nowym oknie dodać go jako kolejne Arkusze do pliku w którym wywołano makro? Albo jeszcze lepiej wskazać konkretny arkusz(np. tylko pierwszy) z wybranego pliku, który zastąpi arkusz w obecnym pliku(ten w którym wywołano macro). Do tej pory mam coś takiego, potrafi mi ktoś doradzić jak można to zrobić?
 

Sub openFile()
    
    Dim fd As FileDialog
    Dim FileWasChosen As Boolean
        
    Set fd = Application.FileDialog(msoFileDialogOpen)
    fd.AllowMultiSelect = False
    
    FileWasChosen = fs.Show
    
    If Not FileWasChosen Then
        MsgBox "You didn't select a file"
        Exit Sub
    End If
    
    fd.Execute 
        
End Sub

 

Comments

Jak by ktoś jeszcze napotkał taki problem to znalazłem rozwiązanie

Sub openFile()
    
    Dim fd As FileDialog
    Dim actionClicked As Boolean
        
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.Filters.Clear
    fd.Filters.Add "Old Excel Files", "*.xls"
    fd.Filters.Add "New Excel Files", "*.xlsx"
    fd.Filters.Add "Macro Excel Files", "*.xlsm"
    fd.Filters.Add "Any Excel Files", "*.xl*"
    
    fd.FilterIndex = 4
    
    fd.AllowMultiSelect = False
    
    actionClicked = fd.Show
    
    If actionClicked Then
        Sheets.Add Type:=fd.SelectedItems(1)
    End If
        
End Sub