工作簿批量改名

2015.06.06

關(guān)注

以下來源百度

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

2>如何改工作簿批量改名代碼如下用宏運(yùn)行既可

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、'刪除當(dāng)前工作表

ActiveWindow.SelectedSheets.Delete

可以用以下語句刪除當(dāng)前工作表。　

ActiveSheet.Delete

9、保護(hù)工作表使其不至被修改。

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

10、撤銷工作表保護(hù)使其被修改。

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

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

11、添加工作表 Sheets.Add

12、當(dāng)前工作表命名 ActiveSheet.Name = "www"

13、選定下（上）一個工作表

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

14、'取消工作表標(biāo)簽

ActiveWindow.DisplayWorkbookTabs = False

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

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

16、'取消工作表標(biāo)簽 ActiveWindow.DisplayWorkbookTabs = False

17、'右鍵菜單不能重命名

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

18、'工作表加密

Worksheets（″基礎(chǔ)數(shù)據(jù)表″）.Protect Password:="1234"

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

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

21、‘當(dāng)前工作表中已使用的行數(shù)

ActiveSheet.UsedRange.Rows.Count

22、Rows.Count ‘獲取工作表的行數(shù)(注：考慮向前兼容性)
23、Sheets(Sheet1).Name= “Sum” '將Sheet1命名為Sum

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

25、ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) '將當(dāng)前工作表移至工作表的最后

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

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

28、'切換工作表中的網(wǎng)格線顯示，這種方法也可以用在其它方面進(jìn)行相互切換，即相當(dāng)于開關(guān)按鈕

ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlines

29、‘切換工作表中的行列邊框顯示

ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings

30、ActiveSheet.UsedRange.FormatConditions.Delete‘刪除當(dāng)前工作表中所有的條件格式

31、'將頁面設(shè)置更改為橫向

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

32、‘在頁面設(shè)置的表尾中輸入文件路徑

ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName

33 ‘將用戶名放置在活動工作表的頁腳

ActiveSheet.PageSetup.LeftFooter=Application.UserName

34、‘兩個關(guān)鍵字排序，相鄰兩列，B列為主關(guān)鍵字，A列為次關(guān)鍵字，升序排列ActiveSheet.Range("A:B").SortKey1:=Columns("B"), Key2:=Columns("A"),_ Header:=xlYes

35、'開啟數(shù)據(jù)記錄單 ActiveS heet.ShowDataForm

工作簿

1、定制自己的狀態(tài)欄 Application.StatusBar = "現(xiàn)在時刻: " & Time

2、恢復(fù)自己的狀態(tài)欄 Application.StatusBar = false

3、關(guān)閉屏幕更新 Application.ScreenUpdate=False

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

5、刪除一個文件 kill "c:\1.txt"

6、'退出EXCEL Application.Quit

7、‘將文本寫到狀態(tài)欄 Application.StatusBar=”請等待……”

8、‘更新狀態(tài)欄文本，以變量Percent代表完成的百分比 Application.StatusBar=”請等待……” & Percent& “% Completed”

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

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

11、'以本工作表名稱另存文件到當(dāng)前目錄

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

12、新建 Workbooks.Add

打開 Workbooks.Open "路徑 \" &"文件名 .xls"

13、關(guān)閉同時保存 Workbooks("filename.xls").Closesavechanges:=True

14、.關(guān)閉同時不保存 Workbooks("filename.xls").Closesavechanges:=False

15、.Excel程序的關(guān)閉 Application.Quit

16、關(guān)閉Excel的警告提示。　Application.DisplayAlerts =False

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

18、不保存直接關(guān)閉當(dāng)前的工作簿 Workbooks("BOOK1.XLS").Close SaveChanges:=False

19、不保存直接關(guān)閉EXCEL窗口(關(guān)閉所有的工作簿)的VBA語句

Application.DisplayAlerts = False Application.Quit

20、'保護(hù)工作簿 ActiveSheet.Protect

21、'取消保護(hù)工作簿 ActiveSheet.Unprotect

22、'給當(dāng)前工作簿改名為 "liu" ActiveSheet.Name ="liu"

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

24、'刪除當(dāng)前工作簿 activesheet.delete

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

26、'關(guān)閉當(dāng)前工作簿 ActiveWindow.Close

27、‘返回工作簿代碼的名稱 ActiveWorkbook.CodeName ThisWorkbook.CodeName

28、‘返回當(dāng)前工作簿的路徑(注:若未保存,則為空) ThisWorkbook.PathActiveWorkbook.Path

29、‘將狀態(tài)欄重新設(shè)置成正常狀態(tài)

Application.StatusBar=False

30、‘返回活動工作表的名稱 Application.ActiveSheet.Name

31、‘返回活動窗口的標(biāo)題 Application.ActiveWindow.Caption

32、‘返回活動工作簿的名稱 Application.ActiveWorkbook.Name

33、去掉XLS文件頭上菜單欄的“MIcrosoft EXCEL ”字樣 Application.Caption ="專用表格"

34、設(shè)置 15 秒后運(yùn)行 my_Procedure 過程，從現(xiàn)在開始計(jì)時。

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

35、設(shè)定 my_Procedure 這個宏在下午 5 點(diǎn)開始執(zhí)行。

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

36、以某一單元格中的值為文件名保存

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

37、ThisWorkbook.Save '保存工作簿

38、 ActiveWorkbook.Sheets.Count '獲取活動工作薄中工作表數(shù)
39、 ActiveWorkbook.name '返回活動工作薄的名稱
40、 ThisWorkbook.Name ‘返回當(dāng)前工作簿名稱
ThisWorkbook.FullName ‘返回當(dāng)前工作簿路徑和名稱
41、 ActiveWindow.EnableResize=False ‘禁止調(diào)整活動工作簿的大小
42、 Application.Window.Arrange xlArrangeStyleTiled‘將工作簿以平鋪方式排列
43、 ActiveWorkbook.WindowState=xlMaximized ‘將當(dāng)前工作簿最大化
44、‘返回當(dāng)前工作簿的名稱 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