[已解决]判断文件夹工作表的数量，然后将文件夹里工作表的内容合并，请老师帮忙！

80013025

回复 zjdh 的帖子

老师，再请教一个问题，

就是通过代码删除掉文件夹里面的所有XLS文件，

在运行时，提示是否删除文件夹里面的表格。

删除的文件会在回收站里


以下是是删除文件夹内容的代码：请老师帮忙修改下

Sub 删除文件夹文件()
    Dim myPath  As String
    Dim myFileName As String
    Dim i As Long, wknm$
    myPath = ThisWorkbook.Path & "\数据DATA\"
    wknm = ThisWorkbook.Name
    myFileName = Dir(myPath, 0)
    Do While Len(myFileName) > 0
        If myFileName <> wknm Then Kill myPath & myFileName
        myFileName = Dir()
    Loop
End Sub

zjdh

zhycl 发表于 2011-10-30 15:35
回复 zjdh 的帖子

借贵贴，求助个问题，可以吗？也是汇总的问题，先前“蓝桥玄霜 ”大师已经给我VBA了，但 ...

http://www.excelpx.com/forum.php?mod=viewthread&tid=206109&extra=

zjdh

80013025 发表于 2011-10-30 15:36
回复 zjdh 的帖子

老师，再请教一个问题，

除了删除文件，看不懂你到底还要如何？

80013025

回复 zjdh 的帖子

1在代码里加一个确认提醒，是否删除


2将文件删除到回收站里，方便还原。


目前这段代码是将文件完全删除，在回收站里是找不回来的

win9

学习下下

淮南王

下载研究研究！

淮南王

需要VBA解决

tqfcwcng

学习学习。。。。。

byhdch

路过，学习学习......