原创 [Excel VBA] 查找指定目錄下的匹配文件

Option Explicit Sub FileNames() Dim sFName As String Dim asFNames() As String Dim sFType As String Dim

原创 [Excel VBA] 新建一個工作表併爲其添加代碼

Sub AddShtAndCodes() Dim NewSht As Worksheet, MyCodes As String Set NewSht = Worksheets.Add NewSht.Name = "