Pessoal, bom dia!
Fiz uma planilha onde tenho um botão de upload (browse) que abre um arquivo com extensão .xls* para poder copiar algumas informações dessa planilha.
O problema é que só consigo selecionar uma planilha de cada vez no browse. Alguem sabe como faço para ela abrir varias planilhas de uma única vez ?
Abraços
Sub Upload_I()
Dim Checklist As String
Dim Comparison As String
Dim Opco, Brewery, Year, Quarter As String
Dim Ultimalinha As Long
'Browse
ComparisonSheet = ActiveWorkbook.Name
Checklist = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xls* (*.xls*),")
Workbooks.Open Filename:=Checklist
ChecklistSheet = ActiveWorkbook.Name
'lock
Application.ScreenUpdating = False
'Copy DS
Windows(ChecklistSheet).Activate
Sheets("Summary").Select
Range("C5:M5").Copy
Windows(ComparisonSheet).Activate
Sheets("Upload").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Pasting in DB
Windows(ComparisonSheet).Activate
Sheets("Upload").Select
Range("a2:J397").Select
Selection.Copy
Sheets("DB").Select
Range("a" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'unlock
Application.ScreenUpdating = False
Exit Sub
Postado : 04/11/2014 2:56 pm