【ExcelVBA】スプレッドシートをダウンロードするとファイルが破損した状態になる

Question

お世話になります。

ExcelVBAでスプレッドシートをダウンロードして1シートをインポートしようとしています。
下記URLを参考に実装して、Excelダウンロードはできたものの、なぜか破損した状態で開けなくて困っています。。
似たような事象になった方がいらっしゃいましたらアドバイスいただけると大変助かります。
よろしくお願い致します。

https://excel-ubara.com/excelvba5/EXCELVBA279.html

Option Explicit

'スプレッドシートダウンロードで使用
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


Function main()

    Dim url as String
    url = "https://docs.google.com/spreadsheets/d/[スプレッドシートID]"
    Dim downloadFilePath as String
    downloadFilePath = GetSpreadsheet(url)
    
    Call GetSheets("シート名", downloadFilePath)

End Function


'APIのURLDownloadToFileでxlsxをダウンロード
Function GetSpreadsheet(ByVal argURL As String) As String
    Dim outFile As String
    outFile = ThisWorkbook.Path & "\" & "TEMP_" & 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 GetSheets(targetSheet As String, ByVal strFile As String)
    Dim wb As Workbook
    Set wb = Workbooks.Open(FileName:=strFile, ReadOnly:=True)  
    wb.Worksheets(targetSheet).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  
    wb.Close SaveChanges:=False
    Kill strFile
End Sub

Answer 1

手動でダウンロードし、拡張子が.xlsx　となっているか確認してみてください。

Comments

[menmen]

TanakaHiroakiさん、回答ありがとうございます！
以下を試して拡張子が[.xlsx]になっていて、
無事に開けることを確認済みです。。。

・ブラウザからの[ファイル]→[ダウンロード]→[.xlsx]でダウンロード
・VBA内で構成されるエクスポートURLをブラウザでアクセスしてダウンロード

後、拡張子を[.xls]にして試したところエラーメッセージは出るものの開けはしました！
ただGsuiteのログイン画面をエクスポートしたような画面になっていて、
中身をエクスポートはできていなかったようです。。

[TanakaHiroaki]

状況がわかりました。
私ではお手上げです。
お役に立てず申し訳けありません。

[menmen]

TanakaHiroakiさん

とんでもないです！私の拙い文章に回答していただき感謝致します。
解決は一旦諦めて、別の機会に再挑戦しようと思います。

その際はまたお力を貸していただけると幸いです。
改めて回答いただきありがとうございました！