如何提取工作簿的名称

zhaogang1960 · 发表于 2009-10-6 21:13

请测试：

文件夹.rar (78.42 KB, 下载次数: 54)

[ 本帖最后由 zhaogang1960 于 2009-10-6 21:48 编辑 ]

yj0715 · 发表于 2009-10-6 21:30

赵老师，我代入您的程序测试老报错，而且您的程序完全变了，要手动去选择目录。还是原来的好，不用手工选择，就取当前目录下包括子目录的文档名字最好。估计这个程序还有那里有点小问题。不过侦测起来估计比较麻烦。
多谢了赵老师，这个问题就到此为止，不好意思再给您添麻烦了

zhaogang1960 · 发表于 2009-10-6 21:46

看出问题来了，虽然使用了文件夹浏览器，但是代码没有改过来，还是使用了ary(1, 1) = ThisWorkbook.Path & "\"
下面附件去掉了文件夹浏览器：

文件夹.rar (77.79 KB, 下载次数: 73)

yj0715 · 发表于 2009-10-6 22:57

赵老师，我报错是在这一句：
.Range("C2").Resize(n - 1) = Date

zhaogang1960 · 发表于 2009-10-6 23:19

刚才测试了，如果子文件夹中一个文件也没有就会出错，没有考虑到，加上一个判断：
         If n > 1 Then .Range("A2").Value = 1
         If n > 2 Then .Range("A2").AutoFill Destination:=.Range("A2").Resize(n - 1), Type:=xlFillSeries
         If n > 1 Then .Range("C2").Resize(n - 1) = Date

高玉甫 · 发表于 2009-10-7 15:37

zhaogang1960 先生，您好!
您 44 楼的代码，再加上 46 楼的修改，这样的文件目录也是很好，我暂时用不到这种类型的文件目录，但我还是要收藏一下，以备后用，谢谢您，您确实帮了我们不少忙。

yj0715 · 发表于 2009-10-7 20:45

赵老师好，因为今天一直加班没顾上回复您。改为您46楼的代码后提前报错了，报错的语句是如下图：

zhaogang1960 · 发表于 2009-10-7 21:55

这是没有子文件夹的情况吧，按理也不应该
如果没有子文件夹，m就只能是初值2，For i = 2 To m - 1这个循环就不会发生
请说明具体情况或上传附件

yj0715 · 发表于 2009-10-8 20:46

赵老师，我重新上传一下附件。您再看看。

zhaogang1960 · 发表于 2009-10-8 21:09

windows认可的文件夹或文件名vba不一定认可，修改文件夹名后就好了：

文件夹.rar (92.92 KB, 下载次数: 175)

		自动登录	找回密码
密码			免费注册

[求助] 如何提取工作簿的名称

回复 43楼 yj0715 的帖子

回复 45楼 yj0715 的帖子

回复 46楼 zhaogang1960 的帖子

回复 48楼 yj0715 的帖子

回复 50楼 yj0715 的帖子