问题如题,望各大侠帮帮忙。感激不尽
请给出程序,然后作较详细的注解。新建excel文件这部分程序我会,判断和删除这两步操作我不会,谢谢
第1个回答 2011-06-16
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\bb.xls") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Else
Kill "d:\bb.xls" '删除文件
End If
End Sub
If Dir("D:\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\bb.xls") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Else
Kill "d:\bb.xls" '删除文件
End If
End Sub
第2个回答 2011-06-16
最简单的办法就是添加一个 filelistbox 把扩展名设置成 excel文件扩展名,路径设置成你需要的路径;
然后根据列表中的地址和文件名循环 删除
还有一个简单的办法就是
直接用VB自带函数kill
Kill "C:\abc\*.*" '表示删除C盘abc目录下的所有文件。 注意扩展名 我这里是所有文件
如果要将文件夹删除只需加上以下语句:
RmDir "C:\abc"本回答被提问者采纳
然后根据列表中的地址和文件名循环 删除
还有一个简单的办法就是
直接用VB自带函数kill
Kill "C:\abc\*.*" '表示删除C盘abc目录下的所有文件。 注意扩展名 我这里是所有文件
如果要将文件夹删除只需加上以下语句:
RmDir "C:\abc"本回答被提问者采纳