![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 50
辛天扬
这个作者很懒,什么都没留下…
展开
-
Excel VBA实用代码1:判断工作表是否存在,文件是否存在[20110227]
<br />Private Function FileExists(fname) As Boolean<br />'当文件存在时返回true<br /> Dim x As String<br /> x = Dir(fname)<br /> If x <> "" Then FileExists = True _<br /> Else FileExists = False<br />End Function <br /> <br /> <br /><br />Private Fu转载 2011-02-27 12:15:00 · 6594 阅读 · 0 评论 -
VBA实用代码2:数组横向竖向填充至单元格[20110227]
<br />Sub split1()<br />Dim arr() As String<br /> arr = Split("张祝,徐国军,陈茜,王欢,许松,张小海,陈飞,张明元,徐国东,张款", ",")<br /> [a1].Resize(1, 10) = arr <br />[c2:c11] = Application.WorksheetFunction.Transpose(arr) <br />End Sub<br /> <br />Sub array1() <br />Dim arr() As V转载 2011-02-27 12:55:00 · 3123 阅读 · 0 评论 -
VBA自定义函数:获取路径、文件名、扩展名[20110228]
<br />'ResultFlag=0 获取路径<br />'ResultFlag=1 获取文件名<br />'ResultFlag=2 获取扩展名<br /> <br />Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String<br />Dim SplitPos As Integer, DotPos As Integer<br />SplitPos = InStrRev(FullPath, "/")<br原创 2011-02-28 14:27:00 · 9420 阅读 · 0 评论