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,ReplaceFormat:=FalseEndSub判断指定文件是否已经打开Su

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

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

4、到Excel当前默认目录()ActiveWorkbook.SaveAsFilename:=ActiveSheet.Name&".xls",FileFormat:=_xlNormal,Password:="",WriteResPassword:="",ReadOnlyRecommended:=False_,CreateBackup:=FalseEndSub另存所有工作表为工作簿Sub另存所有工作表为工作簿()DimshtAsWorksheetApplication.ScreenUpdating=Falseipath=ThisWorkbook.Path&""ForEachshtInS

5、heetssht.CopyActiveWorkbook.SaveAsipath&sht.Name&".xls"'(工作表名称为文件名）'ActiveWorkbook.SaveAsipath&sht.Name&Trim(sht.[d15])&".xls"'（文件名称&D15单元内容）'ActiveWorkbook.SaveAsipath&Trim(sht.[d15])&".xls"'（文件名称为D15单元内容）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEndSub以指定单元内容为新文件名另存文件Sub以指定单元内容为

6、新文件名另存文件()ThisWorkbook.SaveAsFilename:=ThisWorkbook.Path&""&Sheet1.[A1]EndSub以当前日期为新文件名另存文件Sub以当前日期为新文件名另存文件()ThisWorkbook.SaveAsThisWorkbook.Path&""&Format(Now(),"yyyymmdd")&".xls"EndSubSub以当前日期为名称另存文件()ActiveWorkbook.SaveAsFilename:=Date&".xls"EndSub以当前日期和时间为新文件名另存文件Sub以当前日期和时间为新文件名另存文件()T

7、hisWorkbook.SaveAsThisWorkbook.Path&""&Format(Now(),"yyyy"&"年"&"mm"&"月"&"dd"&"日"&"h"&"时"&"mm"&"分"&"ss"&"秒")&".xls"EndSub另存本表为TXT文件Sub另存本表为TXT文件()DimsAsStringDimFullNameAsString,rngAsRangeApplication.ScreenUpdating=FalseFullName=(Active