Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 código fonte para importar planilha

Ir para baixo 
2 participantes
AutorMensagem
kdu




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

código fonte para importar planilha  Empty
MensagemAssunto: código fonte para importar planilha    código fonte para importar planilha  EmptySeg 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

código fonte para importar planilha  Empty
MensagemAssunto: Re: código fonte para importar planilha    código fonte para importar planilha  EmptySeg 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
Ir para o topo Ir para baixo
 
código fonte para importar planilha
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Importar Txt para excel vba problema
» Macro para copiar dados de uma planilha e colar na última linha vazia de outra planilha
» Exportar dados (do controle ActiveX) de uma planilha A para uma planilha B
» Planilha busca relação de materiais a partir do código do KIT
» Macro para importar um determinado dado de um arquivo xml

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: