vb.net - datagridviewを保存して、コンテンツに基づいてExcelファイルまたはPDFファイルを分離します

Question

現在、datagridviewがmysqlテーブルからデータをインポートしています。情報がインポートされると（通常は1000行×15列）、ユーザーはデータをExcelにエクスポートすることができます。次に、ユーザーはマクロを実行して、列1の内容によってデータを別々のシートに分割し（値に基づいて同じ行をグループ化します）、別のマクロを実行して、個々のシートをフォルダー内の独自の電子メールファイルに保存する必要があります。 。列1の内容には、保存値を含めることができます（たとえば、

ユーザーがボタンをクリックすると、vb.netが次の手順でこの機能を自動的に実行する可能性はありますか？

1. dgvを列1の内容で並べ替えます。
2. 列1のコンテンツに基づいて、指定されたフォルダー内の別々のファイルにデータの保存を開始します（すべてのジムと請求書は特定のフォルダーにあります）
3. ファイル名は、列1のコンテンツの名前になります。
4. 完了すると、アイテムが保存されていることを示すポップアップが表示されます。

エクスポートに優れているためにdgvに使用している現在のコード。

  'export to excel
    'verfying the datagridview having data or not
    If ((DataGridView1.Columns.Count = 0) Or (DataGridView1.Rows.Count = 0)) Then
        Exit Sub
    End If

    'Creating dataset to export
    Dim dset As New DataSet
    'add table to dataset
    dset.Tables.Add()
    'add column to that table
    For i As Integer = 0 To DataGridView1.ColumnCount - 1
        dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
    Next
    'add rows to the table
    Dim dr1 As DataRow
    For i As Integer = 0 To DataGridView1.RowCount - 1
        dr1 = dset.Tables(0).NewRow
        For j As Integer = 0 To DataGridView1.Columns.Count - 1
            dr1(j) = DataGridView1.Rows(i).Cells(j).Value
        Next
        dset.Tables(0).Rows.Add(dr1)
    Next

    Dim excel As New Microsoft.Office.Interop.Excel.Application
    Dim wBook As Microsoft.Office.Interop.Excel.Workbook
    Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet

    wBook = excel.Workbooks.Add()
    wSheet = wBook.ActiveSheet()

    Dim dt As System.Data.DataTable = dset.Tables(0)
    Dim dc As System.Data.DataColumn
    Dim dr As System.Data.DataRow
    Dim colIndex As Integer = 0
    Dim rowIndex As Integer = 0

    For Each dc In dt.Columns
        colIndex = colIndex + 1
        excel.Cells(1, colIndex) = dc.ColumnName
    Next

    For Each dr In dt.Rows
        rowIndex = rowIndex + 1
        colIndex = 0
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)

        Next
    Next

    wSheet.Columns.AutoFit()
    Dim strFileName As String = "C:\exports\jim.xls"
    Dim blnFileOpen As Boolean = False
    Try
        Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
        fileTemp.Close()
    Catch ex As Exception
        blnFileOpen = False
    End Try

    If System.IO.File.Exists(strFileName) Then
        System.IO.File.Delete(strFileName)
    End If

    wBook.SaveAs(strFileName)
    excel.Workbooks.Open(strFileName)
    excel.Visible = True