【VBA編程】14.操作活頁簿對象

標籤：column   工作   設定   word   位置   gets   開始   cat   file   

【訪問活頁簿】

對已經開啟的活頁簿，可以通過使用索引號來訪問活頁簿，也可以通過名稱來訪問活頁簿

【代碼地區】

Sub 訪問活頁簿()    Dim counter As Integer    counter = Workbooks.Count    Debug.Print    Debug.Print "當前開啟活頁簿的數目為：" & CStr(counter)    Debug.Print "按索引號訪問活頁簿如下："    Debug.Print "第一個活頁簿是：" & Workbooks(1).name    Debug.Print "第一個活頁簿是：" & Workbooks(2).name    Debug.Print "按名稱訪問活頁簿如下："    Debug.Print "第一個活頁簿是：" & Workbooks("VBA.xlsm").name    Debug.Print "第一個活頁簿是：" & Workbooks("TEST.xlsx").nameEnd Sub

【列印結果】

現在開啟的活頁簿為：

【擷取活頁簿資訊】

【代碼地區】

Sub 擷取活頁簿資訊()    Dim wb As Workbook    Set wk = Workbooks(1)    wk.Activate    Debug.Print    Debug.Print "當前Excle文檔的資訊如下："    Debug.Print "活頁簿的名稱為：" & wk.name    Debug.Print "活頁簿的儲存位置為：" & wk.Path    Debug.Print "活頁簿是否唯讀：" & CStr(wk.ReadOnly)    Debug.Print "活頁簿的全名為：" & wk.FullName    Debug.Print "活頁簿是否要求輸入密碼：" & wk.HasPasswordEnd Sub

【結果展示】

【建立活頁簿】

【代碼地區】

Sub 建立活頁簿()    Dim wb As Workbook    Dim wk As Worksheet    Rem 設定初始化活頁簿中預設的工作表數目    Application.SheetsInNewWorkbook = 2    Set wb = Workbooks.Add ‘建立活頁簿    Set ws = wb.Sheets(1)    ws.name = "產品"    Set ws = wb.Sheets(2)    ws.name = "原料"    Rem 恢複初始活頁簿中預設的工作表    Application.SheetsInNewWorkbook = 3    MsgBox "成功完成了建立活頁簿！", vbOKOnly, "建立活頁簿"    Set wb = Nothing    Set ws = NothingEnd Sub

【結果展示】

                                                                                                 

【使用對話方塊開啟活頁簿】

【代碼地區】

Sub 使用對話方塊開啟活頁簿()    Dim fileInformation As String    fileInformation = Application.GetOpenFilename("Excle 活頁簿(*.xlsx),*.xlsx")End Sub

【結果展示】

 

【備份活頁簿】

【代碼地區】

Sub 備份活頁簿()    Dim wk As Workbook    Dim mypath As String    Dim myfile As String    Dim filefull As String    Set wk = Workbooks(1)    wk.Activate    mypath = wk.Path    myfile = "備份" + wk.name    filefull = mypath + "\" + myfile    wk.SaveCopyAs filefull    ‘vbLf 換行    MsgBox "備份成功！" & vbLf & "備份檔案於" & mypath & "\" & & myfile & vbLf & "備份檔案的全名為：" & filefull, vbOKOnly, "備份活頁簿"    Set wk = NothingEnd Sub

【效果展示】

                                                        

                                                   

【使用儲存對話方塊儲存活頁簿】

【代碼地區】

Sub 使用儲存對話方塊來儲存檔案()    Dim wk As Workbook    Dim fileinfo As String    Set wk = Workbooks(1)    wk.Activate    fileinfo = Application.GetSaveAsFilename(exclefile, "Excle 活頁簿(*.xlsm),*.xlsx")    If fileinfo = "False" Then    MsgBox "請輸入活頁簿名字", vbOKOnly, "儲存活頁簿"    Exit Sub    End If    wk.SaveAs Filename:=fileinfo    Set wk = NothingEnd Sub

【效果展示】

【設定活頁簿視窗大小】

【代碼地區】

 

Sub 設定活頁簿視窗大小()    Dim win As Window    Dim windate As Long    Dim winwidth As Long    Dim winheight As Double    Set win = Application.ActiveWindow    win.Activate    With win        winstate = .WindowState        winwidth = .Width        winheight = .Height                ‘設定視窗狀態        .WindowState = xlNormal        .Width = 600        .Height = 300        MsgBox "設定視窗大小之前：" & vbLf & "視窗狀態為：" & CStr(winstate) & vbLf & "視窗寬度為：" & CStr(winwidth) & vbLf & "視窗高度為：" & CStr(winheight) & vbLf & "設定視窗大小之後：" & vbLf & "視窗狀態為：" & CStr(.WindowState) & vbLf & "視窗寬度為：" & CStr(.Width) & vbLf & "視窗高度為：" & CStr(.Height)    End WithEnd Sub

【效果展示】

 

【凍結視窗】

在Excle中可以直接使用凍結視窗凍結，但是這個不是很方便

下面我們使用宏來自訂凍結的行

【代碼地區】

 

Sub 凍結視窗()    Dim win As Window    Set win = Application.ActiveWindow    With win        .Split = True ‘凍結開關開啟        .SplitColumn = 4 ‘從第4列開始凍結        .SplitRow = 3    ‘從第3行開始凍結    End With     win.FreezePanes = True ‘拆分凍結項開啟     MsgBox "凍結完成！", vbOKOnly, "凍結視窗"     Set win = NothingEnd Sub

 

【效果展示】

【更改活頁簿名稱】

【代碼地區】

Sub 更改活頁簿名稱()    Dim filename As String    filename = "C:\OLIVER.xlsx"    Name filename As "C:\OLIVER_附件.xlsx"    MsgBox ("活頁簿名稱修改完成"), vbOKOnly, "修改名稱"End Sub

【效果展示】

【關閉活頁簿】

【代碼地區】

 Application.ActiveWorkbook.Close Application.Quit

 

【VBA編程】14.操作活頁簿對象