Professionalexcel.com Website Review

today i needed to export a table in excel into an xml format, and here's the code i whipped up to do it. all you have to do is select the table range, then run the exportrangetoxml procedure. you'll be prompted for a filename and location to save the xml file. you can customise the xml element names used in the xml structure for the table and rows. the table headers '            format using table headers. ' notes:     requires entry of file name. uses table headers '            as element names for each row. ' dim strrowelementname as string dim strtableelementname as string     'set custom names     strtableelementname = table     if strfilepath = vbnullstring then exit sub       'get table data     vartable = selection.value     strxml =      strxml = strxml & < & strtableelementname & >     for introw = 2 to ubound(vartable, 1)         strxml = strxml & < & strrowelementname & >     'get next file number     intfilenum = freefile     'open the file, write output, then close file     open strfilepath for output as #intfilenum     print #intfilenum, strxml     close #intfilenum headers. ' notes: requires entry of file name. uses table headers ' as element names for each row. ' ' developer: date: description: ' chris exportrangetoxml() dim strxml as string dim vartable as variant dim introw as integer dim intcol as integer dim intfilenum as integer dim strfilepath as string dim strrowelementname as string dim strtableelementname as string dim varcolumnheaders as variant 'set custom names strtableelementname = table strrowelementname = row 'set file path strfilepath = application.getsaveasfilename(, selection.rows(1).value 'build xml strxml = strxml = strxml & < & strtableelementname &