Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 código fonte para importar planilha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
kdu



Mensagens : 1
Data de inscrição : 29/09/2014

MensagemAssunto: código fonte para importar planilha    Seg Set 29, 2014 7:53 pm

Caros, boa tarde! Estou com um problema e agradeceria muito se alguém puder me ajudar a solucioná-lo!
Escrevi um código para importar o conteúdo de uma planilha para outra; e preciso implementar neste mesmo código; um trecho que faça o seguinte; conforme exemplo: -- planilha matriz possui os campos notas , emissão, cnpj , unidade, quantidade, valor unitário, valor total, aliquota, valor do ICMS. Ao importar esta planilha; desejo que a "nova" planilha seja populada pelos campos notas, emissão, valor total, aliquota e valor do ICMS. (apenas um exemplo!)

Segue código :-

Sub IMPORTAR()

Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean

' Desativar a tela atualizar.

Application.ScreenUpdating = False

Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt", "arquivos xls(*.xls), *.xls")

' Defina variáveis object para o ativo de livros e célula ativa.

Set DestBook = ActiveWorkbook
Range("A1").Activate

Set DestCell = ActiveCell

' Mostrar a caixa de diálogo Abrir.

RetVal = Application.Dialogs(xlDialogOpen).Show("*.xls")

' Se retval=<é falso (diálogo aberto cancelada), sair do procedimento.

If RetVal = False Then Exit Sub

' Definir uma variável de objeto para a pasta que contém o arquivo de texto.

Set SourceBook = ActiveWorkbook

' Copie o conteúdo de toda a folha contendo o arquivo de texto.

Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy


' Ative o destino livro e colar especial valores
' do arquivo de texto.

DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues

' Feche o livro contendo o arquivo de texto.

SourceBook.Close False

End Sub

aguardo um retorno e muito obrigado
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: código fonte para importar planilha    Seg Set 29, 2014 7:58 pm

Boa tarde!!

Se eu entendi, *campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8, campo9), tu precisa colar em outra guia, somente alguns campos?

Use o comando: .EntireColumn.Delete
http://analysistabs.com/vba/delete-entire-column-excel-macro-example-code/

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
código fonte para importar planilha
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Fonte para: titulo fórum, sub fórum
» [TRFN]Código-Fonte para estudo
» Código jquery para ocultar conteúdo de acordo com a página.
» Como eu bloqueio o acesso ao código-fonte ?
» Alterar fonte - fontes não existentes no fórum

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: