抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

绿色沙漠风暴

我明明有回的，怎么一转眼就找不到自己的回复了，那就再回一下，谢谢LZ分享！

kevinchengcw

原帖由 chinaltl 于 2010-4-11 03:32 发表
已经下载了，还没看，先顶一下先，最近刚好想VBA编程，想问问一般多长时间可以编一些简单的程序。

看你的基础+悟性+灵活性+动手能力，其实只要迈出第一步，试着改个小程序，你就会有所收获了，你会发现写程序不难的，难的是对技术的掌握及实现方法的思路

lbl016

请kevinchengcw老师帮我把522楼的代码改下好吗？打印手册的问题我暂时用原代码打，点击两次也没有好麻烦的，反而还可以观察打印是否正确。

zhyf360

收藏了，多谢楼主分享，这对我们菜鸟来说，真是福音呀！

lbl016

Sub Hebing()
    Dim i As Long, F() As String, l As Long
    With Application.FileSearch
        .NewSearch
        .FileType = msoFileTypeExcelWorkbooks
        .Filename = "*.XLS"
        .LookIn = ThisWorkbook.Path & "\"
        .Execute
        If .FoundFiles.Count > 0 Then
            ReDim F(1 To .FoundFiles.Count - 1) As String
            l = 1
            For i = 1 To .FoundFiles.Count
            If .FoundFiles(i) <> ThisWorkbook.FullName Then
                F(l) = .FoundFiles(i)
                l = l + 1
            End If
            Next
        End If
    End With
    Sheet17.Rows("2:65536").ClearContents
    For i = 1 To UBound(F)
        Dim cn As ADODB.Connection
        Dim Sql As String
        Set cn = New ADODB.Connection
        With cn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & F(i) & ";Extended Properties=""Excel 8.0;HDR=No"""
            .CursorLocation = adUseClient
            .Open
        End With
        Sql = "Select * FROM [数据$A5:FU1000] "
        Dim Rg As Range
        Set Rg = Sheet1.Range("A65536").End(xlUp)
        If Rg.Address = Sheet1.Range("A1").Address Then
            Rg.Offset(1).CopyFromRecordset cn.Execute(Sql)
        Else
            Rg.Offset(1, 0).CopyFromRecordset cn.Execute(Sql)
        End If
        cn.Close
    Next
End Sub
请把这个代码修改为合并不同工作簿的工作表适用范围较广的通用性代码

kevinchengcw

Sql 现在看到这个关键字的求助就跑，因为我还没学sql

山中无甲子

LZ功不可没啊！

hesong83386

又一手很好的学习资料啊~

cdb999

下载学习中。。。。。。。。。。。。。。。。。。。。

syyzx

支持,期待进化5