零点烛光的专栏

代码虽然很垃圾，但希望大家从上面学到的是技术。呵呵。 Public Sub Export(rs As ADODB.Recordset, dgrid As DataGrid, Optional titleStr As String, Optional secStr As String, Optional lastStr As String)On Error Resume Next    If rs.

         直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行

Sub mergeunit()Dim spos, epos As IntegerDim ustr, nowstr As Stringspos = 1epos = 1ustr = Cells(1, 1)Application.DisplayAlerts = FalseDo    nowstr = Cells(epos, 1)    If nowstr          Range("A" & s