VB6选择文件夹的时候有新建文件夹按钮 Option Explicit Public Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAborted As Boolean hNameMaps As Long sProgress As String End Type Public Type BrowseInfo hwndOwner As…
Sub k() Dim arr, arr2 arr [b1:c19] ‘定义操作数组为b1到c19的区域’ icount Application.CountIf([b:b], "A") ‘icount变量定义为b列中出现的A的个数’ ReDim arr2(1 To icount, 1 To 2) ‘定义需要写入的数组,为2维数组,第一维…