Excel Tips: Introdução ao Excel Web App

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

O Microsoft Excel Web App estende a sua experiência do Microsoft Excel ao navegador da Web, no qual é possível trabalhar com pastas de trabalho diretamente no site em que estão armazenadas.

Integrar diretamente com o Excel

Digamos que criemos uma pasta de trabalho no Microsoft Excel e desejemos postá-la em um site para que outras pessoas possam interagir com os dados dinâmicos e, talvez, até inserir alguns dados. Ou talvez apenas queiramos colaborar com alguém que tenha uma versão diferente do MS Excel.

Não seria perfeito se pudéssemos trabalhar diretamente no site ao mesmo tempo? O Excel Web App realiza tudo isso!

No Microsoft Excel podemos começar a usar o Excel Web App salvando a nossa pasta de trabalho no SkyDrive, por exemplo, ou na nossa biblioteca do SharePoint. 

Na guia Arquivo, clique em Salvar e Enviar e clique em Salvar na Web ou Salvar no SharePoint.

Agora, a pasta de trabalho estará disponível para ser exibida ou editada no navegador, ou reaberta no MS Excel.

IMPORTANTE: Não é preciso criar as pastas de trabalho no MS Excel para abri-las no Excel Web App. Para obtermos uma compatibilidade mais adequada use o MS Office Excel 2003 ou posterior, ou use o MS Excel para Mac 2008 versão 12.2.9 ou o Excel para Mac 2011. Se estiver usando o MS Excel 2003, instale o service pack mais recente e salve as pastas de trabalho no computador como arquivos .xlsx. Em seguida, carregue a pasta de trabalho em um site do SharePoint em que o Office Web Apps esteja configurado ou carregue a pasta de trabalho no SkyDrive.

Exibir uma pasta de trabalho no navegador

Quando abrirmos a nossa pasta de trabalho no SkyDrive ou no SharePoint, o Excel Web App abra a pasta de trabalho no navegador. Neste será possível mover-se pela pasta de trabalho, classificar, filtrar, expandir e recolher Tabelas Dinâmicas e até mesmo recalcular a pasta de trabalho.

Também podemos usar o comando Localizar para pesquisar palavras ou frases. Como numa página da Web, será possível selecionar o conteúdo da planilha, copiando-o de modo que fique disponível para ser colado em outro aplicativo.

Editar no navegador

Quando precisarmos fazer alterações na nossa pasta de trabalho, clicaremos em Editar no Navegador para alterar dados, inserir ou editar fórmulas e aplicar formatação básica.

No modo exibição de Edição, poderemos digitar e formatar os textos como de costume, além de usarmos os comandos Recortar, Copiar, Colar, Desfazer/Refazer. Para inserir uma fórmula, iremos até a célula onde desejamos inseri-la, digitamos um sinal de igual (=) e depois digitamos a fórmula ou a função.

Também podemos adicionar tabelas e hiperlinks. Basta irmos a guia Inserir para adicioná-los. Se desejarmos adicionar um gráfico, selecionaremos o intervalo de células a partir do qual será criado o gráfico e, em seguida, iremos para a guia Inserir para selecionarmos o tipo de gráfico que quisermos.

IMPORTANTE: No SkyDrive, o Excel Web App incluirá recursos para a inserção de funções por meio da interface da caixa de diálogo. Tais recursos não estarão disponíveis quando usarmos o Excel Web App em um site do SharePoint.

O Excel Web App salvará a pasta de trabalho automaticamente enquanto trabalhamos nela. Não há necessidade de salvarmos as alterações. Se fizermos alterações que não desejamos manter, usaremos o comando Desfazer ou pressionaremos CTRL+Z (Windows) ou ⌘+Z (Mac).

Trabalhar com outras pessoas

Se tornarmos a nossa pasta de trabalho disponível para que outras pessoas a editem, os nossos amigos ou colegas poderão trabalhar nela ao mesmo tempo que nós. Isso funciona melhor para pastas de trabalho em que estivermos coletando informações de um grupo de pessoas, como uma lista de informações ou um projeto em grupo. Não é preciso enviar emails para uma lista ou esperar que o nosso colega a devolva para o servidor.

Enquanto estivermos editando a pasta de trabalho, o Excel Web App mostra se outras pessoas também estão trabalhando nela.

Armazene a pasta de trabalho em um site onde seus colegas possam acessá-la, como a biblioteca do SharePoint da sua equipe ou uma pasta no SkyDrive que os seus colegas possam acessar.

Convide outras pessoas para trabalhar na pasta de trabalho.

No SharePoint, copie o endereço Web da pasta de trabalho que aparece no navegador e cole o endereço Web em uma mensagem.

No SkyDrive, clique na guia Arquivo no Excel Web App e, em seguida, clique em Compartilhar. Adicione as pessoas com quem deseja compartilhar a pasta de trabalho, clique em Salvar e redija a mensagem.

Edite a pasta de trabalho no Excel Web App. É possível ver quem mais está trabalhando com você na barra de status.

Editar diretamente no Excel

A edição no Excel Web App é mais adequada para alterações rápidas ou para trabalhar de forma colaborativa com outras pessoas. Para acessar o conjunto completo de recursos do MS Excel, clique na guia Arquivo e em Abrir no MS Excel.

O Excel Web App abre a pasta de trabalho diretamente no aplicativo da área de trabalho do MS Excel, no qual é possível trabalhar mais substancialmente. Por exemplo, é possível alterar as configurações em um gráfico ou Tabela Dinâmica. No MS Excel  quando clicarmos em Salvar, o MS Excel salva a pasta de trabalho de novo no servidor Web.

IMPORTANTE: Os navegadores Firefox, Internet Explorer (Windows) e Safari (Mac) oferecem suporte para abrir pastas de trabalho diretamente do navegador no aplicativo da área de trabalho MS Excel  No Windows, você deve usar também o MS Excel 2003 ou posterior para utilizar esse recurso (se estiver usando o Firefox, você deverá usar também o MS Excel 2010 . No Mac, esse recurso requer o Microsoft Excel para Mac 2008 versão 12.2.9 ou o MS Excel para Mac 2011.

Tags: Excel, Web App, App, Web, Microsoft, Sharepoint, skydrive,  

VBA Tips - Como abrir um Website - Open a Website With VBA

#ProgramaçãoGlobal #VBA #WebSite #Browser #Tips #Tricks

☕DOE UM CAFÉ

 Compre OS LIVROS DESTA SÉRIE 

Acessar um site via VBA é simples, basta que saibamos como utilizar um pouco de código. Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps

Mas como sempre temos aqueles que se perguntam: "Mas prá que vou querer aprender isso?" Bem a questão talvez não seja "para que aprender", mas saber fazer isso caso seja necessário. A seguintes interações podem ser necessárias:

- Talvez deseje conduzir o seu usuário para uma página com o help da aplicação que fez.

- Talvez queira direcionar o usuário para uma página específica do MS Sharepoint.

- Talvez apenas tenha a necessidade de conduzir os seus usuários a página do seu Blog quando saírem da sua aplicação.

Segue o modo amador de abrir a página, mas funciona:

Sub WebPage()

            

    Dim IEapp As Object

    Dim WebUrl As String

    Dim NavigatorAddress As String

        

    'Se você não utilizar o Chrome, troque chrome.exe por FireFox.exe

    Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

        

    Set IEapp = CreateObject("InternetExplorer.Application") 'Set IEapp = InternetExplorer

    Let WebUrl = "http://inanyplace.blogspot.com.br/"

        

    'You can't really automate the passing of variables (ie. Login Name and Passwords) using Chrome or FireFox, but the below code will open the desired page

    Shell (NavigatorAddress & " -url " & WebUrl)

                                                                                                

    With IEapp

        Let .Silent = True 'No Pop-ups

        Let .Visible = True 'Set InternetExplorer to Visible

        

        .Navigate WebUrl 'Load web page

        'Run and Wait, if you intend on passing variables at a later stage

        Do While .Busy

            DoEvents

        Loop

            

        Do While .ReadyState <> 4

            DoEvents

        Loop

    End With

End Sub

Segue a forma correta, com um nível mais profissional:

Crie um módulo e cole o código abaixo.

Option Explicit

Private pWebAddress As String

Public Declare Function ShellExecute _

Lib "shell32.dll" _

Alias "ShellExecuteA" _

(ByVal hwnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Public Sub NewShell (cmdLine As String, lngWindowHndl As Long)

    ShellExecute lngWindowHndl, "open", cmdLine, "", "", 1

End Sub

Evoque a função NewShell para carregar o seu navegador.

Public Sub WebPage()

    Let pWebAddress = "http://inanyplace.blogspot.com.br/"

    

    Call NewShell(pWebAddress, 3)

End Sub

Sim, nós sabemos, nós sabemos, nós sabemos…

Ver essa mensagem é irritante. Sabemos disso. (Imagine como é escrevê-la...). Mas também é extremamente importante. Um dos maiores trunfos do ✔ Brazil SFE® é seu modelo parcialmente financiado pelos leitores. 

1. O financiamento dos leitores significa que podemos cobrir o que quisermos. Não sujeitos a caprichos de um proprietário bilionário. Ninguém pode nos dizer o que não dizer ou o que não reportar.

2. O financiamento dos leitores significa que não precisamos correr atrás de cliques e tráfego. Não buscamos desesperadamente a sua atenção por si só: buscamos as histórias que nossa equipe editorial considera importantes e que merecem o seu tempo.

3. O financiamento dos leitores significa que podemos manter nosso blog aberto, permitindo que o maior número possível de pessoas leia artigos de qualidade do mundo todo.

O apoio de leitores como você torna tudo isso possível. No momento, apenas 2,4% dos nossos leitores regulares ajudam a financiar nosso trabalho. Se você quer ajudar a proteger nossa independência editorial, considere juntar-se a nós hoje mesmo.

Valorizamos qualquer quantia que possa nos dar, mas apoiar mensalmente é o que causa maior impacto, permitindo um investimento maior em nosso trabalho mais crucial e destemido, assim esperamos que considere apoiar-nos. Obrigado!

☕DOE UM CAFÉ

👉 Siga André Bernardes no Linkedin. Clique aqui e contate-me via What's App.

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Compre OS LIVROS DESTA SÉRIE 

 Série Donut Project 

  

      

VBA Tips - Fazendo o download de um arquivo - Downloading A File From The Web

| Blog Office VBA | Blog Excel | Blog Access |

Sua aplicação pode precisar baixar um arquivo da web, esta é uma tarefa fácil de concluir. 

O código abaixo usa a função de API URLDownloadToFile do Windows para executar o download real. O algoritmo deste artigo manipula essa API é uma função chamada DownloadFile, e manipula as circunstâncias em que o arquivo de destino local já existe. 

O protótipo da função de DownloadFile é como se segue:

Public Function DownloadFile(UrlFileName As String, _

                            DestinationFileName As String, _

                            Overwrite As DownloadFileDisposition, _

                            ErrorText As String) As Boolean

Option Explicit

Option Compare Text

' modDownloadFile

' Date: 23-April-2003

' This module contains the DownloadFile function and supporting players to

' download a file from a URL to a local file name.

'

' Example Usage:

'

'        Dim URL As String

'        Dim LocalFileName As String

'        Dim B As Boolean

'        Dim ErrorText As String

'

'        URL = "https://sites.google.com/site/bernardescvcurriculumvitae/home/CV-AndreLuizBernardes-19032012_Overview.doc"

'        LocalFileName = "C:\Test\FindAll.zip"

'        B = DownloadFile(UrlFileName:=URL, _

'                        DestinationFileName:=LocalFileName, _

'                        Overwrite:=OverwriteRecycle, _

'                        ErrorText:=ErrorText)

'        If B = True Then

'            Debug.Print "Download successful"

'        Else

'            Debug.Print "Download unsuccessful: " & ErrorText

'        End If

'

' The Overwrite parameter of DownloadFile indicates how to handle the

' case when LocalFileName already exists. It is one of the following

' values:

'        OverwriteKill      use Kill to delete the existing file.

'        OverwriteRecycle   send the existing file to the Recycle Bin.

'        DoNotOverwrite     do not overwrite and terminate the procedure.

'        PromptUser         prompt the user asking whether to overwrite file.

'

Public Enum DownloadFileDisposition

    OverwriteKill = 0

    OverwriteRecycle = 1

    DoNotOverwrite = 2

    PromptUser = 3

End Enum

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Windows API functions, constants,and types.

' Used for RecycleFile.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Declare Function SHFileOperation Lib "shell32.dll" Alias _

    "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function PathIsNetworkPath Lib "shlwapi.dll" _

    Alias "PathIsNetworkPathA" ( _

    ByVal pszPath As String) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" _

    Alias "GetSystemDirectoryA" ( _

    ByVal lpBuffer As String, _

    ByVal nSize As Long) As Long

Private Declare Function SHEmptyRecycleBin _

    Lib "shell32" Alias "SHEmptyRecycleBinA" _

    (ByVal hwnd As Long, _

     ByVal pszRootPath As String, _

     ByVal dwFlags As Long) As Long

Private Const FO_DELETE = &H3

Private Const FOF_ALLOWUNDO = &H40

Private Const FOF_NOCONFIRMATION = &H10

Private Const MAX_PATH As Long = 260

Private Type SHFILEOPSTRUCT

    hwnd As Long

    wFunc As Long

    pFrom As String

    pTo As String

    fFlags As Integer

    fAnyOperationsAborted As Boolean

    hNameMappings As Long

    lpszProgressTitle As String

End Type

'''''''''''''''''''''''''''

' Download API function.

''''''''''''''''''''''''''''''''''''''

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _

                        "URLDownloadToFileA" ( _

                            ByVal pCaller As Long, _

                            ByVal szURL As String, _

                            ByVal szFileName As String, _

                            ByVal dwReserved As Long, _

                            ByVal lpfnCB As Long) As Long

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' DownloadFile

' This downloads a file from a URL to a local filename.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function DownloadFile(UrlFileName As String, _

                            DestinationFileName As String, _

                            Overwrite As DownloadFileDisposition, _

                            ErrorText As String) As Boolean

Dim Disp As DownloadFileDisposition

Dim Res As VbMsgBoxResult

Dim B As Boolean

Dim S As String

Dim L As Long

ErrorText = vbNullString

If Dir(DestinationFileName, vbNormal) <> vbNullString Then

    Select Case Overwrite

        Case OverwriteKill

            On Error Resume Next

            Err.Clear

            Kill DestinationFileName

            If Err.Number <> 0 Then

                ErrorText = "Error Kill'ing file '" & DestinationFileName & "'." & vbCrLf & Err.Description

                DownloadFile = False

                Exit Function

            End If

    

        Case OverwriteRecycle

            On Error Resume Next

            Err.Clear

            B = RecycleFileOrFolder(DestinationFileName)

            If B = False Then

                ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description

                DownloadFile = False

                Exit Function

            End If

        

        Case DoNotOverwrite

            DownloadFile = False

            ErrorText = "File '" & DestinationFileName & "' exists and disposition is set to DoNotOverwrite."

            Exit Function

            

        'Case PromptUser

        Case Else

            S = "The destination file '" & DestinationFileName & "' already exists." & vbCrLf & _

                "Do you want to overwrite the existing file?"

            Res = MsgBox(S, vbYesNo, "Download File")

            If Res = vbNo Then

                ErrorText = "User selected not to overwrite existing file."

                DownloadFile = False

                Exit Function

            End If

            B = RecycleFileOrFolder(DestinationFileName)

            If B = False Then

                ErrorText = "Error Recycle'ing file '" & DestinationFileName & "." & vbCrLf & Err.Description

                DownloadFile = False

                Exit Function

            End If

    End Select

End If

L = URLDownloadToFile(0&, UrlFileName, DestinationFileName, 0&, 0&)

If L = 0 Then

    DownloadFile = True

Else

    ErrorText = "Buffer length invalid or not enough memory."

    DownloadFile = False

End If

    

End Function

                            

Private Function RecycleFileOrFolder(FileSpec As String) As Boolean

    Dim FileOperation As SHFILEOPSTRUCT

    Dim lReturn As Long

    If (Dir(FileSpec, vbNormal) = vbNullString) And _

        (Dir(FileSpec, vbDirectory) = vbNullString) Then

        RecycleFileOrFolder = True

        Exit Function

    End If

    With FileOperation

        .wFunc = FO_DELETE

        .pFrom = FileSpec

        .fFlags = FOF_ALLOWUNDO

' Or

        .fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION

    End With

    lReturn = SHFileOperation(FileOperation)

    If lReturn = 0 Then

        RecycleFileOrFolder = True

    Else

        RecycleFileOrFolder = False

    End If

End Function

Reference: http://www.cpearson.com/excel/DownloadFile.aspx

Tags: VBA, download, URL, Web,file