美女视频无,鞠婧祎下海视频,杨幂视频bt种子

Excel VBA 入門(3)

2019.03.31

Workbook對(duì)象代表Excel的一個(gè)工作簿，Workbook和Application的關(guān)系就是工作簿和Excel程序的關(guān)系

1. ActiveSheet屬性

ActiveSheet是一個(gè)Worksheet對(duì)象（工作表）


 Dim ws As Worksheet
 Set ws = Application.ActiveSheet
 Debug.Print ws.name
 Set ws = ActiveSheet
 Debug.Print ws.name
 Set ws = Application.ActiveWorkbook.ActiveSheet
 Debug.Print ws.name

這三種寫法意思一樣，最后一種寫法比較完全，也說(shuō)明了Excel程序->工作簿->工作表之間的關(guān)系

2. EnableAutoRecovery屬性，用于設(shè)置Excel自動(dòng)恢復(fù)功能


    If Not ActiveWorkbook.EnableAutoRecover Then
        ActiveWorkbook.EnableAutoRecover = True
        Debug.Print 'Manul Open'
    Else
        Debug.Print 'Opened'
    End If

3. HasPassword屬性，工作簿是否加密


 If ActiveWorkbook.HasPassword Then
 Debug.Print 'Has'
 Else
 Debug.Print 'Hasn't'
 End If

4. Password密碼


    Dim wb As Workbook
    Set wb = Application.WorkBooks.Open('C:\book.xlsx')    '給C盤文件加密，密碼為haha
    wb.Password = 'haha'
    wb.Save
    wb.Close

去除密碼只需Password = ''

5.其他屬性就不一一列舉了，用于獲取工作簿的信息，代碼如下


 Dim wb As Workbook
 Set wb = Application.ActiveWorkbook
 Debug.Print wb.name '文件名
 Debug.Print wb.FullName '全路徑
 Debug.Print wb.Path '路徑
 Debug.Print wb.ReadOnly '是否只讀

可能的輸出如下：

vba.xlsm
E:\Users\Desktop\vba.xlsm
E:\Users\Desktop
False

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

打開(kāi)APP，閱讀全文并永久保存查看更多類似文章

VBA在Excel中的應(yīng)用（一）

excel 過(guò)濾篩選代碼 LXy及拷貝村數(shù)據(jù)

用VB操作excel方法匯總

【VBA編程】14.操作工作簿對(duì)象

Excel VBA語(yǔ)句集

搜集各種Excel VBA的命令供參考！

更多類似文章 >>

中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频