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 | 
 

 excel 5.0/95

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



Mensagens : 6
Data de inscrição : 12/08/2012

MensagemAssunto: excel 5.0/95   Dom Ago 12, 2012 2:43 pm

Bom dia
Estou com um problema ao tentar abrir ficheiros de excel no formato 5.0/95, tenho cerca de 150 ficheiros em uma pasta que pretendo converter deste formato para o excel 2010, ja tentei fazer uma macro que abrisse os ficheiros e que os guardasse novamente no novo formato, mas não funciona, não consigo que ela abra os ficheiros.
Se algeume tiver um codigo que faça isto garadecia a vossa ajuda,ou se alguem poder ajudar a elaborar este codigo ficaria grata.
desde ja agradeço a vossa ajuda.
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: excel 5.0/95   Qua Ago 15, 2012 3:51 am

Boa noite!!
Fonte:http://www.ozgrid.com/VBA/loop-through.htm

Exemplo:
Código:
Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            'Change path to suit
            .LookIn = "C:\MyDocuments\TestResults"
            .FileType = msoFileTypeExcelWorkbooks
            'Optional filter with wildcard
            '.Filename = "Book*.xls"
                If .Execute > 0 Then 'Workbooks in folder
                    For lCount = 1 To .FoundFiles.Count 'Loop through all
                        'Open Workbook x and Set a Workbook variable to it
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
                       
                        'DO YOUR CODE HERE

                        wbResults.Close SaveChanges:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
JRM



Mensagens : 6
Data de inscrição : 12/08/2012

MensagemAssunto: Re: excel 5.0/95   Sab Ago 18, 2012 11:52 am

bom dia Alexandre
tentei com o codigo que colocou ai no seu post mas não funcionou, como este codigo é para excel 2003 fui ver no site se tinha para o 2007 e encontrei este :
Sub CopySameSheetFrmWbs()
Dim wbOpen As Workbook
Dim wbNew As Workbook
'Change Path
Const strPath As String = "C:\Excel\"
Dim strExtension As String

'Comment out the 3 lines below to debug
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next

ChDir strPath
'Change extension
strExtension = Dir("*.xls")

Set wbNew = Workbooks.Add
'Change Path, Name and File Format
wbNew.SaveAs Filename:="C:\Excel\TemplateCollation", FileFormat:=xlWorkbookNormal

Do While strExtension <> ""
Set wbOpen = Workbooks.Open(strPath & strExtension)

With wbOpen
.Sheets("Template").Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
wbNew.Sheets(wbNew.Sheets.Count).Name = wbNew.Sheets(wbNew.Sheets.Count).Cells(1, 1)
.Close SaveChanges:=False
End With

strExtension = Dir
Loop

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
On Error GoTo 0
End Sub

Mas este tambem não da o resultado pretendido, não percebo muito de VBA, mas este codigo parece-me muito diferente do outro, pode ajudar para eu perceber melhor o que faz cada um deles?

Ese poder ajudar para encontrar uma solução para o meu problema melhor ainda. 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: excel 5.0/95   Sab Ago 18, 2012 1:00 pm

Bom dia!!

Tente.

Código:
Sub OpenfileSaveas()
Dim wbOpen As Workbook
Dim wbNew As Workbook
strPath = "D:\DATA\test\"
newPath = "D:\DATA\"
Dim filename As String
filename = Dir(strPath & "*.xls")
Do While filename <> ""
    Set wbOpen = Workbooks.Open(strPath & filename)
    ActiveWorkbook.SaveAs filename:= _
            newPath & filename & "x", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close

    filename = Dir
Loop
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
JRM



Mensagens : 6
Data de inscrição : 12/08/2012

MensagemAssunto: Re: excel 5.0/95   Dom Ago 19, 2012 1:44 am

boa noite Alexandre
Testei com este codigo que voce colocou adaptando o caminho para a pasta que contem os ficheiros, mas tambem não resultou, talves eu não tenha explicado bem o problema, tenho na mesma pasta cerca de 150 ficheiros no formato excel 5.0/95, quando abro individualmente cada um destes ficheiros com o excel 2010 no inicio aparece sempre este erro: o excel detectou conteudo ilegivel....pretende recuperar o conteudo?" clico em sim, depois aparece um novo erro, diz errono ficheiro alguns dados podem ser perdidos, clico Ok e ai abre o ficheiro, paraece-me que o problema para não conseguirmos alterar o formato deve ter a ver com estes erros iniciais.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
JRM



Mensagens : 6
Data de inscrição : 12/08/2012

MensagemAssunto: Re: excel 5.0/95   Dom Ago 19, 2012 1:45 am

talves se conseguirmos arranjar um codigo que abra os ficheiros depois ja conseguimos resolver o problema.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
JRM



Mensagens : 6
Data de inscrição : 12/08/2012

MensagemAssunto: Re: excel 5.0/95   Dom Ago 19, 2012 11:06 pm

Boa noite Alexandre

Usei este codigo para tentar apenas abrir o ficheiro,
Sub Exemplo()
Dim wb As Workbook
Dim ws As Worksheet

Set wb = Workbooks.Open("C:\Documents and Settings\Jorge\Ambiente de trabalho\Visabeira\Tabelas SE Visabeira\teste\Tabela_SE_CNTF113088B9607.xls")
Set ws = wb.Sheets("sheet1")

End Sub


Mas não funciona, no entanto o codigo esta correcto pois funciona para qualuer outro ficheiro no formato 2003/2007/2010, para o formato 5.0/95 da erro na linha
Set wb = Workbooks.Open("C:\Documents and Settings\Jorge\Ambiente de trabalho\Visabeira\Tabelas SE Visabeira\teste\Tabela_SE_CNTF113088B9607.xls")
Pode ajudar para ver se encontramos uma forma de abrir este ficheiro via codigo, depois tentariamos adaptar o codigo para gravar numa outra pasta num formato diferente.

Pensei tambem se sera possivel copiar o conteudo deste ficheiro (Tabela_SE_CNTF113088B9607.xls)para outro mas sem abrir este ficheiro, se tiver algum codigo que faça isso pode colocar ai paar eu testarSFF.
Obrigado mais uma vez e desculpeestar a dar trabalho, mas seria uma grande ajudar consegir fazer isto.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: excel 5.0/95   Hoje à(s) 10:15 pm

Voltar ao Topo Ir em baixo
 
excel 5.0/95
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Aros EXCEL pretos furação Honda VENDIDOS
» Office - Word / excel
» Importar tabela do Excel diretamente para o post
» Jantes EXCEL Takasago
» Aros excel Prata, Preto e Kit Raios

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: