len()函数

简单的说，就是读取一个字符串的 字符长度 的函数。

实例1：

Sub W1()
     If Len(Dir("d:/A.xls")) = 0 Then
       MsgBox "A文件不存在"
     Else
       MsgBox "A文件存在"
     End If
End Sub

实例2：

For x = 5 To 13
    Cells(x - 4, 1) = "NO." & Left("000", 3 - Len(x)) & x
Next

另外：

Len函数，不仅可以表示字符串的长度，还可以表示存储某变量需要的字节数。

代码测试：

Sub xx()
Dim a As Long, b as Integer
MsgBox Len(a)    '显示结果为4
msgbox Len(b)   '显示结果为2
a = 11
MsgBox Len(a)   '显示结果依然为4
End Sub