excel导出自动保存。求助.
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
MyExcel.Application.Workbooks.Add()
MyExcel.Visible = True
'获取标题
Dim Col As Integer
For Col = 1 To DataGridView1.Columns.Count
MyExcel.Cells(1, Col) = DataGridView1.Columns(Col - 1).HeaderText
Next
'往表格添加数据
Dim RowNum As Integer
For RowNum = 0 To DataGridView1.RowCount - 1
Dim ColNum As Integer
For ColNum = 0 To DataGridView1.ColumnCount - 1
If Me.DataGridView1(ColNum, RowNum).Value Is System.DBNull.Value Then
MyExcel.Cells(RowNum + 2, ColNum + 1) = ""
Else
MyExcel.Cells(RowNum + 2, ColNum + 1) = DataGridView1(ColNum, RowNum).Value
End If
Next
Next
这是我写的excel导出。我要同时导出20个表。我想做的是,导出后直接存到指定位置。 Excel
[解决办法]
MyExcel.Visible = false
[解决办法]
保存后记得MyExcel.Close()要不然你系统进程中的EXCEL会越来越多