vba를 사용하여 Google 드라이브에서 Excel 파일을 다운로드하는 방법은 무엇인가요?

-2

vba 코드를 사용하여 Google 드라이브에서 Excel 파일을 다운로드하려고합니다. 이 경로는 C : /MyDownloads/seriall.xlsx에 다운로드됩니다. 그러나 첫 번째 시트에 다운로드 된 Excel 파일 상단에 이상한 텍스트가 추가됩니다. 또한 열려고하는 파일이 지정된 형식이 아닌 다른 메시지 형식의 팝업 메시지가 나타납니다. 그래서 나는이 팝업을 통과하기 위해 예를 클릭한다. 그리고 나서 오류 팝업이없는 CSS 파일을 얻는다. 왜 이런 일이 발생하고 다운로드 한 Excel 파일에 이러한 오류가 나타나는 이유는 무엇입니까? 저의 데이터는 엑셀이 추가 한 이상한 텍스트 하단에도 보여집니다.vba를 사용하여 Google 드라이브에서 Excel 파일을 다운로드하는 방법은 무엇인가요?

FileCopy GetSpecialFolder (vbDirGoogleDrive) & "seriall.xlsx", "C :/내 다운로드 /, 당신은 간단 같은 클라우드 드라이브에서 파일을 다운로드 할 수있는 'GetSpecialFolder'UDF를 사용

Dim FileNum As Long 
Dim FileData() As Byte 
Dim MyFile As String 
Dim WHTTP As Object 

On Error Resume Next 
    Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5") 
    If Err.Number <> 0 Then 
     Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1") 
    End If 
On Error GoTo 0 

MyFile = "https://docs.google.com/spreadsheets/d/1e6DNpw3y5NrMR9cNLmIZdPYO79WLui7mua5I-5pEyKo/edit?usp=sharing" 

WHTTP.Open "GET", MyFile, False 
WHTTP.send 
FileData = WHTTP.ResponseBody 
Set WHTTP = Nothing 

If Dir("C:\Downloads", vbDirectory) = Empty Then MkDir "C:\Downloads" 

FileNum = FreeFile 
Open "C:\Downloads\serial.xls" For Binary As #FileNum 
    Put #FileNum, 1, FileData 
Close #FileNum 

MsgBox "Open the folder [ C:\Downloads ] for the "

출처

2016-07-02 Zesane

공개 사이트에서 테스트 한이 [우수 답변] (http://stackoverflow.com/questions/17877389/how-do-i-download-a-file-using-vba-without-internet-explorer)을 참조하십시오. 귀하의 버전은 .xls 파일이 아닌 텍스트 파일 작성자를 사용합니다. – Parfait

@Zesane 귀하가 추천하는 사람들은 모두 자원 봉사자이며이 커뮤니티 외부의 삶과 책임이 있습니다. 질문을 게시하는 것만으로 응답을 보장 할 수 없거나 응답이 수일 내에 올 수 있습니다. 많은 질문은 소수만이 소유 할 수있는 특별한 지식이 필요합니다. 답변을 얻는 데는 시간이 걸릴 수 있지만 첫 번째 의견을 게시하면 도움이 될 수있는 사람들을 막을 수 있습니다. 인내 젊은 여자. –

다음 메타 토론보기 : http://meta.stackoverflow.com/questions/326569/under-what-circumstances-may-i-addenturgent-or-other-similar-phrases-to-my-quest –

seriall.xlsx "

http://www.EXCELGAARD.dk/Lib/GetSpecialFolder/

당신은 또한 사용할 수 있습니다

FileCopy GetSpecialFolder (vbDirGoogleDrive) & "seriall.xlsx", GetSpecialFolder (vbDirDownloads) & "seriall.xlsx"*

심지어간에 파일을 이동할 수 있습니다

당신, 말, Google 드라이브 및 보관 :

FileCopy GetSpecialFolder (vbDirGoogleDrive) & " seriall.xlsx ", GetSpecialFolder (vbDirDropbox) &"seriall.xlsx "* 코드 아래

출처

2016-10-14 06:06:45

-1

시도,

Sub Basic_Web_Query() Dim chromePath As String Sheets("Sheet2").Select Range("A2").Select Selection.Copy Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe") SendKeys "^v" SendKeys "~" Application.Wait (Now + TimeValue("00:00:10")) SendKeys "^a" SendKeys "^c" Application.Wait (Now + TimeValue("00:00:10")) Sheets("Sheet1").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _ False End Sub

출처

2018-01-03 07:53:04

vba를 사용하여 Google 드라이브에서 Excel 파일을 다운로드하는 방법은 무엇인가요?

답변

관련 문제