Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

Masowa konwersja xls na csv

xls na csv

  • Please log in to reply
No replies to this topic

#1 gumis_walcz

gumis_walcz

    Uczestnik

  • Forumowicze
  • PipPipPipPip
  • 105 Postów:

Napisany 06 lipiec 2018 - 11:23

Szukam rozwiązania na masową konwersję xls lub xlsx na csv lub txt.

Chciałem przerobić to rozwiązanie 

set fso = createobject("scripting.filesystemobject") 
Set ex = CreateObject("Excel.Application") 
ex.Visible = True 

For Each f In fso.getfolder(fso.GetAbsolutePathName(".")).files 
    If fso.GetExtensionName(f.Name) = "xls" Then 
       newName = f.ParentFolder & "\" & fso.GetBaseName(f.Name) & ".xlsx" 
       if not fso.FileExists(newName) then 
          Set wb = ex.Workbooks.Open(f.Path) 
          wb.SaveAs newName, 51 
          wb.Close False 
          fso.DeleteFile(f.path) 
       End IF 
    End If 
Next 

ex.Quit 

ma ktoś jakiś pomysł ?






0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników