| 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... |
| | excel 5.0/95 | |
| | Autor | Mensagem |
---|
JRM
Mensagens : 7 Data de inscrição : 12/08/2012
| Assunto: 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. | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
| | | JRM
Mensagens : 7 Data de inscrição : 12/08/2012
| Assunto: Re: excel 5.0/95 Sáb 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. | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: excel 5.0/95 Sáb 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 | |
| | | JRM
Mensagens : 7 Data de inscrição : 12/08/2012
| Assunto: 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. | |
| | | JRM
Mensagens : 7 Data de inscrição : 12/08/2012
| Assunto: 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. | |
| | | JRM
Mensagens : 7 Data de inscrição : 12/08/2012
| Assunto: 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. | |
| | | Conteúdo patrocinado
| Assunto: Re: excel 5.0/95 | |
| |
| | | | excel 5.0/95 | |
|
Tópicos semelhantes | |
|
| Permissões neste sub-fórum | Não podes responder a tópicos
| |
| |
| |
|