✔ Programação GLOBAL®: VBA Excel - Excel 2007

DESENVOLVO APLICAÇÕES VBA

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

Você tem direito as informações da sua empresa

Tenho essa função num banco de dados Access 2007, que trabalha muito bem. É uma experiência inédita para alguns e uma necessidade preemente para outros. Exportar dados de uma planilha para o Sharepoint.

Function Export2SPoint()

Dim oFs As New FileSystemObject

Dim originalFolder As Folder

Dim destinationPath As String

Dim ofile As file

Dim XLApp As Excel.Application

Dim xlwb As Excel.Workbook

Dim strFileName As String

Dim oFolder As String

Let oFolder = "//chs114file1/dovpasres/Data/Script/InfoCentre/Delays"

Set oFs = CreateObject("Scripting.FileSystemObject")

Set XLApp = New Excel.Application

Kill "K:\Data\Script\InfoCentre\Delays\*.xlk"

Set originalFolder = oFs.GetFolder(oFolder)

Let destinationPath = "http://companyname.sharepoint.com/PRR/Documents/"

For Each ofile In originalFolder.Files

Let strFileName = oFs.GetFileName(ofile)

Set xlwb = XLApp.Workbooks.Open(ofile)

xlwb.SaveAs (destinationPath + strFileName)

Next

xlwb.Close True

XLApp.Quit

Set xlwb = Nothing

Set XLApp = Nothing

End Function