구글시트 가져오기(Window10 성공, Window11 실패)

조건부 시트 아래의 내용이 입력되어 있습니다.

A1(B1을 하이퍼링크)

B1(구글시트 전체경로) : ="https://docs.google.com/feeds/download/spreadsheets/Export?key=" & B2 & "&exportFormat=xlsx"

B2(시트경로) : 1rmXRcAz0DGk3fdzrx76f3Nb3_JV2wVArxeIudS3BVK4

B3(시트 다운로드 경로) : C:\Users\user\Downloads\

B4(파일명) : 2024_생활지도.xlsx

B5(시트번호) : 1

 

메인시트의 VBA

Dim File_check As Boolean
Dim GSwb As Object, GSws As Worksheet
Dim Name_00 As String, Name_01 As String, Name_02 As String, Name_03 As String
Dim Name_04 As Integer

'00 - 사용자명, 01 - 시트 저장, 02 - 저장경로, 03 - 파일명, 04 - 시트번호
Name_00 = Environ("USERNAME")
Name_01 = "https://docs.google.com/feeds/download/spreadsheets/Export?key=1rmXRcAz0DGk3fdzrx76f3Nb3_JV2wVArxeIudS3BVK4&exportFormat=xlsx"
Name_02 = "C:\Users\" & Environ("USERNAME") & "\Downloads\"
Name_03 = "2024_생활지도.xlsx"
Name_04 = 1
'====================기본세팅
File_check = False

'====================동작 1
'다운링크를 하이퍼링크로 연결시키고 작동시키기
Sheets("조건").Hyperlinks.Add Sheets("조건").Range("A1"), Name_01
' Sheet1.Hyperlinks.Add Sheets(2).Range("A1"), Sheets(2).Range("B1")
Sheets("조건").Hyperlinks(1).Follow
ActiveWorkbook.SaveAs Filename:=Name_02 & Name_03
ActiveWorkbook.Close

 

Window 10에서는 정상적으로 작동을 합니다. 그런데 Window 11에서는  ActiveWorkbook.SaveAs Filename:=Name_02 & Name_03 에서 오류가 발생합니다.

Window 버전에 관계없이 정상작동할 수 있는 방법을 알고싶습니다.