' 创建excel application对象. Set excel_app = CreateObject("Excel.Application") ' 打开一个excel文件 excel_app.Workbooks.Open FileName:=txtExcelFile.Text ' 判读最新版本. If Val(excel_app.Application.Version) >= 8 Then Set excel_sheet = excel_app.ActiveSheet Else Set excel_sheet = excel_app End If
'************打开工作表*************** Set xls = New excel.Application xls.Visible = True Set xlbook = xls.Workbooks.Add .... '***************************写入内容************************* Dim i As Integer i = 3 'i控制行 Dim j As Integer 'j控制列 Dim countpage As Integer countpage = 0 '控制页 Do While Not rst_gcl.EOF xlsheet.Rows(i).RowHeight = 18 '控制行高 For j = 1 To 10 xlsheet.Cells(i, j) = rst_gcl.Fields(j) '将工程理库中的一条记录的第一个字段写入工作表中 Next '每18行为一页，如果数据超出一页时进行特殊处理 If i > 18 Then xls.ActiveWindow.SmallScroll Down:=1 '活动窗口内容向下滚动1行 End If If i Mod 18 = 0 Then If countpage = 0 Then xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '首页加边框 Else xlsheet.Range(xlsheet.Cells(23 + (countpage - 1) * 18, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '中间页加边框 End If i = i + 2 '加一条空行
在VB应用程序中调用Excel2000一、Excel对象模型 为了在VB应用程序中调用Excel，必须要了解Excel对象模型。Excel对象模型描述了Excel的理论结构，所提供的对象很多 二、调用Excel 在VB应用程序中调用Excel，实质是将Excel作为一个外部对象来引用，由Excel对象模型提供能从VB应用程序内部来程序化操纵的对象以及相关的属性、方法和事件。 1、在VB工程中添加对Excel类型库的引用 为了能从VB应用程序中访问Excel丰富的内部资源，使Excel应用程序运行得更快，需要在VB工程中添加对Excel类型库的引用。具体步骤如下： a）从VB5“工程”菜单中选择“引用”； b） 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"； c）单击左边小方框，使之出现“√”符号； d）按“确定”退出。 注：要想在VB应用程序中调用Excel，你的计算机系统中必须安装Excel。 2、引用Application对象 Application对象是Excel对象模型的顶层，表示整个Excel应用程序。在VB应用程序中调用Excel，就是使用Application对象的属性、方法和事件。为此，首先要声明对象变量：Dim VBExcel As Object 或直接声明为Excel对象：Dim VBExcel As Excel.Application 在声明对象变量之后，可用CreateObject函数或GetObject函数给变量赋值新的或已存在的Application对象引用。 a）用CreateObject函数生成新的对象引用：Set VBExcel=CreateObject ("Excel.Application") 字符串“Excel.Application”是提供Excel应用程序的编程ID，这个变量引用Excel应用程序本身。 b）用GetO场ect函数打开已存在的对象引用：Set AppExcel=GetObject("SAMP.XLS") 上面语句打开文件SAMP.XLS。 3、Application对象常用的属性、方法属性、方法 方法 Visible属性 取True或False，表明Excel应用程序是否可见。 Left,Top属性 Excel窗口的位置； Height, Width属性 Excel窗口的大小； WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。 Quit方法 退出Microsoft Excel； Calculate方法 重新计算所有打开的工作簿、工作表或单元格。 Evaluate方法 求值数学表达式并返回结果。 示例1：求值数学表达式：Dim VBExcel As Object Set VBExcel=CreateObject ("Excel.Application") X=VBExcel. Evaluate ("3+5*(cos (1/log (99. 9)))") 三、使用Excel应用程序 如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。 1、使用工作薄 Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。 常用的方法有：属性、方法 意义 Add方法 创建新的空白工作簿，并将其添加到集合中。 Open方法 打开工作簿。 Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。 Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。 SaveAs方法 首次保存工作簿或用另一名称保存工作簿。 Close方法 关闭工作簿。 PrintOut方法 打印工作簿，语法为：PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 可选参数： From：打印的起始页号。如省略将从起始位置开始打印。 To：打印的终止页号。如省略将打印至最后一页。 Copies：要打印的份数。如省略将只打印一份。 Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。 Printer：设置活动打印机的名称。 ToFile：如果为True则打印输出到文件。 Collate：如果为True则逐份打印每份副本。 下面语句将活动工作簿的2到5页打印3份：ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3 示例2：生成、保存、关闭工作簿Dim VBExcel As Excel.Application Set VBExcel== CreateObject("Excel.Application") With VBExcel .Workbooks.Add With ActiveWorkbook .Save As"C： \Temp \OUTPUT.XLS" .Close End With .Quit End With 2、使用工作表 Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。 常用的属性、方法有：属性、方法 意义 Worksheets属性 返回Sheets集合。 Name属性 工作表更名。 Add方法 创建新工作表并将其添加到工作簿中。 Select方法 选择工作表。 Copy方法 复制工作表。 Move方法 将指定工作表移到工作簿的另一位置。 Delete方法 删除指定工作表。 PrintOut方法 打印工作表。 示例3：将C盘工作簿中的工作表复制到A盘工作簿中：Dim VBExcel As Excel.Application Set VBExcel=CreateObject("Excel.Application") With VBExcel .Workbooks.Open "C：\Temp\OUTPUT.XLS" .Workbooks.Open"A：\OUTPUT1.XLS" .Workbooks("OUTPUT.XLS").Sheets ("Sales").Copy .Workbooks("OUTPUT1.XLS) .Workbooks("OUTPUT1.XLS").Save .Workbooks("OUTPUT.XLS").Close .Workbooks("OUTPUTI.XLS").Close .Quit End With 3、使用单元范围 Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。 常用的属性、方法有：属性、方法 意义 Range属性 Range (arg)其中arg为A1--样式符号，表示单个单元格或单元格区域。 Cells属性 Cells (row, col )(其中row为行号，col为列号)表示单个单元格。 ColumnWidth属性 指定区域中所有列的列宽。 Rowl3eight属性 指定区域中所有行的行宽。 Value属性 指定区域中所有单元格的值(缺省属性)。 Formula属性 指定单元格的公式，由A1--样式引用。 Select方法 选择范围。 Copy方法 将范围的内容复制到剪贴板。 C1earContents方法 清除范围的内容。 Delete方法 删除指定单元范围。 4、使用图表 Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。 常用方法有：方法 意义Add方法 新建图表工作表。返回Chart对象。 PrineOut方法 打印图表。 ChartWizard方法 修改给定图表的属性，其语法为：
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle) 其中： Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。 Gallery：图表类型。其值可为下列常量之一：xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat。 Format：内置自动套用格式的编号。如省略，将选择默认值。 P1otBy：指定系列中的数据是来自行(xlRows)还是列(xlColumns)。 CategoryLabels：表示包含分类标志的源区域内行数或列数的整数。 SeriesLabels：表示包含系列标志的源区域内行数或列数的整数。 HasLegend：若指定True，则图表将具有图例。 Title：图表标题文字。 CategoryTitle：分类轴标题文字。 ValueTitle：数值轴标题文字。 ExtraTitle：三维图表的系列轴标题，或二维图表的第二数值轴标题。 可组合使用Add方法和ChartWizard方法，以创建包含工作表中数据的图表工作表。下例基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。With Charts.Add .ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折线图表” .Printout End With 5、使用Excel工作表函数 在VB语句中可使用大部分的Excel工作表函数，可通过WorksheetFunction对象调用Excel工作表函数。下面的Sub过程用Min工作表函数求出指定区域中单元格的最小值，并通过消息框显示结果值。Sub UseFunction() Dim myRange As Range Set myRange=Worksheets ("Sheet1").Range("B2：F10") answer=Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub 如果使用以区域引用为参数的工作表函数，必须指定一个Range对象。如可用Match工作表函数对A1：A10区域的所有单元格进行搜索。Sub FindFirst() my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range("A1：A10")，0) MsgBox myVar End Sub 要在单元格中插人工作表函数，可将该函数指定为对应于Range对象的Formula属性值。在以下示例中，将当前工作簿Sheetl内A1：B3区域的Formula属性指定为RAND工作表函数(此函数产生二个随机数)。Sub InsertFormula() Worksheets ("Sheet1" ).Range("A1：B3").Formula="RAND()" End Sub 以上简要介绍了Excel对象模型中部分对象及其属性和方法，更详细的信息可参阅Excel 2000帮助中的“Microsoft Excel Visual Basic参考”一节的内容。实际上，Microsoft Office家族的Word,PowerPoint, Access和Project等应用程序都可以在VB应用程序中调用，其原理和步骤完全相同，只是其对象模型有所不同而已。
兄弟看看我自己写的代码吧,分数不重要,关键是通过交流有进步. Private Sub Command2_Click() bb = MsgBox("真的要删除这些记录?") If bb = 7 Then Exit Sub startDate = DTPicker1.value & " 00:00:00" endDate = DTPicker2.value & " 23:59:59" Dim connDD As New ADODB.Connection connDD.CursorLocation = adUseClient Dim rsDD As New ADODB.Recordset If tableName = "FinishedDeal" Then strSQLDelete = "select * from FinishedDeal where dealDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "# order by dealDate" End If If tableName = "inList" Then strSQLDelete = "select * from inList where inDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "# order by inDate" End If If rsDD.State <> 0 Then rsDD.Close connDD.Close End If Call PubConnSub(connDD, rsDD, strSQLDelete, 3, 1) If rsDD.EOF Then MsgBox "没有相关记录，可能已经删除过，也可能选择了错误日期" rsDD.Close Set rsDD = Nothing connDD.Close Set connDD = Nothing Exit Sub End If ' 如果App.Path 中不存在backupDelete目录就创建 Dim fso As New FileSystemObject If fso.FolderExists(App.Path & "\backupDelete") = False Then fso.CreateFolder (App.Path & "\backupDelete") End If Dim VBExcel As Object, xBook As Object, xSheet As Object, I%, J% Set VBExcel = CreateObject("excel.application") Set xBook = VBExcel.Workbooks.Add Set xSheet = xBook.Worksheets(1) While Not rsDD.EOF For I = 0 To rsDD.RecordCount - 1 For J = 0 To rsDD.Fields.Count - 1 xSheet.Cells(I + 1, J + 1) = "'" & rsDD.Fields(J) Next J rsDD.MoveNext Next I Wend VBExcel.Workbooks(1).SaveAs App.Path & "\backupDelete\" & Replace(CStr(Now), ":", "_") & tableName & ".xls" VBExcel.Workbooks(1).Close VBExcel.Quit Set VBExcel = Nothing rsDD.Close connDD.Close Set rsDD = Nothing '将要删除的记录备份到新创建的excel中，并以删除的时间来命名该excel表格 Dim strSQL As String If tableName = "FinishedDeal" Then strSQL = "delete from FinishedDeal where dealDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "#" End If If tableName = "inList" Then strSQL = "delete from inList where inDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "#" End If Call updateData(connDD, strSQL) connDD.Close Set connDD = Nothing MsgBox "成功地删除记录！" End Sub
Set excel_app = CreateObject("Excel.Application") ' 打开一个excel文件
excel_app.Workbooks.Open FileName:=txtExcelFile.Text ' 判读最新版本.
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If
'************打开工作表***************
Set xls = New excel.Application
xls.Visible = True
Set xlbook = xls.Workbooks.Add
....
'***************************写入内容*************************
Dim i As Integer
i = 3 'i控制行
Dim j As Integer 'j控制列
Dim countpage As Integer
countpage = 0 '控制页
Do While Not rst_gcl.EOF
xlsheet.Rows(i).RowHeight = 18 '控制行高
For j = 1 To 10
xlsheet.Cells(i, j) = rst_gcl.Fields(j) '将工程理库中的一条记录的第一个字段写入工作表中
Next
'每18行为一页，如果数据超出一页时进行特殊处理
If i > 18 Then
xls.ActiveWindow.SmallScroll Down:=1 '活动窗口内容向下滚动1行
End If
If i Mod 18 = 0 Then
If countpage = 0 Then
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '首页加边框
Else
xlsheet.Range(xlsheet.Cells(23 + (countpage - 1) * 18, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '中间页加边框
End If
i = i + 2 '加一条空行
Visible属性 取True或False，表明Excel应用程序是否可见。
Left,Top属性 Excel窗口的位置；
Height, Width属性 Excel窗口的大小；
WindowState属性 指定窗口的状态，取：XIMaximized(最大化)X1 Minimized(最小化)x1 Normal(缺省)。
Quit方法 退出Microsoft Excel；
Calculate方法 重新计算所有打开的工作簿、工作表或单元格。
Evaluate方法 求值数学表达式并返回结果。
示例1：求值数学表达式：Dim VBExcel As Object
Set VBExcel=CreateObject ("Excel.Application")
X=VBExcel. Evaluate ("3+5*(cos (1/log (99. 9)))")
三、使用Excel应用程序 如前所述，在VB应用程序中调用Excel应用程序，就是使用Application对象的属性、方法和事件。下面分类给出其中常用的属性和方法。 1、使用工作薄 Workbook对象代表Excel应用程序中当前打开的一个工作簿，包含在Workbooks集合中。可以通过Workbooks集合或表示当前活动工作簿的Active Workbook对象访问Workbook对象。 常用的方法有：属性、方法 意义
Add方法 创建新的空白工作簿，并将其添加到集合中。
Open方法 打开工作簿。
Activate方法 激活工作簿，使指定工作簿变为活动工作簿，以便作为Active Workbook对象使用。
Save方法 按当前路径和名称保存现有工作簿(如是首次保存，则将其保存到缺省名称中，如BOOK1.XLS)。
SaveAs方法 首次保存工作簿或用另一名称保存工作簿。
Close方法 关闭工作簿。
PrintOut方法 打印工作簿，语法为：PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate) 可选参数： From：打印的起始页号。如省略将从起始位置开始打印。
To：打印的终止页号。如省略将打印至最后一页。
Copies：要打印的份数。如省略将只打印一份。
Preview：如果为True则Excel打印指定对象之前进行打印预览。如果为False，或省略则立即打印该对象。
Printer：设置活动打印机的名称。
ToFile：如果为True则打印输出到文件。
Collate：如果为True则逐份打印每份副本。 下面语句将活动工作簿的2到5页打印3份：ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3 示例2：生成、保存、关闭工作簿Dim VBExcel As Excel.Application
Set VBExcel== CreateObject("Excel.Application")
With VBExcel
.Workbooks.Add
With ActiveWorkbook
.Save As"C： \Temp \OUTPUT.XLS"
.Close
End With
.Quit
End With 2、使用工作表 Sheets集合表示工作簿中所有的工作表。可以通过Sheets集合来访问、激活、增加、更名和删除工作表。一个Worksheet对象代表一个工作表。 常用的属性、方法有：属性、方法 意义
Worksheets属性 返回Sheets集合。
Name属性 工作表更名。
Add方法 创建新工作表并将其添加到工作簿中。
Select方法 选择工作表。
Copy方法 复制工作表。
Move方法 将指定工作表移到工作簿的另一位置。
Delete方法 删除指定工作表。
PrintOut方法 打印工作表。 示例3：将C盘工作簿中的工作表复制到A盘工作簿中：Dim VBExcel As Excel.Application
Set VBExcel=CreateObject("Excel.Application")
With VBExcel
.Workbooks.Open "C：\Temp\OUTPUT.XLS"
.Workbooks.Open"A：\OUTPUT1.XLS"
.Workbooks("OUTPUT.XLS").Sheets ("Sales").Copy
.Workbooks("OUTPUT1.XLS)
.Workbooks("OUTPUT1.XLS").Save
.Workbooks("OUTPUT.XLS").Close
.Workbooks("OUTPUTI.XLS").Close
.Quit
End With 3、使用单元范围 Range对象代表工作表的某一单元格、某一行、某一列、某一选定区域或者某一三维区域。 常用的属性、方法有：属性、方法 意义
Range属性 Range (arg)其中arg为A1--样式符号，表示单个单元格或单元格区域。
Cells属性 Cells (row, col )(其中row为行号，col为列号)表示单个单元格。
ColumnWidth属性 指定区域中所有列的列宽。
Rowl3eight属性 指定区域中所有行的行宽。
Value属性 指定区域中所有单元格的值(缺省属性)。
Formula属性 指定单元格的公式，由A1--样式引用。
Select方法 选择范围。
Copy方法 将范围的内容复制到剪贴板。
C1earContents方法 清除范围的内容。
Delete方法 删除指定单元范围。 4、使用图表 Chart对象代表工作簿中的图表。该图表既可为嵌人式图表(包含于ChartObject对象中)也可为分立的图表工作表。 常用方法有：方法 意义Add方法 新建图表工作表。返回Chart对象。
PrineOut方法 打印图表。
ChartWizard方法 修改给定图表的属性，其语法为：
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels,
SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle) 其中： Source：包含新图表的源数据的区域。如省略，将修改活动图表工作表或活动工作表中处于选定状态的嵌人式图表。 Gallery：图表类型。其值可为下列常量之一：xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat。 Format：内置自动套用格式的编号。如省略，将选择默认值。 P1otBy：指定系列中的数据是来自行(xlRows)还是列(xlColumns)。 CategoryLabels：表示包含分类标志的源区域内行数或列数的整数。 SeriesLabels：表示包含系列标志的源区域内行数或列数的整数。 HasLegend：若指定True，则图表将具有图例。 Title：图表标题文字。 CategoryTitle：分类轴标题文字。 ValueTitle：数值轴标题文字。 ExtraTitle：三维图表的系列轴标题，或二维图表的第二数值轴标题。 可组合使用Add方法和ChartWizard方法，以创建包含工作表中数据的图表工作表。下例基于工作表“Sheetl”中单元格区域“A1：A20”中的数据生成新的折线图并打印。With Charts.Add
.ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折线图表”
.Printout
End With
5、使用Excel工作表函数 在VB语句中可使用大部分的Excel工作表函数，可通过WorksheetFunction对象调用Excel工作表函数。下面的Sub过程用Min工作表函数求出指定区域中单元格的最小值，并通过消息框显示结果值。Sub UseFunction()
Dim myRange As Range
Set myRange=Worksheets ("Sheet1").Range("B2：F10")
answer=Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub 如果使用以区域引用为参数的工作表函数，必须指定一个Range对象。如可用Match工作表函数对A1：A10区域的所有单元格进行搜索。Sub FindFirst()
my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range("A1：A10")，0)
MsgBox myVar
End Sub 要在单元格中插人工作表函数，可将该函数指定为对应于Range对象的Formula属性值。在以下示例中，将当前工作簿Sheetl内A1：B3区域的Formula属性指定为RAND工作表函数(此函数产生二个随机数)。Sub InsertFormula()
Worksheets ("Sheet1" ).Range("A1：B3").Formula="RAND()"
End Sub 以上简要介绍了Excel对象模型中部分对象及其属性和方法，更详细的信息可参阅Excel 2000帮助中的“Microsoft Excel Visual Basic参考”一节的内容。实际上，Microsoft Office家族的Word,PowerPoint, Access和Project等应用程序都可以在VB应用程序中调用，其原理和步骤完全相同，只是其对象模型有所不同而已。
兄弟看看我自己写的代码吧,分数不重要,关键是通过交流有进步.
Private Sub Command2_Click()
bb = MsgBox("真的要删除这些记录?")
If bb = 7 Then Exit Sub
startDate = DTPicker1.value & " 00:00:00"
endDate = DTPicker2.value & " 23:59:59"
Dim connDD As New ADODB.Connection
connDD.CursorLocation = adUseClient
Dim rsDD As New ADODB.Recordset
If tableName = "FinishedDeal" Then
strSQLDelete = "select * from FinishedDeal where dealDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "# order by dealDate"
End If
If tableName = "inList" Then
strSQLDelete = "select * from inList where inDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "# order by inDate"
End If
If rsDD.State <> 0 Then
rsDD.Close
connDD.Close
End If
Call PubConnSub(connDD, rsDD, strSQLDelete, 3, 1)
If rsDD.EOF Then
MsgBox "没有相关记录，可能已经删除过，也可能选择了错误日期"
rsDD.Close
Set rsDD = Nothing
connDD.Close
Set connDD = Nothing
Exit Sub
End If
' 如果App.Path 中不存在backupDelete目录就创建
Dim fso As New FileSystemObject
If fso.FolderExists(App.Path & "\backupDelete") = False Then
fso.CreateFolder (App.Path & "\backupDelete")
End If
Dim VBExcel As Object, xBook As Object, xSheet As Object, I%, J%
Set VBExcel = CreateObject("excel.application")
Set xBook = VBExcel.Workbooks.Add
Set xSheet = xBook.Worksheets(1)
While Not rsDD.EOF
For I = 0 To rsDD.RecordCount - 1
For J = 0 To rsDD.Fields.Count - 1
xSheet.Cells(I + 1, J + 1) = "'" & rsDD.Fields(J)
Next J
rsDD.MoveNext
Next I
Wend
VBExcel.Workbooks(1).SaveAs App.Path & "\backupDelete\" & Replace(CStr(Now), ":", "_") & tableName & ".xls"
VBExcel.Workbooks(1).Close
VBExcel.Quit
Set VBExcel = Nothing
rsDD.Close
connDD.Close
Set rsDD = Nothing
'将要删除的记录备份到新创建的excel中，并以删除的时间来命名该excel表格
Dim strSQL As String
If tableName = "FinishedDeal" Then
strSQL = "delete from FinishedDeal where dealDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "#"
End If
If tableName = "inList" Then
strSQL = "delete from inList where inDate between #" & CDate(startDate) & "# and #" & CDate(endDate) & "#"
End If
Call updateData(connDD, strSQL)
connDD.Close
Set connDD = Nothing
MsgBox "成功地删除记录！"
End Sub