分享成果，隨喜真能量。大家好，今天繼續和大家分享VBA編程中常用的過程代碼。過程代碼在這里講解的語句非常簡單單一，簡單的語句組合起來就是一個復雜的過程，我們要認真掌握這些簡單的過程，為我們復雜的工程服務。這也是我"搭積木"編程的思想。

VBA過程代碼46：添加并保存新工作簿

Sub MyNZ()

Dim Wk As Workbook

Set Wk = Workbooks.Add

Application.DisplayAlerts = False

Wk.SaveAs Filename:="D:/SalesData.xlsx"

Application.DisplayAlerts = true

End Sub

代碼的解析說明：本示例使用了Add方法和SaveAs方法，添加一個新工作簿并將該工作簿以文件名SalesData.xlsx保存在D盤中。其中，語句Application.DisplayAlerts = False表示禁止彈出警告對話框,用完之后一定要恢復。

VBA過程代碼47：打開工作簿(Open方法)

Sub MyNZ()

Workbooks.Open "/"

End Sub

代碼的解析說明：代碼中的<>里的內容需用所需打開的文件的路徑及文件名代替。Open方法共有15個參數，其中參數FileName為必需的參數，其余參數可選。

VBA過程代碼48：工作簿以只讀方式打開

Sub MyNZ()

Dim fname As String

MsgBox "將D盤中的工作簿以只讀方式打開"

fname = "D:/測試.xlsX"

Workbooks.Open Filename:=fname, ReadOnly:=True

End Sub

代碼的解析說明：代碼中的<>里的測試.xlsx文件將以只讀的方式被打開，其中用到的設置是ReadOnly:=True

VBA過程代碼49：將文本文件(.txt)導入工作簿中(OpenText方法)

Sub MyNZ()

'本示例打開某文本文件并將制表符作為分隔符對此文件進行分列處理轉換成為工作表

Workbooks.OpenText Filename:="/", _

DataType:=xlDelimited, Tab:=True

End Sub

代碼的解析說明：代碼中的<>里的內容需用所載入的文本文件所在路徑及文件名代替。OpenText方法的作用是導入一個文本文件，并將其作為包含單個工作表的工作簿進行分列處理，然后在此工作表中放入經過分列處理的文本文件數據。該方法共有18個參數，其中參數FileName為必需的參數，其余參數可選。

VBA過程代碼50：保存工作簿(Save方法)

Sub MyNZ()

MsgBox "保存當前工作簿."

ActiveWorkbook.Save

End Sub

代碼的解析說明：上述過程保存當前的工作薄，相當于點擊保存。

看板：

下面是我根據我自己20多年的VBA實際利用經驗，編寫的幾部經驗教程，全是滿滿的"干貨"，對于應用來講，足矣，歡迎有需要的朋友聯絡(WeChat:NZ9668)，分享；對于想理論研究的朋友請靜候明年我的下一部高級教程。

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

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

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

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

總結

以上是生活随笔為你收集整理的vba 当前文件名_值得学习和珍藏的VBA常用编程代码语句的全部內容，希望文章能夠幫你解決所遇到的問題。

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