✔ Programação GLOBAL®: VBA Access - Adicionando novas Sheets no mesmo Workbook

VBA Access - Adicionando novas Sheets no mesmo Workbook - Adding new sheets to Excel

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

Não são raras as ocasiões onde precisamos entregar os nossos relatórios em planilhas Excel. Por vezes estas nem mesmo precisam de formatação, apenas dos dados.

Em outras ocasiões vários processos geram distintas planilhas MS Excel e precisamos a posteriori deixar todas num mesmo workbook. Segue o modo de fazermos isso:

Public Sub YourSub()

Dim objexcel As Excel.Application

Dim wbexcel As Excel.Workbook

Dim wbExists As Boolean

Set objexcel = CreateObject("excel.Application")

'This is a bad way of handling errors. We should'

'instead check for the file existing, having correct'

'permissions, and so on, and actually stop the process'

'if an unexpected error occurs.'

On Error GoTo Openwb

wbExists = False

Set wbexcel = objexcel.Workbooks.Open("C:\REPORT1.xls")

wbExists = True

Openwb:

On Error GoTo 0

If Not wbExists Then

Set wbexcel = objexcel.Workbooks.Add()

End If

CopyToWorkbook wbexcel

EndSub

Private Sub CopyToWorkbook(objWorkbook As Excel.Workbook)

Dim newWorksheet As Excel.Worksheet

set newWorksheet = objWorkbook.Worksheets.Add()

'Copy stuff to the worksheet here'

End Sub