摘要:
模版表名Template sheet25 数据列表名sheet1 打印程序 Sub PrintLabel() With ThisWorkbook.Sheets("Sheet1") limitmax = .Range("B10000").End(xlUp).Row For i = 2 To limit 阅读全文
摘要:
Sub GetSheetName() Dim Path As String Dim File As String Dim WB As Workbook Dim sht As Worksheet Dim arr() As String Dim narr() As String Application. 阅读全文
摘要:
Sub GetSheetName() Dim Path As String Dim File As String Dim WB As Workbook Dim sht As Worksheet Application.ScreenUpdating = False Path = ThisWorkboo 阅读全文
摘要:
Sub compact_code() On Error Resume Next Dim Element As Object For Each Element In ActiveWorkbook.VBProject.VBComponents ActiveWorkbook.VBProject.VBCom 阅读全文