Excel宏程序

Sub adf()

    Dim path As String

    Dim filename As String

    path = ThisWorkbook.path & "\"

    

    filename = Dir(path & "*.*") '这里可以写自己需要的文件后缀

    

    Do

     中竖游   [a65535].End(xlUp).Offset(1, 0) = filename

        filename = Dir

    Loop While filename <>卖销 ""

    

End Sub

把这个文件放到A文件夹里，或者ThisWorkbook.path &纤信 "\"改成A文件夹的全路径名

你这个会导致程序死循环的吧？事件反复被触发……

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Application.enableevents=fasle'先禁用事件

    Dim i As Integer

    For i = 1 To 10

        Sheets("Sheet1").Range("B2") = Sheets("郑信猜Sheet1").Range("B2") + 0.1

   喊型     Sheet1.PrintOut

    Next

   坦举 Application.enableevents=true'启用事件

End Sub

这个是信渗做得到的，我们进行数据管理时，经常要进行这漏耐种处理。

简单一点的办法是把VBA写到一个工作薄中，但随着数据的导入和保存，这个工作薄也会被关掉，那么VBA程序就结束了。

我们现在用的做是把VBA程序做到“加载宏”里去，这样就可以反复进行批量处理。

但在百度知道上，这个程序一言半语也说不明白，也不知你的VBA到什么程度。你可以先找点VBA的书来看看。

有进一步的兴趣给我返坦春发消息。

---