亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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

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

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

復(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)閉所有打開的工作簿，并提示是否保存：

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

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

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

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

    Sub QuitExcel()
    Application.Quit
    End Sub

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

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

下面的代碼在退出Excel時都不會提示是否保存工作簿。
保存所有打開的工作簿并退出Excel：

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

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

退出Excel，所有的改動都不保存：

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

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

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

打開一個新工作簿

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

Workbooks.Add

獲得第一個工作簿的名稱

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

Workbooks(1).Name

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

Workbooks.Count

激活第二個打開的工作簿

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

Workbooks(2).Activate

激活工作簿Chap02.xls

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

Workbooks("Chap02.xls").Activate

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

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

ActiveWorkbook.SaveAs Filename:="NewChap.xls"

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

Workbooks(1).Close

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

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

ActiveWorkbook.Close SaveChanges:=False

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

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

Workbooks.Close

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

添加一個新工作表

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

Worksheets.Add

獲得第一個工作表的名稱

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

Worksheets(1).Name

選擇名為“Sheet3”的工作表

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

Worksheets(3).Select

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

激活名為“Sheet1”的工作表

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

Worksheets(“Sheet1”).Activate

將工作表“Sheet2”移動到工作表“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)文章

最新評論