vb.net程序生成的excel表是excel2.1工作表,保存时提示是否用最新格式覆盖?

Question

我用vb.net程序生成的excel表是excel2.1工作表,保存时提示是否用最新格式 覆盖?
由于会生成许多excel表,逐一保存回很繁.
我的代码如下Dim objfiletypetable As New DataTable 
        Dim filetypeset As New DataSet 
        Dim strsql As String 
        Dim rowcount As Integer 
        Dim aaaa As String 
        Dim Name, ID, Knum, Kname, Kdate, ZL, Kaddress, Edu, Zaddress, Company, Post, Mobile, XHK, SYSC, NF, Tishi, JJKnum As String 
        Dim aaa As New cExcelFile 
        Dim j, jj As Integer         Dim strfilename As String 
        aaaa = Now.ToString("yyyyMMdd") 
        With SaveFileDialog1 
            .DefaultExt = "xls" 
            .FileName = "贷记" 
            .Filter = "Text files(*.xls)|*.xls|All files(*.*)|*.*" 
            .FilterIndex = 1 
            .InitialDirectory = "D:\" & aaaa 
            .OverwritePrompt = True 
            .Title = "生成EXCEL文件" 
        End With 
        '**********************查询条件 
        Dim objdatatable As New DataTable 
        strsql = "select Name,ID,Knum,Kname,Kdate,ZL,Kaddress,Edu,Zaddress,Company,Post,Mobile,XHK,SYSC,NF,Tishi,JJKnum from QD where JJKnum =''or JJKnum is null order by Kaddress,Knum " 
        filetypeset = GetDataFromDB(strsql) 
        rowcount = filetypeset.Tables(0).Rows.Count 
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then 
            strfilename = SaveFileDialog1.FileName 
            '生成EXCEL 
            With aaa 
                .CreateFile(strfilename) 
                Dim i As Integer 
                For i = 0 To rowcount - 1 
                   
                    j = 1 
                    jj = i + 2 
                    .PrintGridLines = False 
                    .SetMargin(cExcelFile.MarginTypes.xlsTopMargin, 1.5)  'set to 1.5 inches 
                    .SetMargin(cExcelFile.MarginTypes.xlsLeftMargin, 1.5) 
                    .SetMargin(cExcelFile.MarginTypes.xlsRightMargin, 1.5) 
                    .SetMargin(cExcelFile.MarginTypes.xlsBottomMargin, 1.5) 
                    .SetFont("宋体", "10", cExcelFile.FontFormatting.xlsNoFormat) 
                    .SetColumnWidth(1, 12, 18) 
                    .SetHeader("This is the header") 
                    .SetFooter("This ia the footer") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 1, "姓名") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 2, "身份证号") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 3, "贷记账户卡号") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 4, "印卡姓名") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 5, "卡效期") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 6, "卡种类") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 7, "领卡地点") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 8, "授信额度") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 9, "帐单地址") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 10, "单位") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 11, "邮编") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 12, "手机号") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 13, "新/换卡") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 14, "是否邮寄使用手册") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 15, "年费类型") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 16, "温馨提示") 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, j, 17, "借记帐户卡号")                     .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 1, Name) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 2, ID) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 3, Knum) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 4, Kname) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 5, Kdate) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 6, ZL) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 7, Kaddress) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 8, Edu) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 9, Zaddress) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 10, Company) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 11, Post) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 12, Mobile) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 13, XHK) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 14, SYSC) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 15, NF) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 16, Tishi) 
                    .WriteValue(cExcelFile.ValueTypes.xlsText, cExcelFile.CellFont.xlsFont0, cExcelFile.CellAlignment.xlsLeftAlign, cExcelFile.CellHiddenLocked.xlsNormal, jj, 17, JJKnum) 
                Next i 
                .CloseFile() 
            End With 
            MsgBox("导出成功！") 
        End If