Export data to csv file and on every worksheet in vb.net using StreamWriter

See more:

VB

CSV

export

I have a list of queries then every queries I want to export to different worksheets. I use StreamWriter for fast transfer to CSV file. (see sample code below)

Dim _listOfQrys As New List(Of String)

  _listOfQrys.Add("SELECT * FROM Table1")
  _listOfQrys.Add("SELECT * FROM Table2")
  _listOfQrys.Add("SELECT * FROM Table3")


  For Each _query As String In _listOfQrys

      Dim _dataAdap As New SqlDataAdapter(_query, Constr)
      Dim _dataTbl As New DataTable

      _dataTbl.Clear()
      _dataAdap.Fill(_dataTbl)

      If _dataTbl.Rows.Count > 0 Then

          Dim headers = (From header As DataGridViewColumn In _dataTbl.Columns.Cast(Of DataGridViewColumn)() _
             Select header.HeaderText).ToArray

          Dim rows = From row As DataGridViewRow In _dataTbl.Rows.Cast(Of DataGridViewRow)() _
                     Where Not row.IsNewRow _
                     Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function(c) If(c.Value IsNot Nothing, c.Value.ToString, ""))

          Using sw As New IO.StreamWriter("sample.csv")
              sw.WriteLine(String.Join(",", headers))
              For Each r In rows
                  sw.WriteLine(String.Join(",", r))
              Next
          End Using

      End If

  Next

My question is how to export those _ListofQrys to different worksheets?

Any alternatives or other solutions is much appreciated. thanks!