myliu的专栏

　　讨论它们的区别源自一处代码：Sheet1.Cells(2,1).CopyFromRecordset(Rs) Rs为一个ADO.Recordset对象。我发现它不能运行，但是在调用前加上了Call，就可以运行了。这个问题困扰了我很久，都是因为不求甚解，结果发现早晚会出问题。　　经查阅相关资料，特将VB的Sub和Function调用语法总结如下：1、Call SubA(P1,P2

如果想在程序中建立C:/A/B/C/D这个文件夹，而且C:/A、C:/A/B、C:/A/B/C是否已建立，尚不能确定，那么可以在模块中加入如下VB过程用于建立多级文件夹操作：Public FSO As New Scripting.FileSystemObjectPublic Sub MD(strDir As String) Dim Pos As Integer If N

 Function IDVerify(ID) t = 1 For i = 1 To 17 t = t + Val(Mid(ID, i, 1)) * (2 ^ (23 - i) Mod 11) Next t = t Mod 11 If t = 10 Then IDVerify = "X" Else

能按上数读法读数字大写的VB函数，ChineseNumber("1"&REPT("0",127))，结果是“壹仟万亿兆京垓”。个人认为，读懂本函数的算法，对于理解递归和分治法有好处。Function ChineseNumber(Number) ChineseNumber = "" Dim DigitName(9), SubBaseName(4), BaseName(4)