教學第92題-Visual Basic巨集模組程式初階研習7

tony0938

學習題目： Visual Basic巨集模組程式研習

研習題目  

13 目前活頁簿 Active Workbook

為目前工作的活頁簿命名

ActiveWorkbook是目前工作活頁簿物件，利用此物件您可以執行一些與活頁簿有關的動作。例如，下列可關閉一個活頁簿。

ActiveWorkbook.Close

下列是設定活頁簿

ActiveWorkbook.SaveAs FileName="活頁簿名稱"

Public SubRnWorkBookName()

Dim prompt AsString, resultText As String

prompt = "請為活頁簿命名"

resultText =InputBox(prompt)

ActiveWorkbook.SaveAsFilename:=resultText

End Sub

……………………………………………………..

14 程式物件 Application

結束執行Excel

只要執行ExitExcel巨集即可結束執行MicrocsoftExcel。

Application主要是用於只應用程式，例如對Excel軟體而言是指Microcsoft Excel程式，若是我們想結束執行Excel軟體，可以使用下列指令格式。

Application.Quit

Public SubExitExcel()

Application.Quit

End Sub

………………………………………………………

15 活頁簿命名

為目前工作的活頁簿命名

ActiveWorkbook是目前工作活頁簿物件，利用此物件您可以執行一些與活頁簿有關的動作。例如，下列可關閉一個活頁簿。

ActiveWorkbook.Close

下列是設定活頁簿

ActiveWorkbook.SaveAs FileName="活頁簿名稱"

Public SubRnWorkBookName()

Dim prompt AsString, resultText As String

prompt = "請為活頁簿命名"

resultText =InputBox(prompt)

ActiveWorkbook.SaveAsFilename:=resultText

End Sub

範例檔案：應用題研習-7 (歡迎下載)

應用題研習-7做完的同學請把檔案回傳給我，以方便老師幫你們做檢查喔！

同樣歡迎其他班別學員一起學習喔！

若是還有不了解之處學員們可利用回覆視窗與我聯絡喔！

新加入學員可以將已經上線的學習作業檔、線上教育訓練檔、作品呈現檔、原創檔下載下來

聯成電腦  版主位置：職訓多媒體&網頁設計班  tony黃正升老師

1030906