摘要:
```
Sub macro1() Dim otlk As Object Dim nmspc As Object Dim addrlst As Object Dim i As Long On Error GoTo errHandle Set otlk = CreateObject("Outlook.Application") Set nmspc... 阅读全文
摘要:
``` Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Pa... 阅读全文