vba upload file in Google Drive o similari

Question

Ciao a tutti, 

volevo sapere se fosse possibile salvare un file tramite codice vba sulla cartella di Google Drive? ho fatto delle prove mettendo semplicemente il percorso della cartella ma nulla... 

Grazie per il supporto

Answer 1

Non ho capito cosa voglia dire *esportazione un file in pdf di un word*.

FileCopy funziona tranquillamente e trasferisce un file .pdf da una cartella del pc a OneDrive.

Questo il vbs:

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFile "C:\Prova\ABC.pdf" , _

 "C:\Users\Mauro\OneDrive\DocumentiPubblici", _

 OverwriteExisting

E questo il codice per Excel:

Public Sub m()

    Const OverwriteExisting = True

    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.CopyFile "C:\Prova\ABC.pdf", _

    "C:\Users\Mauro\OneDrive\DocumentiPubblici", _

        OverwriteExisting

    Set objFSO = Nothing

End Sub

Per Word o qualsiasi altro file è la stessa cosa.

Answer 2

il ThisWorkbook.SaveAs funziona in OneDrive ma altri metodi come il Filecopy o l'esportazione in pdf di un word non funzionano. Ci sono altre soluzioni?

Grazie

Answer 3

Ho aggiunto qualcosa alla mia prima risposta. E *salvare* non è *copiare*.

Answer 4

Uso un semplice filecopy ma non funziona sulla cartella di google drive:

Dim Percorso, filepath As String

Percorso = "Q:\Comune\RC\Documentazione"

filepath = "C:\Users\sal.mar\Google Drive"

FileCopy Percorso & "Quotation.docx", filepath

come aggiorno la cartella locale con quella di cloud?

Grazie

Answer 5

Se hai anche una cartella locale che si aggiorna con quella in cloud non dovrebbe essere difficile.

Puoi postare il codice che hai usato?

Questo codice salva, ad esempio, il file nella cartella OneDrive sullla mia macchina e quindi l'aggiorna in automatico su OneDrive in cloud:

Public Sub m()

    ThisWorkbook.SaveAs Filename:="C:\Users\Mauro\OneDrive\DocumentiPubblici\Pippo.xlsm", _

        FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

Io leggo Windows RT come S.O. Ma Windows RT non dovrebbe supportare il vba....