excel常见宏(简洁版)

《excel常见宏(简洁版)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、清除剪贴板Sub清除剪贴板()Application.CutCopyMode=FalseApplication.CommandBars("TaskPane").Visible=FalseEndSub批量清除软回车Sub批量清除软回车()'也可直接使用Alt+10或13替换Cells.ReplaceWhat:=Chr(10),Replacement:="",LookAt:=xlPart,SearchOrder:=_xlByRows,MatchCase:=False,SearchFormat:=False,ReplaceFo

2、rmat:=FalseEndSub判断指定文件是否已经打开Sub判断指定文件是否已经打开()DimxAsIntegerForx=1ToWorkbooks.CountIfWorkbooks(x).Name="函数.xls"Then'文件名称MsgBox"文件已打开"ExitSubEndIfNextMsgBox"文件未打开"EndSub当前文件另存到指定目录Sub当前激活文件另存到指定目录()ActiveWorkbook.SaveAsFilename:="E:信件"&ActiveWorkbook.NameEndSub另存

3、指定文件名Sub另存指定文件名()ActiveWorkbook.SaveAsThisWorkbook.Path&"别名.xls"EndSub以本工作表名称另存文件到当前目录Sub以本工作表名称另存文件到当前目录()ActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&ActiveSheet.Name&".xls"EndSub将本工作表单独另存文件到Excel当前默认目录Sub将本工作表单独另存文件到Excel当前默认目录()ActiveSheet.CopyActive

4、Workbook.SaveAsFilename:=ActiveSheet.Name&".xls"EndSub以活动工作表名称另存文件到Excel当前默认目录Sub以活动工作表名称另存文件到Excel当前默认目录()ActiveWorkbook.SaveAsFilename:=ActiveSheet.Name&".xls",FileFormat:=_xlNormal,Password:="",WriteResPassword:="",ReadOnlyRecommended:=False_,CreateBackup:=Fal

5、seEndSub另存所有工作表为工作簿Sub另存所有工作表为工作簿()DimshtAsWorksheetApplication.ScreenUpdating=Falseipath=ThisWorkbook.Path&""ForEachshtInSheetssht.CopyActiveWorkbook.SaveAsipath&sht.Name&".xls"'(工作表名称为文件名）beconsistentwithinthesamedisk.Alternateunifiedcorerequirementsplacedonth

6、eterminalstripterminals,onlineidentityandensurethecoppercoreisnotexposed.6.4.6enclosurewithinthesametothecablecoreprovidesbindingintoacircle,harnesstiespacingisgenerally100mm;branchofficesshallbebindingonbothends,eachcore'ActiveWorkbook.SaveAsipath&sht.Name&Trim(

7、sht.[d15])&".xls"'（文件名称&D15单元内容）'ActiveWorkbook.SaveAsipath&Trim(sht.[d15])&".xls"'（文件名称为D15单元内容）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEndSub以指定单元内容为新文件名另存文件Sub以指定单元内容为新文件名另存文件()ThisWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&Sheet1.[A1]EndSub

8、以当前日期为新文件名另存文件Sub以当前日期为新文件名另存文件()ThisWorkbook.SaveAsThisWorkbook.Path&""&Format(Now(),"yyyymmdd")&".xls"EndSubSub以当前日期为名称另存文件()ActiveWorkbook.SaveAsFilename:=