![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel VBA
刀无极
这个作者很懒,什么都没留下…
展开
-
[Excel VBA] 查找指定目录下的匹配文件
Option ExplicitSub FileNames() Dim sFName As String Dim asFNames() As String Dim sFType As String Dim i As Integer sFType = "D:/Tianqi/*.xlsm" sFName = Dir(sFType) Do Until sFName = "" i = i + 1转载 2010-07-26 10:53:00 · 2059 阅读 · 0 评论 -
[Excel VBA] 新建一个工作表并为其添加代码
<br />Sub AddShtAndCodes() Dim NewSht As Worksheet, MyCodes As String Set NewSht = Worksheets.Add NewSht.Name = "test" MyCodes = "Private Sub Worksheet_Activate()" & vbCrLf & "Msgbox ""test""" & vbCrLf & "End sub" Application.VBE.A转载 2010-07-30 14:39:00 · 2074 阅读 · 0 评论