先保存，在打开导入：
'生成Excel表
Dim dt As Table =tb
'保存并打开excel文件
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
Dim Book As New XLS.Book
Book.Save(dlg.FileName)
Book = New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To nms1.count -1
Sheet(0, i).Value = nms1(i)
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For i As Integer = 0 To nms.count -1
Sheet(r + 1, i).Value = dt.rows(r)(nms(i))
Next
Next
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File =dlg.FileName
Proc.Start()
Else
' MessageBox.Show("你没有输入导出文件名,如需导出请再次进入","提示")
Forms("导出学生信息Excel").close()
Return
End If
加好友 
发短信
Post By：2020/9/27 22:39:00 [显示全部帖子]
