VBA 常用代码

1.取消过滤

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

2.创建字典（后期绑定）

Dim dictXXXX As Object
Set dictXXXX = CreateObject("Scripting.Dictionary")

3.创建正则表达式（后期绑定）

Dim regLink As Object
Dim objResult As Object
dim strExtractURL As String

Set regLink = CreateObject("vbscript.regexp")
With regLink
    .Global = True
    .Pattern = "(http|https)://[A-Za-z0-9_\-\+.:?&@=/%#,;]*"
    
    Set objResult = .Execute(prmCellValue)
    If objResult.Count > 0 Then
        For i = 0 To objResult.Count - 1
            If i = 0 Then
                strExtractURL = objResult.Item(i)
            Else
                strExtractURL = strExtractURL & vbLf & objResult(i)
            End If
        Next i
    End If
End With

4. 创建文件流

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

5. 等待

Application.Cursor = xlWait
Application.Wait Now + TimeSerial(0, 0, 1)
Application.Cursor = xlDefault

6. 桌面路径

Environ("userprofile") & "\Desktop\"