欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

VBA中操作Excel常用方法總結(jié)

 更新時(shí)間：2014年07月24日 11:07:54   投稿：junjie  
這篇文章主要介紹了VBA中操作Excel常用方法總結(jié),包含關(guān)閉工作簿、打開(kāi)工作簿、切換工作表等,需要的朋友可以參考下

要用VBA來(lái)關(guān)閉工作簿，用Workbook.Close 方法即可，而要退出Excel，則用Application.Quit 方法。
下面是一些代碼示例： 關(guān)閉活動(dòng)工作簿，如果工作簿有更改，提示是否保存：

復(fù)制代碼 代碼如下:

    Sub CloseWorkbook()
    ActiveWorkbook.Close
    End Sub

如果要避免出現(xiàn)提示，可添加“SaveChanges”參數(shù)，如直接保存并關(guān)閉工作簿：

復(fù)制代碼 代碼如下:

    Sub ClostAndSaveWorkbook()
    ActiveWorkbook.Close Savechanges:=True
    End Sub

將上述代碼中的“True”改為“False”，則直接關(guān)閉工作簿而不保存。
關(guān)閉所有打開(kāi)的工作簿，并提示是否保存：

復(fù)制代碼 代碼如下:

    Sub CloseAllWorkbooks()
    On Error Resume Next
    Workbooks.Close
    End Sub

退出Excel，并提示對(duì)有更改的工作簿進(jìn)行保存：

復(fù)制代碼 代碼如下:

    Sub QuitExcel()
    Application.Quit
    End Sub

保存活動(dòng)工作簿并退出Excel：
復(fù)制代碼 代碼如下:

    Sub SaveActiveWorkAndQuit()
    ActiveWorkbook.Save
    Application.Quit
    End Sub

下面的代碼在退出Excel時(shí)都不會(huì)提示是否保存工作簿。
保存所有打開(kāi)的工作簿并退出Excel：

復(fù)制代碼 代碼如下:

    Sub SaveAllAndQuit()
    For Each wbk In Workbooks
    wbk.Save
    Next
    Application.Quit
    End Sub

退出Excel，所有的改動(dòng)都不保存：

復(fù)制代碼 代碼如下:

    Sub QutiAndNoAlerts()
    Application.DisplayAlerts = False
    Application.Quit
    End Sub

下面列舉了一些VBA的常用操作：

打開(kāi)一個(gè)新工作簿

復(fù)制代碼 代碼如下:

Workbooks.Add

獲得第一個(gè)工作簿的名稱

復(fù)制代碼 代碼如下:

Workbooks(1).Name

獲得打開(kāi)的工作簿數(shù)目
復(fù)制代碼 代碼如下:

Workbooks.Count

激活第二個(gè)打開(kāi)的工作簿

復(fù)制代碼 代碼如下:

Workbooks(2).Activate

激活工作簿Chap02.xls

復(fù)制代碼 代碼如下:

Workbooks("Chap02.xls").Activate

當(dāng)前活動(dòng)的工作簿存盤(pán)為NewChap.xls

復(fù)制代碼 代碼如下:

ActiveWorkbook.SaveAs Filename:="NewChap.xls"

關(guān)閉第一個(gè)工作簿
復(fù)制代碼 代碼如下:

Workbooks(1).Close

關(guān)閉當(dāng)前活動(dòng)的工作簿，不保存變化

復(fù)制代碼 代碼如下:

ActiveWorkbook.Close SaveChanges:=False

關(guān)閉所有打開(kāi)的工作簿

復(fù)制代碼 代碼如下:

Workbooks.Close

如果你運(yùn)行了最后一個(gè)例子，那么現(xiàn)在你所有的工作簿都已經(jīng)關(guān)閉了。
在你要在工作表上使用前，請(qǐng)確保先打開(kāi)一個(gè)新工作簿。
當(dāng)你除了單個(gè)工作表時(shí)，你必須知道如何在工作簿里添加新的工作表，知道如何選擇一個(gè)或一組工作表，知道如何命名、復(fù)制、移動(dòng)和刪除工作表。
在VB里，每個(gè)任務(wù)都需要一個(gè)專門(mén)的方法或?qū)傩浴?/p>

添加一個(gè)新工作表

復(fù)制代碼 代碼如下:

Worksheets.Add

獲得第一個(gè)工作表的名稱

復(fù)制代碼 代碼如下:

Worksheets(1).Name

選擇名為“Sheet3”的工作表

復(fù)制代碼 代碼如下:

Worksheets(3).Select

選擇第一，第三和第四個(gè)工作表
復(fù)制代碼 代碼如下:
Worksheets(Array(1,3,4)).Select

激活名為“Sheet1”的工作表

復(fù)制代碼 代碼如下:

Worksheets(“Sheet1”).Activate

將工作表“Sheet2”移動(dòng)到工作表“Sheet1”之前

復(fù)制代碼 代碼如下:

Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")

重命名工作表“Sheet2”為“Expenses”

復(fù)制代碼 代碼如下:

Worksheets("Sheet2").Name = "Expenses"

獲得當(dāng)前工作簿里的工作表數(shù)目

復(fù)制代碼 代碼如下:

Worksheets.Count

刪除當(dāng)前工作簿里的工作表“Expenses”

復(fù)制代碼 代碼如下:

Worksheets("Expenses").Delete

相關(guān)文章

最新評(píng)論