Excel表格的加密与解密

因为项目需要所以要对Excel表格的数据进行加密，这就涉及到了四个小知识点，导出，导入，加密和解密

普通导出

<span style="font-size:18px;"><strong>        Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() '定义并实例化excel工作表

        MyExcel.Application.Workbooks.Add(True) '打开excel工作簿,显示excel界面



        MyExcel.Visible = True  'excel设置为可见的
        Dim Col As Integer '定义整形变量
        '设置单元格格式
        ' MyExcel.WindowState = Excel.XlWindowState.xlMaximized

        ' MyExcel.Cells(1, 3).value = "数据表" + "公司全局变量"                '表头内容，在第一行，第三列  

        'MyExcel.Range("A1", "G1").Merge()                         '合并单元格 
        ' MyExcel.Range("A1", "G1").HorizontalAlignment = 3        '指定单元格，水平居中
        '所有单元格，水平居中  
        ' MyExcel.ActiveWindow.Caption = "数据表" + "公司全局变量"   '修改完这里保存时仍然为sheet1
        MyExcel.ActiveWorkbook.SaveAs(Filename:="数据表" + "_companyName" & ".xls")  '此处是用来设置保存路径的
        ' MyExcel.Caption = "加油，加油"   '这里是修改显示的后缀

        Try
            For Col = 0 To DataData.ColumnCount - 1     'col的变化范围
                MyExcel.Cells(1, Col + 1) = Me.DataData.Columns(Col).HeaderText   '添加标题
            Next Col

        Catch ex As Exception
            MsgBox(ex.Message)  '弹出捕获的消息
            Exit Sub
        End Try

        Dim k As Integer    '定义整型行变量 i 
        Dim j As Integer    '定义整型列变量 j
        Try
            For k = 0 To DataData.RowCount - 1
                For j = 0 To DataData.ColumnCount - 1  '列变量取值范围

                    If Me.DataData(j, k).Value IsNot System.DBNull.Value Then
                        MyExcel.Cells(k + 3, j + 1) = DataData(j, k).Value.ToString() '将datagridview中的数据添加到excel表中

                    End If
                Next j
            Next k

        Catch ex As Exception
            If MsgBox(ex.Message) Then
                MsgBox("导出成功！请到本机的<我的文档>中调取该表")
            End If
        End Try
</strong></span>

注：如果没有设置保存路径他会默认到本地的“我的文档”上面

加密导出

需要一个加密函数，此处用的加密技术就是标准DES（Data Encryption Algorithm）加密技术

<span style="font-size:18px;"><strong>Public Function EncryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String '使用的DES对称加密
        Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算