Chapter-07 活頁簿

第七章　活頁簿
07-01　建立新的活頁簿

應用範例
Sub 建立新的活頁簿()
MsgBox “建立新的活頁簿”
Workbooks.Add
End Sub

07-02　將活頁簿以唯讀的方式開啟

應用範例
Sub 開啟活頁簿()
Msgbox “將D磁碟內的「成績一覽表.xls」活頁簿以唯讀方式開啟”
fname = “D:\成績一覽表.xls”
Workbooks.Open Filename:=fname, ReadOnly:=True
End Sub

07-03　選取活頁簿

應用範例
Sub 選取活頁簿()
MsgBox “依序切換已開啟的活頁簿”
suu = Workbooks.Count
For i = 1 To suu
Workbooks(i).Activate
henji = MsgBox(“第 ” & i & “個活頁簿，還要繼續嗎？”, vbYesNo)
If henji = vbNo Then Exit Sub
Next i
End Sub

07-04　取得開啟中的活頁簿名稱

應用範例
Sub 活頁簿的名稱()
MsgBox “顯示使用中活頁簿的名稱”
MsgBox ActiveWorkbook.Name
End Sub

07-05　取得活頁簿的數量

應用範例
Sub 取得活頁簿的數量()
MsgBox “顯示目前已開啟的活頁簿數量”
MsgBox Workbooks.Count
End Sub

07-06　取得Excel檔案預設的存放路徑

應用範例
Sub 預設存放路徑名稱()
MsgBox “顯示Excel檔案預設存放的路徑”
MsgBox Application.DefaultFilePath
End Sub

07-07　儲存檔案

應用範例
Sub 儲存活頁簿()
MsgBox “儲存使用中的活頁簿”
ActiveWorkbook.Save
End Sub

07-08　另存新檔

應用範例
Sub 將活頁簿另存新檔()
booknme = ActiveWorkbook.Name
newbooknme = “new” & booknme
MsgBox “將「” & booknme & “」以「” & newbooknme & “」的名稱另存新檔”
folda = Application.DefaultFilePath
fname = folda & “\” & newbooknme
ActiveWorkbook.SaveAs fname
End Sub

07-09　在另存新檔時輸入新的檔案名稱

應用範例
Sub 在另存新檔視窗中輸入的檔案名稱()
MsgBox “在另存新檔視窗中輸入檔案名稱”
namae = Application.GetSaveAsFilename(FileFilter:=“Excel 2003 VBA (*.xls), *.xls”)
MsgBox namae
End Sub

07-10　存檔前自動重算

應用範例
Sub 存檔前自動重算()
MsgBox “在活頁簿中，若設定為手動計算，在存檔前將執行自動重算”
calc = Application.Calculation
If calc = xlCalculationManual Then
MsgBox “由於目前的設定為手動計算，本活頁簿在存檔前將執行自動重算”
Application.CalculateBeforeSave = True
End If
ActiveWorkbook.Save
End Sub

07-11　儲存活頁簿時一併建立備份檔案

應用範例
Sub儲存活頁簿時一併建立備份檔案()
MsgBox “儲存活頁簿時一併建立備份檔案”
ActiveWorkbook.SaveAs CreateBackup:=True
End Sub

07-12　檢查在儲存活頁簿時有無一併建立備份檔案

應用範例
Sub 檢查存檔時是否建立備份檔案()
MsgBox “儲存活頁簿時，若一併建立備份檔案，訊息視窗中將出現True，若沒有建立備份檔案則出現False”
MsgBox ActiveWorkbook.CreateBackup
End Sub

07-13　關閉活頁簿

應用範例
Sub 關閉活頁簿()
MsgBox “關閉使用中的活頁簿”
ActiveWorkbook.Close
End Sub

07-14　關閉所有的活頁簿

應用範例
Sub 關閉所有的活頁簿()
MsgBox “關閉目前開啟的所有活頁簿”
Workbooks.Close
End Sub

07-15　不儲存變更、直接關閉活頁簿

應用範例1
Sub 關閉活頁簿並不予存檔1()
MsgBox “關閉使用中的活頁簿，不論其內容是否被變更都不會存檔”
Activeworkbook.Close SaveChanges:=False
End Sub

應用範例2
Sub 關閉活頁簿並不予存檔2()
MsgBox “關閉使用中的活頁簿，不論其內容是否被變更都不會存檔”
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

07-16　設定數字的精確度

應用範例
Sub 設定精確度()
MsgBox “在使用中儲存格人輸入1/3，將計算結果算至小數點後兩位”
ActiveCell.Value = 1/3
ActiveCell.NumberFormatLocal = “0.00”
suu = ActiveCell.Value * 3
MsgBox “將使用中儲存格內的數字乘以3等於：” & suu
MsgBox “接著，將數值類別設為「數值」”
ActiveWorkbook.PrecisionAsDisplayed = True
suu = ActiveCell.Value * 3
MsgBox “將使用中儲存格內的數字乘以3等於：” & suu & “而不是1”
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub