工作簿批量改名

以下来源  百度

1> 如何快速建很多工作簿 CTRL+F11

2>如何改工作簿批量改名 代码如下 用宏运行既可

Sub 改工作簿名字()
Dim i As Integer
    For i = 1 To31
   Sheets(i).Name = "8月" &i  

    Next
End Sub

 

 

 

 

工作表

1、'隐藏SHEET1这张工作表 　sheets("sheet1").Visible=False

2、'显示SHEET1这张工作表　　sheets("sheet1").Visible=True

3、'同时选择工作表1和工作表2 

 Worksheets(Array(“sheet1”,”sheet2”)).Select

4、'删除工作表1   Sheets(“sheet1”).Delete或 Sheets(1).Delete

5、'将该表格保存到C:\test.xls目录   ExcelSheet.SaveAs "C:\TEST.XLS"

6、'在第1工作表前添加新工作表   Sheets.Add before:=Sheets(1)

7、'在最后工作表后添加新工作表　　

Sheets.Add after:=Sheets(Sheets.Count)

8、'删除当前工作表  

ActiveWindow.SelectedSheets.Delete

可以用以下语句删除当前工作表。  　

ActiveSheet.Delete

9、保护工作表使其不至被修改。 

Sheets(“工作表名 ”).Protect(Password)  

10、撤销工作表保护使其被修改。

Sheets(“工作表名 ”).Unprotect(Password)  

示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 

11、添加工作表   Sheets.Add

12、当前工作表命名   ActiveSheet.Name = "www"

13、选定下（上）一个工作表  

sheets(activesheet.index-1).select sheets(activesheet.index+1).select

14、'取消工作表标签     

ActiveWindow.DisplayWorkbookTabs = False

15、'格式＿工作表不能重命名 

 Application.CommandBars("Sheet").Controls(1).Enabled=False

16、'取消工作表标签    ActiveWindow.DisplayWorkbookTabs = False

17、'右键菜单不能重命名 

Application.CommandBars.FindControl(ID:=889).Enabled = False

18、'工作表加密  

Worksheets（″基础数据表″）.Protect Password:="1234"

19、'深度隐藏工作表   Sheet1.Visible = 2

20、'显示工作表   Sheet1.Visible =-1

21、‘当前工作表中已使用的行数

ActiveSheet.UsedRange.Rows.Count

22、Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)
23、Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum

24、ThisWorkbook.Sheets.Add Before:=Worksheets(1)'添加一个新工作表在第一工作表前

25、ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后

26、Sheets(“sheet1”).Delete或 Sheets(1).Delete '删除工作表1

27、ActiveWorkbook.Sheets(i).Name '获取工作表i的名称

28、'切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮

ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlines

29、‘切换工作表中的行列边框显示

ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings

30、ActiveSheet.UsedRange.FormatConditions.Delete‘删除当前工作表中所有的条件格式

31、'将页面设置更改为横向

ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2

32、‘在页面设置的表尾中输入文件路径

ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName

33 ‘将用户名放置在活动工作表的页脚

ActiveSheet.PageSetup.LeftFooter=Application.UserName

34、‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列ActiveSheet.Range("A:B").SortKey1:=Columns("B"), Key2:=Columns("A"),_   Header:=xlYes

35、'开启数据记录单   ActiveS heet.ShowDataForm

 

 

 

 

 

 

 

工作簿

1、定制自己的状态栏  Application.StatusBar = "现在时刻: " & Time

2、恢复自己的状态栏   Application.StatusBar = false

3、关闭屏幕更新  Application.ScreenUpdate=False

4、'打开屏幕刷新   Application.ScreenUpdating=True

5、删除一个文件   kill "c:\1.txt"

6、'退出EXCEL  Application.Quit

7、‘将文本写到状态栏  Application.StatusBar=”请等待……”

8、‘更新状态栏文本，以变量Percent代表完成的百分比  Application.StatusBar=”请等待……” & Percent& “% Completed”

9、MkDir "D:\Music"  建立文件夹的方法

10、打开文件夹的方法   ActiveWorkbook.FollowHyperlink Address:="D:\Music",NewWindow:=True   

11、'以本工作表名称另存文件到当前目录

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path& "\" & ActiveSheet.Name& ".xls"

12、新建  Workbooks.Add 

打开  Workbooks.Open "路径 \" &"文件名 .xls" 

13、关闭同时保存  Workbooks("filename.xls").Closesavechanges:=True 

14、.关闭同时不保存  Workbooks("filename.xls").Closesavechanges:=False 

15、.Excel程序的关闭 Application.Quit 

16、关闭Excel的警告提示。  　Application.DisplayAlerts =False

17、'全屏显示    Application.DisplayFullScreen = True

18、不保存直接关闭当前的工作簿  Workbooks("BOOK1.XLS").Close SaveChanges:=False

19、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句

Application.DisplayAlerts = False         Application.Quit

20、'保护工作簿  ActiveSheet.Protect

21、'取消保护工作簿  ActiveSheet.Unprotect

22、'给当前工作簿改名为 "liu"  ActiveSheet.Name ="liu"

23、'增加一个工作簿  Worksheets.Add

24、'删除当前工作簿  activesheet.delete

25、'打开一个文件  Workbooks.Open FileName:="C:\MyDocuments\Book2.xls"

26、'关闭当前工作簿  ActiveWindow.Close

27、‘返回工作簿代码的名称   ActiveWorkbook.CodeName  ThisWorkbook.CodeName

28、‘返回当前工作簿的路径(注:若未保存,则为空)  ThisWorkbook.PathActiveWorkbook.Path

29、‘将状态栏重新设置成正常状态 

  Application.StatusBar=False

30、‘返回活动工作表的名称    Application.ActiveSheet.Name

31、‘返回活动窗口的标题    Application.ActiveWindow.Caption

32、‘返回活动工作簿的名称    Application.ActiveWorkbook.Name

33、去掉XLS文件头上菜单栏的“MIcrosoft EXCEL ”字样 Application.Caption ="专用表格"

34、设置 15 秒后运行 my_Procedure 过程，从现在开始计时。

Application.OnTime Now + TimeValue("00:00:15"),"my_Procedure"

35、设定 my_Procedure 这个宏在下午 5 点开始执行。

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

36、以某一单元格中的值为文件名保存  

 ActiveWorkbook.SaveCopyAsStr(Range("Sheet1!A1")) + ".xls"

37、ThisWorkbook.Save '保存工作簿

38、 ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
39、 ActiveWorkbook.name '返回活动工作薄的名称
40、 ThisWorkbook.Name ‘返回当前工作簿名称
ThisWorkbook.FullName ‘返回当前工作簿路径和名称
41、 ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小
42、 Application.Window.Arrange xlArrangeStyleTiled‘将工作簿以平铺方式排列
43、 ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化
44、‘返回当前工作簿的名称    Application.ThisWorkbook.Name

 

 

 

Dim fs, d, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set d =fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)))

s = d.serialnumber '磁盘序列号

If s = 要使用的电脑磁盘序列号 Then Exit Sub

Dim FirstDate, de, days

FirstDate = Date

de = GetSetting("XXX", "YYY", "date", "") '从注册表取值

If de = "" Then '如果取不到值

SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表

MsgBox "本文件可使用120天，今天是第1次使用", , "提示"

Else

days = Date - CDate(de) '计算文件使用的天数

If days > 120 Then '如果文件使用超过60天

MsgBox "已超过使用期限，本文件将自杀", , "警告"

ThisWorkbook.ChangeFileAccess xlReadOnly '改为只读属性

Kill ThisWorkbook.FullName '自杀

ThisWorkbook.Close False '关闭不保存

End If

MsgBox "本文件已使用" & days & "天，还有"& 120 - days & "天可使用", , "提示"

End If