藍字關注，加微信NZ9668獲資料信息

?VBA解決方案 ? 系列叢書作者?

頭條百家平臺 VBA資深創作者

_______________________________

分享成果，隨喜真能量。大家好，今天繼續和大家分享VBA編程中常用的過程代碼。簡單的過程組合起來就是一個復雜的過程，越簡單的事物往往越容易理解，我們要認真掌握這些簡單的過程，為我們復雜的工程服務。這也是我“搭積木”編程的思想。

VBA過程代碼51：存所有打開的工作簿后退出Excel.

Sub MyNZ()

? Dimwb As Workbook

?MsgBox "保存所有打開的工作簿后退出Excel."

? ForEach wb In Application.Workbooks

???wb.Save

?Next wb

?Application.Quit

End Sub

代碼的解析說明：上述過程保存當前的所有打開的工作薄，然后退出Application.Quit，在保存的時候用了一個for each 遍歷循環，對于Application.Workbooks集合中的每一個元素

Wb 都要執行一次保存的操作。? ? ? ?

?----------------------------------------------------------------------------

VBA過程代碼52：保存原來已存在且已打開的工作簿

Sub MyNZ()

? Dimwb As Workbook

? ForEach wb In Workbooks

???If wb.Path <> "" Then wb.Save

?Next wb

End Sub

代碼的解析說明：本示例過程保存原來已存在且已打開的工作簿。其中用到了一個For Each的循環。在判斷是否是已經存在的文件時用到了If wb.Path <> ""，wb.Path會返回工作薄的路徑。

VBA過程代碼53：將工作簿以指定名保存在默認文件夾中

Sub MyNZ()

?MsgBox "將工作簿以指定名保存在默認文件夾中."

?? ActiveWorkbook.SaveAs "<工作簿名>.xls"

End Sub

代碼的解析說明：SaveAs方法相當于“另存為……”命令，以指定名稱保存工作簿。該方法有12個參數，均為可選參數。如果未指定保存的路徑，那么將在默認文件夾中保存該工作簿。如果文件夾中該工作簿名已存在，則提示是否替換原工作簿。

VBA過程代碼54：將工作簿以指定名保存在默認文件夾中

Sub MyNZ()

? DimoldName As String, newName As String

? DimfolderName As String, fname As String

?oldName = ActiveWorkbook.Name

?newName = "new" & oldName

?MsgBox "將以的名稱保存"

?folderName = Application.DefaultFilePath

?fname = folderName & "/" & newName

?ActiveWorkbook.SaveAs fname

End Sub

代碼的解析說明：本示例將當前工作簿以一個新名(即new加原名)保存在默認文件夾中。?

VBA過程代碼55：保存工作簿并建立備份工作簿

Sub MyNZ()

?MsgBox "保存工作簿并建立備份工作簿"

?ActiveWorkbook.SaveAs CreateBackup:=True

End Sub

代碼的解析說明：本示例將在當前文件夾中建立工作簿的備份，注意備份的位置是工作薄的默認位置。

看板：

下面是我根據我自己20多年的VBA實際利用經驗，編寫的幾部經驗教程，全是滿滿的“干貨”，對于應用來講，足矣，歡迎有需要的朋友聯絡(WeChat:NZ9668)分享；其中視頻教程的優惠活動正在進行中。

1 《VBA代碼解決方案》是VBA中各個知識點的講解，覆蓋了絕大多數的知識點。

2 《VBA數據庫解決方案》是數據處理的利器；

3 《VBA數組與字典解決方案》中講解VBA的精華----字典。

4? 面向初學及中級以下學員的視頻《VBA代碼解決方案》正在錄制。看視頻，“每天20分鐘，半年精進VBA”活動正在火熱進行中，越早報名，回饋越多。現在第一冊48講內容已經錄制完成，第一階段的優惠活動也即將結束。

_____________________________?

有啟發 點在看，轉給朋友?約作者 請留言，直接交流

更多關聯閱讀

總結

以上是生活随笔為你收集整理的vba代码编程800例_一组实用的VBA常用编程代码语句分享的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。