Export .NET Dataset to Excel, XML, HTML, Text, CSV - Pure Code
If you want to export dataset, I think you will like this code !!! Happy to all CODERS !!!
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
<style type="text/css">
<!--
div.MsoNormal {mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
div.Section1 {page:Section1;}
li.MsoNormal {mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
p.MsoNormal {mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
-->
</style>
<div class="Section1">
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>Module</span><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'> ExportModule
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Private</span> <span
style='color:blue'>Function</span> OS(<span style='color:blue'>ByVal</span> Word <span style='color:blue'>As</span> <span style='color:blue'>String</span>) <span style='color:blue'>As</span> <span style='color:blue'>String
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Dim</span> i <span
style='color:blue'>As</span> <span style='color:blue'>Integer</span> =
Word.IndexOf(<span style='color:maroon'>"."</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>While</span> i
> -1
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Word = Word.Remove(i, 1)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>i = Word.IndexOf(<span
style='color:maroon'>"."</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>While
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Return</span> Word
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Function
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Public</span> <span
style='color:blue'>Sub</span> ExportExcel(<span style='color:blue'>ByVal</span> Table <span style='color:blue'>As</span> DataTable, <span style='color:blue'>ByVal</span> Location <span style='color:blue'>As</span> <span style='color:blue'>String</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>If</span> <span
style='color:blue'>My</span>.Computer.FileSystem.FileExists(Location) <span
style='color:blue'>Then</span> <span style='color:blue'>My</span>.Computer.FileSystem.DeleteFile(Location)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Dim</span> CreateString <span style='color:blue'>As</span> <span style='color:blue'>String</span> = <span style='color:maroon'>""
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Dim</span> Columns <span style='color:blue'>As</span> <span style='color:blue'>String</span> = <span style='color:maroon'>""
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Dim</span> Mark <span style='color:blue'>As</span> <span style='color:blue'>String</span> = <span style='color:maroon'>""
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Connection <span style='color:blue'>As</span> <span style='color:blue'>New</span> OleDb.OleDbConnection(<span style='color:maroon'>"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="</span> & Location & <span style='color:maroon'>";Extended
Properties=""Excel 8.0;HDR=YES"""</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Connection.Open()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString = <span
style='color:maroon'>"CREATE TABLE ["</span> & Table.TableName
& <span style='color:maroon'>"] ("
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Columns = <span style='color:maroon'>"("
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Mark = <span style='color:maroon'>"("
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &=
OS(Column.ColumnName)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Select</span> <span style='color:blue'>Case</span> Column.DataType.Name
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Case</span> <span style='color:maroon'>"SByte"</span>, <span style='color:maroon'>"Byte"</span>, <span style='color:maroon'>"Int16"</span>, <span style='color:maroon'>"Int32"</span>, <span style='color:maroon'>"Int64"</span>, <span style='color:maroon'>"Decimal"</span>, <span style='color:maroon'>"Double"</span>, <span style='color:maroon'>"Single"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>" Number, "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Case</span> <span style='color:maroon'>"Boolean"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>" Bit, "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Case</span> <span style='color:maroon'>"Char"</span>, <span style='color:maroon'>"String"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>" Memo, "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Case</span> <span style='color:maroon'>"DateTime"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>" DateTime, "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Case</span> <span style='color:blue'>Else
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>" Text, "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span style='color:blue'>Select
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Columns &=
OS(Column.ColumnName) & <span style='color:maroon'>", "
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Mark &= <span
style='color:maroon'>"?,"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString =
CreateString.Remove(CreateString.Length - 2, 2)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>CreateString &= <span
style='color:maroon'>")"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span>Columns = Columns.Remove(Columns.Length - 2,
2)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Columns &= <span
style='color:maroon'>")"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Mark = Mark.Remove(Mark.Length - 1,
1)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Mark &= <span style='color:
maroon'>")"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Command <span style='color:blue'>As</span> <span style='color:blue'>New</span> OleDb.OleDbCommand(CreateString.ToString, Connection)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Command.ExecuteNonQuery()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Adapter <span style='color:blue'>As</span> <span style='color:blue'>New</span> OleDb.OleDbDataAdapter(<span style='color:maroon'>"SELECT * FROM ["</span> & Table.TableName & <span style='color:maroon'>"$]"</span>,
Connection)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> ExcelDataset <span style='color:blue'>As</span> <span style='color:blue'>New</span> DataSet
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.Fill(ExcelDataset, Table.TableName)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand = <span
style='color:blue'>New</span> OleDb.OleDbCommand(<span style='color:maroon'>"INSERT
INTO ["</span> & Table.TableName & <span style='color:maroon'>"]
"</span> & Columns.ToString & <span style='color:maroon'>"
VALUES "</span> & Mark.ToString, Connection)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Select</span> <span style='color:blue'>Case</span> Column.DataType.Name
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Case</span> <span style='color:maroon'>"SByte"</span>, <span style='color:maroon'>"Byte"</span>, <span style='color:maroon'>"Int16"</span>, <span style='color:maroon'>"Int32"</span>, <span style='color:maroon'>"Int64"</span>, <span style='color:maroon'>"Decimal"</span>, <span style='color:maroon'>"Double"</span>, <span style='color:maroon'>"Single"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand.Parameters.Add(<span style='color:maroon'>"@"</span> & OS(Column.ColumnName), OleDb.OleDbType.Numeric, 100,
OS(Column.ColumnName))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Case</span> <span style='color:maroon'>"Boolean"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand.Parameters.Add(<span style='color:maroon'>"@"</span> & OS(Column.ColumnName), OleDb.OleDbType.Boolean, 100, OS(Column.ColumnName))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Case</span> <span style='color:maroon'>"Char"</span>, <span style='color:maroon'>"String"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand.Parameters.Add(<span style='color:maroon'>"@"</span> & OS(Column.ColumnName), OleDb.OleDbType.Char, 65536,
OS(Column.ColumnName))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Case</span> <span style='color:maroon'>"DateTime"
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand.Parameters.Add(<span style='color:maroon'>"@"</span> & OS(Column.ColumnName), OleDb.OleDbType.DBTimeStamp, 100,
OS(Column.ColumnName))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Case</span> <span style='color:blue'>Else
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.InsertCommand.Parameters.Add(<span style='color:maroon'>"@"</span> & OS(Column.ColumnName), OleDb.OleDbType.Char, 65536,
OS(Column.ColumnName))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>End</span> <span style='color:blue'>Select
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Row <span style='color:blue'>As</span> DataRow <span style='color:blue'>In</span> Table.Rows
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>If</span> Row.RowState <> DataRowState.Deleted <span
style='color:blue'>Then
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Dim</span> ExcelRow <span style='color:blue'>As</span> DataRow = ExcelDataset.Tables(Table.TableName).NewRow
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>For</span> i <span style='color:blue'>As</span> <span
style='color:blue'>Integer</span> = 0 <span style='color:blue'>To</span> Table.Columns.Count - 1
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>ExcelRow.Item(i) = Row.Item(i)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>ExcelDataset.Tables(Table.TableName).Rows.Add(ExcelRow)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>End</span> <span style='color:blue'>If
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Adapter.Update(ExcelDataset,
Table.TableName)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Sub
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Public</span> <span
style='color:blue'>Sub</span> ExportXML(<span style='color:blue'>ByVal</span> Table <span style='color:blue'>As</span> DataTable, <span style='color:blue'>ByVal</span> Location <span style='color:blue'>As</span> <span style='color:blue'>String</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Writer <span style='color:blue'>As</span> <span style='color:blue'>New</span> System.Xml.XmlTextWriter(Location, System.Text.Encoding.UTF8)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteStartDocument()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Table.WriteXml(Writer,
XmlWriteMode.WriteSchema)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteEndDocument()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Close()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Sub
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Public</span> <span
style='color:blue'>Sub</span> ExportHTML(<span style='color:blue'>ByVal</span> Table <span style='color:blue'>As</span> DataTable, <span style='color:blue'>ByVal</span> Location <span style='color:blue'>As</span> <span style='color:blue'>String</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Writer <span style='color:blue'>As</span> <span style='color:blue'>New</span> System.IO.StreamWriter(Location)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"<HTML>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" <HEAD>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"<span style='mso-spacerun:yes'> </span><meta
http-equiv='Content-Type' content='text/html; charset=utf-8'>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" </HEAD>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" <BODY>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"<TABLE border='1'>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" <TR>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"<span style='mso-spacerun:yes'> </span><TD>"</span> & Column.ColumnName & <span
style='color:maroon'>"</td>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" </TR>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Row <span style='color:blue'>As</span> DataRow <span style='color:blue'>In</span> Table.Rows
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" <TR>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"<span style='mso-spacerun:yes'> </span><TD>"</span> & Row.Item(Column).ToString & <span
style='color:maroon'>"</TD>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" </TR>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"</TABLE>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>" </BODY>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"</HTML>"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Sub
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Public</span> <span
style='color:blue'>Sub</span> ExportText(<span style='color:blue'>ByVal</span> Table <span style='color:blue'>As</span> DataTable, <span style='color:blue'>ByVal</span> Location <span style='color:blue'>As</span> <span style='color:blue'>String</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Writer <span style='color:blue'>As</span> <span style='color:blue'>New</span> System.IO.StreamWriter(Location)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>"Executed: "</span> + DateTime.Now.ToString)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> i <span style='color:blue'>As</span> <span style='color:blue'>Integer</span> =
0 <span style='color:blue'>To</span> 99
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(<span
style='color:maroon'>"*"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>""</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>""</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(Column.ColumnName)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> i <span style='color:blue'>As</span> <span style='color:blue'>Integer</span> =
0 <span style='color:blue'>To</span> 99
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(<span
style='color:maroon'>"-"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(<span
style='color:maroon'>""</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Row <span style='color:blue'>As</span> DataRow <span style='color:blue'>In</span> Table.Rows
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine(Row(Column).ToString)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> i <span style='color:blue'>As</span> <span style='color:blue'>Integer</span> =
0 <span style='color:blue'>To</span> 99
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(<span
style='color:maroon'>"*"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Close()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Sub
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";color:blue;mso-no-proof:yes'>
<o:p> </o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Public</span> <span
style='color:blue'>Sub</span> ExportCSV(<span style='color:blue'>ByVal</span> Table <span style='color:blue'>As</span> DataTable, <span style='color:blue'>ByVal</span> Location <span style='color:blue'>As</span> <span style='color:blue'>String</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Using</span> Writer <span style='color:blue'>As</span> <span style='color:blue'>New</span> System.IO.StreamWriter(Location)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span style='color:blue'>Each</span> Row <span style='color:blue'>As</span> DataRow <span style='color:blue'>In</span> Table.Rows
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span><span style='color:blue'>For</span> <span
style='color:blue'>Each</span> Column <span style='color:blue'>As</span> DataColumn <span style='color:blue'>In</span> Table.Columns
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>If</span> Row.Item(Column).GetType <span style='color:blue'>Is</span> <span
style='color:blue'>GetType</span>(DateTime) <span style='color:blue'>Then
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(<span
style='color:blue'>CType</span>(Row.Item(Column), DateTime).ToString(<span
style='color:blue'>My</span>.Computer.Info.InstalledUICulture.DateTimeFormat.SortableDateTimePattern))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> &nb
sp; </span><span style='color:blue'>Else
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>D, im</span> Value <span style='color:blue'>As</span> <span
style='color:blue'>String</span> = Row.Item(Column).ToString
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>If</span> Value.Contains(Chr(13)) <span style='color:blue'>Then
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(Chr(34) & Row.Item(Column).ToString & Chr(34))
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>Else
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Write(Row.Item(Column).ToString)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:
blue'>End</span> <span style='color:blue'>If
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span style='color:blue'>If
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span><span style='color:blue'>If</span> Column.Ordinal + 1 < Table.Columns.Count <span style='color:blue'>Then</span> Writer.Write(<span style='color:maroon'>";"</span>)
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.WriteLine()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>Next
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span>Writer.Close()
<o:p></o:p>
</span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Using
<o:p></o:p>
</span></span></p>
<p class="MsoNormal" style='mso-layout-grid-align:none;text-autospace:none'><span
style='font-size:10.0pt;font-family:"Courier New";mso-no-proof:yes'><span
style='mso-spacerun:yes'> </span><span style='color:blue'>End</span> <span
style='color:blue'>Sub
<o:p></o:p>
</span></span></p>
<p class="MsoNormal"><span style='font-size:10.0pt;font-family:"Courier New";
color:blue;mso-no-proof:yes'>End</span><span style='font-size:10.0pt;
font-family:"Courier New";mso-no-proof:yes'> <span style='color:blue'>Module</span></span></p>
</div>
Original Comments (3)
Recovered from Wayback Machine