[已解决]呵呵！有什么办法A1单元格获取所在文件夹名称呢？

qinhuan66

呵呵！有什么办法A1单元格获取所在文件夹名称呢？

最佳答案

月排行榜 / 总排行榜

xdragon

2014-1-24 00:40

函数的：

1. =MID(M26,LARGE((MID(M26,ROW(1:999),1)="")*ROW(1:999),2)+1,FIND("[",M26)-LARGE((MID(M26,ROW(1:999),1)="")*ROW(1:999),2)-2)

复制代码

VBA的：

1. [a1]=Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "") + 1)

复制代码

跳转到最佳答案楼层

xdragon

函数的：

1. =MID(M26,LARGE((MID(M26,ROW(1:999),1)="")*ROW(1:999),2)+1,FIND("[",M26)-LARGE((MID(M26,ROW(1:999),1)="")*ROW(1:999),2)-2)

复制代码

VBA的：

1. [a1]=Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "") + 1)

复制代码

qinhuan66

xdragon 发表于 2014-1-24 00:40
函数的：VBA的：

函数的不可以,代码的可以.谢谢了

qinhuan66

xdragon 发表于 2014-1-24 00:40
函数的：VBA的：

如果按照你的方法这样改取工作薄名称会有后缀名的,那该怎么改.谢谢
[a1] = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "\") + 1)

xdragon

qinhuan66 发表于 2014-1-24 08:30
函数的不可以,代码的可以.谢谢了

1. =MID(CELL("filename"),LARGE((MID(CELL("filename"),ROW(1:999),1)="")*ROW(1:999),2)+1,FIND("[",CELL("filename"))-LARGE((MID(CELL("filename"),ROW(1:999),1)="")*ROW(1:999),2)-2)

复制代码

不好意思，忘记替换过来了。。{:20:}这样看看。。。数组公式哈

qinhuan66

xdragon 发表于 2014-1-24 09:03
不好意思，忘记替换过来了。。这样看看。。。数组公式哈

真的可以了.那个VBA提取工作薄名称的又怎么改
Sub 宏1()
[a1] = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "\") + 1)
End Sub

函数的是这样
=MID(LEFT(X,FIND(".",X)-1),2,255)

xdragon

qinhuan66 发表于 2014-1-24 09:01
如果按照你的方法这样改取工作薄名称会有后缀名的,那该怎么改.谢谢
[a1] = Mid(ThisWorkbook.Name, InSt ...

1. [a1] = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)

复制代码

这样看看行不

qinhuan66

xdragon 发表于 2014-1-24 09:06
这样看看行不

写入这条代码后
为什么关闭EXCEL出现下图的

xdragon

qinhuan66 发表于 2014-1-24 09:56
写入这条代码后
为什么关闭EXCEL出现下图的

代码本身没问题啊，不过这个代码不适合在新建未保存或是压缩文件中使用的。。。

qinhuan66

xdragon 发表于 2014-1-24 10:28
代码本身没问题啊，不过这个代码不适合在新建未保存或是压缩文件中使用的。。。

问题找到了是和以下保存的代码有关,如果要以下代码就出现上述问题.谢谢
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)'加入此代码有冲突
'Call 提取文件夹名.提取文件夹名 '保存时启动此宏
'Call 提取工作薄名.提取工作薄名 '保存时启动此宏
'End Sub