藍(lán)字關(guān)注，加微信NZ9668獲資料信息

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

頭條百家平臺(tái) VBA資深創(chuàng)作者

_______________________________

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

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

Sub MyNZ()

? Dimwb As Workbook

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

? ForEach wb In Application.Workbooks

???wb.Save

?Next wb

?Application.Quit

End Sub

代碼的解析說明：上述過程保存當(dāng)前的所有打開的工作薄，然后退出Application.Quit，在保存的時(shí)候用了一個(gè)for each 遍歷循環(huán)，對(duì)于Application.Workbooks集合中的每一個(gè)元素

Wb 都要執(zhí)行一次保存的操作。? ? ? ?

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

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

Sub MyNZ()

? Dimwb As Workbook

? ForEach wb In Workbooks

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

?Next wb

End Sub

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

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

Sub MyNZ()

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

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

End Sub

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

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

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

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

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

Sub MyNZ()

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

?ActiveWorkbook.SaveAs CreateBackup:=True

End Sub

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

看板：

下面是我根據(jù)我自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，編寫的幾部經(jīng)驗(yàn)教程，全是滿滿的“干貨”，對(duì)于應(yīng)用來講，足矣，歡迎有需要的朋友聯(lián)絡(luò)(WeChat:NZ9668)分享；其中視頻教程的優(yōu)惠活動(dòng)正在進(jìn)行中。

1 《VBA代碼解決方案》是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)。

2 《VBA數(shù)據(jù)庫解決方案》是數(shù)據(jù)處理的利器；

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

4? 面向初學(xué)及中級(jí)以下學(xué)員的視頻《VBA代碼解決方案》正在錄制。看視頻，“每天20分鐘，半年精進(jìn)VBA”活動(dòng)正在火熱進(jìn)行中，越早報(bào)名，回饋越多。現(xiàn)在第一冊(cè)48講內(nèi)容已經(jīng)錄制完成，第一階段的優(yōu)惠活動(dòng)也即將結(jié)束。

_____________________________?

有啟發(fā) 點(diǎn)在看，轉(zhuǎn)給朋友?約作者 請(qǐng)留言，直接交流

更多關(guān)聯(lián)閱讀

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。