excel - XLS with 512 sheets to 512 CSVs -


i have xls file containing 512 sheets, want have each sheet in separate csv file, , i'm not going hand.

any idea?

sub separatecsv()      dim sh worksheet     dim wb workbook      each sh in thisworkbook.worksheets         sh.copy         set wb = activeworkbook         wb.saveas sh.name & ".csv", xlcsv         wb.close false     next sh  end sub 

Comments

Popular posts from this blog

java - SNMP4J General Variable Binding Error -

windows - Python Service Installation - "Could not find PythonClass entry" -

Determine if a XmlNode is empty or null in C#? -