程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VBA中操作Excel常用辦法總結

VBA中操作Excel常用辦法總結

編輯:VB綜合教程

VBA中操作Excel常用辦法總結。本站提示廣大學習愛好者:(VBA中操作Excel常用辦法總結)文章只能為提供參考,不一定能成為您想要的結果。以下是VBA中操作Excel常用辦法總結正文


要用VBA來封閉任務簿,用Workbook.Close 辦法即可,而要加入Excel,則用Application.Quit 辦法。
上面是一些代碼示例: 封閉活開工作簿,假如任務簿有更改,提示能否保管:

    Sub CloseWorkbook()
    ActiveWorkbook.Close
    End Sub
假如要防止呈現提示,可添加“SaveChanges”參數,如直接保管並封閉任務簿:


    Sub ClostAndSaveWorkbook()
    ActiveWorkbook.Close Savechanges:=True
    End Sub
將上述代碼中的“True”改為“False”,則直接封閉任務簿而不保管。
封閉一切翻開的任務簿,並提示能否保管:


    Sub CloseAllWorkbooks()
    On Error Resume Next
    Workbooks.Close
    End Sub
加入Excel,並提示對有更改的任務簿停止保管:


    Sub QuitExcel()
    Application.Quit
    End Sub
保管活開工作簿並加入Excel:

    Sub SaveActiveWorkAndQuit()
    ActiveWorkbook.Save
    Application.Quit
    End Sub
上面的代碼在加入Excel時都不會提示能否保管任務簿。
保管一切翻開的任務簿並加入Excel:


    Sub SaveAllAndQuit()
    For Each wbk In Workbooks
    wbk.Save
    Next
    Application.Quit
    End Sub
加入Excel,一切的改動都不保管:


    Sub QutiAndNoAlerts()
    Application.DisplayAlerts = False
    Application.Quit
    End Sub
上面羅列了一些VBA的常用操作:

翻開一個新任務簿


Workbooks.Add
取得第一個任務簿的稱號


Workbooks(1).Name
取得翻開的任務簿數目

Workbooks.Count
激活第二個翻開的任務簿


Workbooks(2).Activate
激活任務簿Chap02.xls


Workbooks("Chap02.xls").Activate
以後活動的任務簿存盤為NewChap.xls


ActiveWorkbook.SaveAs Filename:="NewChap.xls"
封閉第一個任務簿

Workbooks(1).Close
封閉以後活動的任務簿,不保管變化


ActiveWorkbook.Close SaveChanges:=False
封閉一切翻開的任務簿


Workbooks.Close
假如你運轉了最後一個例子,那麼如今你一切的任務簿都曾經封閉了。
在你要在任務表上運用前,請確保先翻開一個新任務簿。
當你除了單個任務表時,你必需知道如何在任務簿裡添加新的任務表,知道如何選擇一個或一組任務表,知道如何命名、復制、挪動和刪除任務表。
在VB裡,每個義務都需求一個專門的辦法或屬性。

添加一個新任務表


Worksheets.Add
取得第一個任務表的稱號


Worksheets(1).Name
選擇名為“Sheet3”的任務表


Worksheets(3).Select
選擇第一,第三和第四個任務表
Worksheets(Array(1,3,4)).Select
激活名為“Sheet1”的任務表


Worksheets(“Sheet1”).Activate
將任務表“Sheet2”挪動到任務表“Sheet1”之前


Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")
重命名任務表“Sheet2”為“Expenses”


Worksheets("Sheet2").Name = "Expenses"
取得以後任務簿裡的任務表數目


Worksheets.Count
刪除以後任務簿裡的任務表“Expenses”


Worksheets("Expenses").Delete

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved