1.利用ThisWorkbook的Workbook_Open事件，实现定时自我删除。注意：这是个狠角色，宏文件打开后自动运行，会把当前整个宏文件删除掉，回收站都没有的那种，谨慎使用。PrivateSubWorkbook_Open()DimdatKillAsDate'指定一个日期，例如2025年4月1日datKill=DateS

Sub多表选择()DimwksAsWorksheet,shtCntAsIntegerDimarr()AsVariant,iAsIntegershtCnt=ThisWorkbook.Sheets.Count'取得工作表总数'ReDimarr(1ToshtCnt)'声明变量'ForEachwksInThisWorkbook.Sheets'在所有工作表中循环&

SubSheet3_按钮1_Click()choice2EndSubSubchoice2()ThisWorkbook.Sheets.Select'组合工作表'ActiveSheet.[A1:D10].Select'选择区域'EndSubThisWorkbook工作簿ThisWorkbook.Sheets所有工作表ActiveSheet激活的工作表[A1:D10]区域 

1SubSheet3_按钮1_Click()2DimshAsWorksheet,n%,i%,arr,s3n=ThisWorkbook.Sheets.Count'取得工作表总数'4ReDimarr(1Ton)'声明变量'5ForEachshInThisWorkbook.Sheets'循环检查工作表表名'6Ifsh.Name&

setmyshapes=.worksheets（1）.shapes（“1”）myshapes.CopyPictureAppearance:=xlScreen,Format:=xlPictureThisWorkbook.Worksheets("Sheet3").PasteDestination:=ThisWorkbook.Worksheets("Sheet3").Cells(s,c)``SubpictureCV()Application.Scr

SubcreateFolder()DimwksAsWorksheetOnErrorResumeNextSetwks=ThisWorkbook.Worksheets(1)basepath=ThisWorkbook.Path&"\"Max=wks.Range("A100000").End(xlUp).RowFori=2ToM

PrivateDeclarePtrSafeFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLongPrivateDeclarePtrSafeFunctionWaitForSingleObjectLib"kernel32"(ByValhHa

if判断有三种格式 SubTest()Dimthe_valuethe_value=ThisWorkbook.Sheets("Sheet1").Range("A1").ValueEndSub 1.if...endifWithThisWorkbo

模版表名Templatesheet25数据列表名sheet1打印程序SubPrintLabel()WithThisWorkbook.Sheets("Sheet1")limitmax=.Range("B10000").End(xlUp).Row

SubPDF()DimasyAsWorksheetDimspathAsStringspath=Excel.ThisWorkbook.PathForEachasyInExcel.ThisWorkbook.WorksheetssName=spath&"\"&as

#//在本工作簿路径下新增工作簿并输入数据//在本工作簿路径下新增工作簿并输入数据functiontest()//声明函数，函数名字为text{