因为项目需要所以要对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算