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 | 
 

 Erro de compatibilidade

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



Mensagens : 2
Data de inscrição : 21/08/2014

MensagemAssunto: Erro de compatibilidade   Qui Ago 21, 2014 9:04 pm

Boa tarde,

Estou com problema de compatibilidade neste código.

Código:
Sub ImportarTXT()
    Dim Pasta As String
    Dim Arquivo As String
    Dim LinInicial As Long
    Dim LinFinal As Long
    
    'Abre caixa de diálogo para selecionar a pasta onde estão
    'os arquivos
    With Application.FileDialog(msoFileDialogFolderPicker)
       .Show
       Pasta = .SelectedItems(1)
    End With
    
    Arquivo = Dir(Pasta & "\*.txt")
    
    'Laço para abrir cada um dos arquivos
    While Arquivo <> ""
        
        Workbooks.OpenText Filename:=Pasta & "\" & Arquivo, _
        DataType:=xlDelimited, StartRow:=2, Other:=True, OtherChar:=";", _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 9), Array(8, 9), Array(9, 9), Array(10, 9), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 9), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 9), Array(26, 9), Array(27, 9), Array(28, 9), Array(29, 9), Array(30, 9), Array(31, 9), Array(32, 9), Array(33, 9), Array(34, 9), Array(35, 9), Array(36, 9), Array(37, 1), Array(38, 1), Array(39, 9))
        'Linha inicial onde deve-se colocar o nome do arquivo
        LinInicial = ThisWorkbook.ActiveSheet.Range("B" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Row
        ActiveSheet.[A1].CurrentRegion.Copy _
        ThisWorkbook.ActiveSheet.Range("B" & Cells.Rows.Count).End(xlUp).Offset(1, 0)
        
        ActiveWorkbook.Close False
        Arquivo = Dir
        DoEvents
    Wend
        Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Range("A2").Select
            ActiveCell.FormulaR1C1 = "1"
            Range("A3").Select
            ActiveCell.FormulaR1C1 = "2"
            Range("A2:A3").Select
            Selection.AutoFill Destination:=Range("A2:A12501"), Type:=xlFillDefault
            Range("A2:A12501").Select
    MsgBox "Importação Completa"
End Sub
Este código funciona normalmente quanto o arquivo está salvo como xlsm, mas tenho que usar ele em xls e não roda.
Alguém poderia me ajudar a identificar o motivo do problema e qual a solução.


Agradeço pela ajuda.
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: Erro de compatibilidade   Qui Ago 21, 2014 9:27 pm

Boa tarde!!

Porque xlsm (Macro) e esse código só roda em arquivos salvos como macro.

Creio eu salvo se o arquivo tem origem Modelo do Excel 97-2003

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
rique_tec



Mensagens : 2
Data de inscrição : 21/08/2014

MensagemAssunto: Re: Erro de compatibilidade   Qui Ago 21, 2014 11:42 pm

alexandrevba escreveu:
Boa tarde!!

Porque xlsm (Macro) e esse código só roda em arquivos salvos como macro.

Creio eu salvo se o arquivo tem origem Modelo do Excel 97-2003

Att
Este arquivo originalmente é salvo em xlsm com macro, preciso que ele rode em modo excel 97-2003 (xls).
Atualmente ele apresenta erro ao rodar em xls.
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: Erro de compatibilidade   Sex Ago 22, 2014 2:04 pm

Bom dia!!

Qual sua versão?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Erro de compatibilidade   Hoje à(s) 5:15 am

Voltar ao Topo Ir em baixo
 
Erro de compatibilidade
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Erro ao mandar mensagens/ nao aparece icone do chip SD
» ERRO BAIXAR EMAIL
» [creio que esteja resolvido '-'] Erro "Unknown Variable" com fontes no game maker
» Ignorar erro automaticamente
» Erro com movimentação de char.

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: