Nesse Post mostro como importar dados de outra planilha com a possibilidade de escolhermos a guia a ser importada... os dados são importados da planilha para a listview, onde podemos selecionar os registros para montar um relatório por exemplo...
Para importar somente a guia que queremos de outra planilha foram criados os seguintes formulários: 01. Formulário para escolha da Planilha. 02. Formulário par escolha da guia da planilha selecionada.
Ao selecionar a guia os dados serão importados primeiramente para a Listview e podem ser todos descarregados na planilha de relatórios ou somente os itens selecionados serem importados.
Link para download: compartilhado via Dropbox
https://www.dropbox.com/s/6cjvch9qm55iser/74%20-%20Importar%20dados%20de%20outro%20arquivo%20xls.xlsm?dl=0
Nesse post mostro como criar pasta e salvar arquivo em PDF dentro dela, o nome da pasta pode ser o conteúdo de uma célula, de uma variável, ou ainda de um textbox/combobox...
No código abaixo uso a célula E3 da planilha selecionada para ser o nome da pasta e também para criar o PDF que será salvo nessa mesma pasta...
Dim caminho As String Dim pasta As Object, NomePasta Set pasta = CreateObject("Scripting.FileSystemObject") NomePasta = ActiveWorkbook.Path & "\" & Range("E3").Text If Not pasta.FolderExists(NomePasta) Then pasta.CreateFolder (NomePasta) End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Path & "\" & Range("E3") & "\" & "Relatório Nº " & Range("E3") & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False caminho = NomePasta & "\" & "Relatório Nº " & Range("E3") & ".pdf" Me.txt_arquivo = caminho
A variável caminho irá armazenar o caminho, diretório, onde o arquivo gerado foi salvo e será mostrado dentro da caixa de texto txt_arquivo....
Mais detalhes sobre o procedimento, pode ser encontrado no vídeo abaixo
