ACCESS模块删除问题

cangqiong

我想在ACCESS模块里写一段程序,想删除EXCEL的表.

具体是这样的,在ACCESS里写了一段程序(功能是导出按钮)一点按钮会在EXCEL里建了一个表(是按系统日期建了一个表),

但是有这样一个问题,在重复按以后,系统会提示表中已经有这个名的表,不让重新创新这个表.

我想到的办法是,在建立这个表时,把上次生成的表(按系统日期建的表)删掉.然后重新生成一个这样的表.(或者有高人想到更好的办法吗?)

请问有人会吗?帮帮我

cangqiong

我写了一段请参,帮我看看.该怎么写

Dim EX As Excel.Application
Dim rs As Recordset
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim Temptable As Excel.Worksheet
Dim str As String
Dim i As Integer
Dim Returnvalue
Dim temp As Integer
Dim zpname As String

zpname = Date
    For Each Temptable In Worksheets
        If Temptable.Name = zpname Then
            temp = MsgBox(zpname & "已经存在,是否重新生成", vbYesNo)
            If temp = vbYes Then
               
                Sheets(zpname).Delete
               
                'Windows.Application.Visible = True
               ' wb.Worksheets(zpname).Delete
                 wb.Worksheets(zpname).Activate
                 wb.ActiveSheet.Delete
                 wb.Worksheets(zpname).Delete
                'ActiveWindow.SelectedSheets.Delete
               
            End If
            If temp = vbNo Then
                MsgBox "不能创建同样名称的表,关闭工作簿"
                GoTo tuichu2:
            End If
        End If
    Next
ws.Copy before:=Sheets(Sheets.Count)
Sheets(Sheets.Count - 1).Name = CStr(Date)