Logo Hardware.com.br
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas

Backup de Arquivo na Nuvem.

#1 Por Marcelo G Pr... 07/01/2018 - 18:56
Boa noite!!! O titulo é autoexplicativo.

Alguem tem algum codigo que faça backup de um arquivo na nuvem?

Onedrive, 4shared, GoogleDrive, enfim em um servidor qualquer.
TRONNER
TRONNER Cyber Highlander Registrado
32.2K Mensagens 7.3K Curtidas
#2 Por TRONNER
08/01/2018 - 09:58
Código para qual fim ?! Automatizar o envio, criar um ambiente ?!
Geralmente softwares que tem acesso a esse ambiente são amparados por API´s ...
cool.png**Quando pensar ser um Golias, cuidado para não encontrar algum Davi**
veja.png Conheça os Poderosos e Gratuitos [ Iperius Backup ] e [ Iperius Remote ]
veja.png Todo dia um software novo e grátis [ clicando aqui ]
boa.gif Faça valer a sua voz com o Mudamos+ { https://www.mudamos.org }
TRONNER
TRONNER Cyber Highlander Registrado
32.2K Mensagens 7.3K Curtidas
#4 Por TRONNER
08/01/2018 - 13:32
Marcelo G Prudencio disse:
Automatizar o envio.
Fazer o backup do arquivo no onedrive.
IMPORTANTE SEM NENHUMA INSTALAÇAO DE SOFTWARE.

policia.gif Não use caixa alta, isso fere as regras do forum.
Se for para alguma atividade escolar, isso pela muita semelhança com enunciados de exercícios .. você já fez alguma pesquisa por conta ?!
Está faltando por exemplo:
- qual sistema operacional ?!
- quais recursos disponíveis ?!
...por exemplo.
Talvez pelo PowerShell { https://community.spiceworks.com/topic/2001221-powershell-script-to-upload-file-to-onedrive-business }.
cool.png**Quando pensar ser um Golias, cuidado para não encontrar algum Davi**
veja.png Conheça os Poderosos e Gratuitos [ Iperius Backup ] e [ Iperius Remote ]
veja.png Todo dia um software novo e grátis [ clicando aqui ]
boa.gif Faça valer a sua voz com o Mudamos+ { https://www.mudamos.org }
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#5 Por Marcelo G Pr...
08/01/2018 - 22:17
Não tem muito misterio, eu quero fazer o backup na nuvem.
A ideia é que funcione tanto no Windows XP qto no Windows 10

Entao não deve ter nenhuma instalação extra, nem ja estar logado no onedrive.

Recursos Disponiveis:

Internet e Excel.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
TRONNER
TRONNER Cyber Highlander Registrado
32.2K Mensagens 7.3K Curtidas
#6 Por TRONNER
09/01/2018 - 09:54
Marcelo G Prudencio disse:
Não tem muito misterio, eu quero fazer o backup na nuvem.
A ideia é que funcione tanto no Windows XP qto no Windows 10
Entao não deve ter nenhuma instalação extra, nem ja estar logado no onedrive.
Recursos Disponiveis:
Internet e Excel.

Fácil assim como você pretende, não acredito que exista.
Chegou a ler o artigo que informei ?!
cool.png**Quando pensar ser um Golias, cuidado para não encontrar algum Davi**
veja.png Conheça os Poderosos e Gratuitos [ Iperius Backup ] e [ Iperius Remote ]
veja.png Todo dia um software novo e grátis [ clicando aqui ]
boa.gif Faça valer a sua voz com o Mudamos+ { https://www.mudamos.org }
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#7 Por Basole
09/01/2018 - 13:24
Uma opçpão seria baixar o arquivo e salvar em alguma pasta ou local do seu Pc ou pen drive, por exemplo.
Mas para isso, é necessário alguns ajustes e o arquivo precisa ser compartilhado:

Veja o passo-a-passo abaixo, para baixar um arquivo Excel:

1º Entre no One Drive na nuvem:
Imagem

Veja o exemplo do código para download:
[code=vb]
Sub Download_OneDirve_Nuvem()
Dim objExcel As Object
Dim sh As Object
Dim fName As String

Set objExcel = CreateObject("Excel.Application") ' * CASO NÂO ESTEJA NO EXCEL

Set objExcel = objExcel.Workbooks.Open("https://onedrive.live.com/download?&resid=E7273F2574366DB6!808", True, True)

objExcel.Activate

For Each sh In objExcel.Worksheets
sh.Activate
Next sh
' Local (diretorio) do Backup:
fName = "C:\Users\NOME_DO_USUARIO_AQUI\Desktop\Northwind.xlsx" '

objExcel.SaveAs Filename:=fName, FileFormat:=51

If Not objExcel Is Nothing Then
objExcel.Close
End If

Set objExcel = Nothing

End Sub
[/code]
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#8 Por Marcelo G Pr...
09/01/2018 - 22:40
@TRONNER Sinceramente nao tive muito tempo de fazer a leitura do link que vc indicou, vou fazer assim que tiver um tempo.

@Basole o codigo ficara guardado mas pelo pouco que vi eu pretendo fazer o contrario. O que vc postou aparentemente copia um arquivo do onedrive para o pc e eu pretendo justamente o oposto.

Quero pegar um arquivo no pc e guarda-lo por vba no onedrive. (Sem instalação do app no pc,), a ideia é que nao me importa o sistema operacional.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal