程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
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