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
Post a Comment