摘要：``` Sub ConvertPDFCenter() Dim workPath workPath = ThisWorkbook.Path With ActiveSheet.PageSetup .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = ... 阅读全文

摘要：``` https://www.izlesene.com/video/revised-method-how-to-activate-office-2013-proffesional-plus-on-windows-7-2015-march/8245952 ``` 阅读全文

摘要：``` Option Explicit Sub SendEmail() Dim olApp As Object, newEmail As Object Set olApp = New outlook.Application Set newEmail = olApp.CreateItem(olMailItem) With newEmail: .To = Sheet1.Range("... 阅读全文

摘要：``` 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... 阅读全文