ListRow = 1: Rem the row in column B that is getting writtenĭo Until Cells(dataRow, 1).Value = "" And Cells(dataRow + 1, 1).Value = ""ĭata = data & "," & Cells(dataRow, 1). So modified the routine and came up with the following, also I changed the variable names to meaningful names: Sub generatecsv()ĭataRow = 1: Rem the row that it is being read from column A otherwise known as 1 in vb script In the Save as type box, choose to save your Excel file as CSV (Comma delimited). Alternatively, you can press F12 to open the same Save As dialog. Reason, I had a client send me multiple keywords in list format for their website based on subject matter, needed a way to get these keywords into the webpages easily. In your Excel workbook, switch to the File tab, and then click Save As. example list title 1Īnd combines them of course into multiple rows, 1 per list. Merging columns with the same time, and text to rows in excel cell that file in a website link.
I improved the generatecsv() sub to handle an excel sheet that contains multiple lists with blank lines separating both the titles of each list and the lists from their titles.
0 kommentar(er)
