sql - How to convert multiple rows (in excel) in single sheet into multiple CSV file -
i want convert multiple rows(according group) multiple csv. single sheet in excel contain 3000 rows , 5 columns. want each group excel sheet converts csv file.
for example
1 ali khan ali.khan@hotmail.com a1
2 juliet ibm juliet.ibm@hotmail.com a1
3 laura ann lura.ann@hotmail.com b1
4 abcd ewqa abcd.ewqa@hotmail.com b1
5 annia franics annia.franics@hotmail.com c1
now want extract these rows separate csv based on group (a1,b1,c1...). each group creates new csv.
just need solution this. doesn't matter if suggest free tool or code.
using code copy , paste in sheet , create csv files.
dim rowst integer dim rowls integer dim strii string dim stril string rowst = 4 rowls = 4 strii = range("f" & rowls).value stril = range("f" & rowls).value while range("f" & rowls).value <> "" stril = range("f" & rowls).value if stril <> strii range("b" & rowst & ":f" & rowls - 1).copy sheets("sheet2").select range("a1").select activesheet.paste selection.clear sheets("sheet1").select activeworkbook.saveas filename:="e:\0\a\" & strii & ".csv", fileformat:=xlcsvmsdos, createbackup:=false strii = stril rowst = rowls end if rowls = rowls + 1 wend range("b" & rowst & ":f" & rowls - 1).copy sheets("sheet2").select range("a1").select activesheet.paste selection.clear sheets("sheet1").select activeworkbook.saveas filename:="e:\0\a\" & strii & ".csv", fileformat:=xlcsvmsdos, createbackup:=false range("a1").select
Comments
Post a Comment