【マクロ・VBA】Googleスプレットシートをエクセルにインポートする

Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, _
     ByVal szURL As String, _
     ByVal szFileName As String, _
     ByVal dwReserved As Long, _
     ByVal lpfnCB As Long) As Long

'Googleスプレッドシートをインポートする
Sub MainSample()
    Dim strURL As String
    strURL = "https://docs.google.com/spreadsheets/d/1l24RztIdYZWZiAqVdGPocubPzzbCVlCz/"

'https://docs.google.com/spreadsheets/d/[ここにIDが存在]/edit#gid=*********

    Dim strFile As String
    strFile = GetSpreadsheet(strURL)
  
    Application.ScreenUpdating = False
    Call GetAllSheets(ThisWorkbook, strFile)
    Application.ScreenUpdating = True
  
    MsgBox "インポート完了"
End Sub

'APIのURLDownloadToFileでxlsxをダウンロード
Function GetSpreadsheet(ByVal argURL As String) As String
    Dim outFile As String
    outFile = "C:\〇〇〇〇\〇〇〇〇\〇〇〇〇\〇〇〇〇.xlsx"
    'outFile = ThisWorkbook.path & "\" & "ファイル名" & Format(Now(), "yyyymmddhhmmss") & ".xlsx"

    If argURL Like "*edit?usp=sharing" Then
        argURL = Replace(argURL, "edit?usp=sharing", "")
    End If
    argURL = argURL & "export?format=xlsx"
  
    Call URLDownloadToFile(0, argURL, outFile, 0, 0)
    GetSpreadsheet = outFile
End Function

'ダウンロードしたxlsxの全シートの取込
Sub GetAllSheets(targetBook As Workbook, ByVal strFile As String)
    Dim wb As Workbook
    Set wb = Workbooks.Open(FileName:=strFile, ReadOnly:=True)
  
    Dim ws As Worksheet
    For Each ws In wb.Sheets
        ws.Copy after:=targetBook.Sheets(targetBook.Sheets.Count)
    Next
  
    wb.Close SaveChanges:=True
    'Kill strFile
End Sub