我在一个主窗体中打开一个查询窗体，查询后导出，关了它，再打开就出错，然后我不用SaveFileDialog这个通用对话框，直接指定一个路径保存，再打开就不会出错，为什么？请各位大虾帮帮忙！～～
导出代码如下：
SaveFileDialog1.Filter = "Excel文件(*.xls) ¦*.xls ¦All Files(*.*) ¦*.*"
        If SaveFileDialog1.ShowDialog = DialogResult.OK And SaveFileDialog1.FileName  <> "" Then
            Dim myexcel As Object = CreateObject("Excel.Application")
            myexcel.Workbooks.Add()
            Dim k As Integer
            For k = 0 To DataView1.Table.Columns.Count - 1
                myexcel.Cells(1, k + 1).value = DataView1.Table.Columns(k).ColumnName
            Next
            Me.BindingContext(DataSet21, "jbxx").Position = 0 '指向数据库的第一条记录
            Dim i, j As Integer
            For i = 0 To DataGrid1.VisibleRowCount - 1 'i用来控制行
                For j = 0 To DataGrid1.VisibleColumnCount - 1  'j用来控制列
                    myexcel.Cells(i + 2, j + 1).value = DataGrid1.Item(i, j)
                Next
            Next
            '以上七行程序是个双重循环，将表中的内容逐行到到excel第二行开始的excel表格中
            myexcel.ActiveWorkbook.SaveAs(SaveFileDialog1.FileName)  '将导出的数据保存到excel
            MsgBox("成功导出!")
            '以下两行关闭工作薄
            myexcel.Workbooks.Close()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(myexcel.Workbooks)
            '以下四行，退出excel
            myexcel.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(myexcel)
            myexcel = Nothing
            GC.Collect()
        End If

具体些，出错提示是什么？