摘要： 文件名：excel vba与字符串数组有关的三个函数Split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串。Split(字符串[, 分隔符[, 要返回的子字符串数量...
文件名：
excel vba与字符串数组有关的三个函数
Split函数返回一个下标从零开始的一维数组，它包含指定数目的子字符串。Split(字符串[, 分隔符[, 要返回的子字符串数量[,比较方式]]])后三项可选，默认：分隔符为空格，返回全部子字符串，用Option Compare语句中的设置值执行比较。下面是将1-12转化为一月-十二月的自定义函数的例子。Functio
c:\myfile\docment\test\文件测试版本.xlsx
公式: =MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\","")))) 1,LEN(A1)) 结果: 文件测试版本.xlsx 说明: LEN(A1)-LEN(SUBSTITUTE(A1,"\","")) 以原来A1的长度减去去掉"\"后的长度,得出"\"的个数. SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))) 以"*"替换A1最后一个"\" FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\","")))) 1 找出"*"在新的A1(新字符串)中的位置,加上1以便提取后面的数据 MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\","")))) 1,LEN(A1)) 有了"*"的位置,也就是A1中最后一个"\"的位置,利用MID提取最后一个"\"后面的文本,也就是文件名
excel VBA 获取和设置（文件和文件夹属性）
Sub createfolder()‘******检查文件夹是否存在******‘******如果不存在，就新建文件夹******‘******并设置属性为隐藏****** ‘设置属性：setAttr 文件(或文件夹) , 属性 ‘获取属性：getAttr 文
