Download de múltiplos arquivos via Excel

Neste caso basta informar o dados nas células de uma planilha e ler eles através da macro: Sub DownloadEUnzip()      ‘Declaração de variáveis      Dim FSO, oApp As Object      Dim objHttp, DefPath, Arquivo, aUrl, aPasta As String      Dim Dados() As Byte      Dim Fname As Variant      Dim FileNameFolder As Variant      Dim iFileNumber As Long            For i = 1 To 20                    ‘Parâmetros iniciais (personalizáveis)         aUrl = Cells(i, 1).Value         aPasta = Cells(i, 2).Value         Arquivo = aPasta & Cells(i, 3).Value                 ‘Download do Arquivo         Set objHttp = CreateObject(“MSXML2.ServerXMLHTTP”)         objHttp.Open “GET”, aUrl, False         objHttp.Send         If objHttp.Status = “200” Then             Dados = objHttp.ResponseBody             iFileNumber = FreeFile             … Continue reading Download de múltiplos arquivos via Excel

Download de arquivos via Excel

Aqui vai uma versão mais genérica do post anterior, para download de arquivos via Excel: Sub DownloadEUnzip()      ‘Declaração de variáveis      Dim FSO, oApp As Object      Dim objHttp, DefPath, Arquivo, aUrl, aPasta As String      Dim Dados() As Byte      Dim Fname As Variant      Dim FileNameFolder As Variant      Dim iFileNumber As Long            ‘Parâmetros iniciais (personalizáveis)      aUrl = “http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip“      aPasta = “C:\loteria\temp\”      Arquivo = aPasta & “D_lotfac.zip”           ‘Download do Arquivo      Set objHttp = CreateObject(“MSXML2.ServerXMLHTTP”)      objHttp.Open “GET”, aUrl, False      objHttp.Send      If objHttp.Status = “200” Then          Dados = objHttp.ResponseBody          iFileNumber = FreeFile          Open Arquivo For Binary Access Write As #iFileNumber          Put #iFileNumber, 1, Dados          … Continue reading Download de arquivos via Excel

Efetuando download de arquivo zipado, pelo Excel e descompactando ele

Hoje no forum havia um usuário com esta necessidade, como creio que a resposta que dei para ele será útil para mais gente, posto aqui o código: Sub DownloadEUnzip()      Dim FSO, oApp As Object      Dim objHttp, DefPath, Arquivo As String      Dim Dados() As Byte      Dim Fname As Variant      Dim FileNameFolder As Variant      Dim iFileNumber As Long      Set objHttp = CreateObject(“MSXML2.ServerXMLHTTP”)      objHttp.Open “GET”, “http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip”, False      objHttp.Send      DefPath = “C:\Loteria\Temp\”    ‘<<< Altere aqui      Arquivo = DefPath & “D_lotfac.zip”      If objHttp.Status = “200” Then          Dados = objHttp.ResponseBody          iFileNumber = FreeFile          Open Arquivo For Binary Access Write As #iFileNumber          Put #iFileNumber, 1, Dados          Close … Continue reading Efetuando download de arquivo zipado, pelo Excel e descompactando ele

Abrindo um documento PDF em uma página específica

Suponhamos que você tenha uma biblioteca de documentos PDF em uma pasta compartilhada na sua rede e deseje adicionar um link no seu SharePoint para abrir o documento em uma página específica. Como fazer isso? Simples, basta usar os Open Parameters da Adobe. Adicione um novo link no SharePoint; Aponte ele para o arquivo PDF que deseja abrir; Após o nome do arquivo adicione o parâmetro. Ex.: \\computador\pasta\arquivo.pdf#page=10 (este URL envia você direto para a página 10 do documento). Como funcionam os Open Parameters? Simples, basta adicionar um sustenido (#) após o .PDF para informar que usará parâmetros e caso deseje … Continue reading Abrindo um documento PDF em uma página específica

MVP 7.0

Queridos amigos, fico muito feliz de compartilhar com vocês, que pelo 7º ano consecutivo fui agraciado pela Microsoft com o título de MVP (Most Valuable Professional)! O que é MVP? Os MVPs (Most Valuable Professionals) Microsoft são pessoas reconhecidas, confiáveis e acessíveis, que têm experiência em um ou mais produtos Microsoft® e que participam ativamente de comunidades on-line e off-line com o intuito de compartilhar seu conhecimento e experiência com outros clientes Microsoft. Os clientes desejam um acervo rico de conhecimentos e experiências da vida real quando recorrem a conselhos e feedbacks. Os MVPs ajudam a satisfazer essa necessidade, capacitando … Continue reading MVP 7.0