Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Importar arquivos x...
 
Notifications
Clear all

Importar arquivos xls em uma pasta

 
2024 - VBA & Macros
Post Recente por Wagner Morel 11 anos atrás
8 Posts
3 Usuários
0 Reactions
1,257 Visualizações
RSS
 Sergio7
(@sergio7)
Posts: 4
New Member
Topic starter
 

Preciso importar todos os arquivos xls de uma pasta para um arquivo tb xls, estava utilizando o código abaixo mas da erro nas linhas com o texto em vermelho:

Sub Importar_xlsx()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:Cidade" ' drive onde se situa o seu documento excel
strTable = "Plan1" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xls")
'strFile = Dir(strPath & "*.csv")'
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub

Alguém pode me ajudar?

Obrigado, Sérgio

 
Postado : 27/05/2014 5:39 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Sergio7

Seja bem-vindo ao fórum!

Este local é exclusivo para apresentação dos novos usuários do fórum, por isso, movi teu tópico para a sala VBA & Macros.

Por enquanto vou deixar mostrando nos 2 locais para você se localizar.

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/05/2014 5:45 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Sérgiko,

Boa Noite!

Não entendi bem esse seu código. Todavia, segue um exemplo que faz o que você quer.

Veja se assim lhe atende.

Copiar conteúdo de diversos arquivos Excel para um só.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/05/2014 6:41 pm
 Sergio7
(@sergio7)
Posts: 4
New Member
Topic starter
 

Obrigado Wagner, ajudou bastante, vou tentar adaptar ao meu caso vi que o código funciona perfeitamente.

 
Postado : 27/05/2014 7:41 pm
 Sergio7
(@sergio7)
Posts: 4
New Member
Topic starter
 

Wagner, como faço para iniciar a importação a partir da segunda linha de cada planilha?
No código que você sugeriu o cabeçalho que está na primeira linha vem junto em todas as planilhas.

Sérgio.

 
Postado : 28/05/2014 11:06 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Sérgio,

Nessa parte do código:

        ActiveSheet.UsedRange.Copy _
        ThisWorkbook.Sheets("Plan1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0)

Você pode alterar assim:

         'Aqui você deve registrar toda a faixa de células que quer copiar
        ActiveSheet.Range ("A2:H30").Copy _
        ThisWorkbook.Sheets("Plan1").Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0)

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/05/2014 7:04 pm
 Sergio7
(@sergio7)
Posts: 4
New Member
Topic starter
 

Wagner muito obrigado, resolveu o meu problema.

Valeu, Sérgio.

 
Postado : 29/05/2014 5:03 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok Sérgio. Peço a gentileza de votar positivamente clicando na mãozinha ao lado da ferramenta citar.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 29/05/2014 7:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico