分享成果，隨喜真能量。大家好，今天繼續(xù)和大家分享VBA編程中常用的過(guò)程代碼。過(guò)程代碼在這里講解的語(yǔ)句非常簡(jiǎn)單單一，簡(jiǎn)單的語(yǔ)句組合起來(lái)就是一個(gè)復(fù)雜的過(guò)程，我們要認(rèn)真掌握這些簡(jiǎn)單的過(guò)程，為我們復(fù)雜的工程服務(wù)。這也是我"搭積木"編程的思想。

VBA過(guò)程代碼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

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

VBA過(guò)程代碼47：打開(kāi)工作簿(Open方法)

Sub MyNZ()

Workbooks.Open "/"

End Sub

代碼的解析說(shuō)明：代碼中的<>里的內(nèi)容需用所需打開(kāi)的文件的路徑及文件名代替。Open方法共有15個(gè)參數(shù)，其中參數(shù)FileName為必需的參數(shù)，其余參數(shù)可選。

VBA過(guò)程代碼48：工作簿以只讀方式打開(kāi)

Sub MyNZ()

Dim fname As String

MsgBox "將D盤(pán)中的工作簿以只讀方式打開(kāi)"

fname = "D:/測(cè)試.xlsX"

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

End Sub

代碼的解析說(shuō)明：代碼中的<>里的測(cè)試.xlsx文件將以只讀的方式被打開(kāi)，其中用到的設(shè)置是ReadOnly:=True

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

Sub MyNZ()

'本示例打開(kāi)某文本文件并將制表符作為分隔符對(duì)此文件進(jìn)行分列處理轉(zhuǎn)換成為工作表

Workbooks.OpenText Filename:="/", _

DataType:=xlDelimited, Tab:=True

End Sub

代碼的解析說(shuō)明：代碼中的<>里的內(nèi)容需用所載入的文本文件所在路徑及文件名代替。OpenText方法的作用是導(dǎo)入一個(gè)文本文件，并將其作為包含單個(gè)工作表的工作簿進(jìn)行分列處理，然后在此工作表中放入經(jīng)過(guò)分列處理的文本文件數(shù)據(jù)。該方法共有18個(gè)參數(shù)，其中參數(shù)FileName為必需的參數(shù)，其余參數(shù)可選。

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

Sub MyNZ()

MsgBox "保存當(dāng)前工作簿."

ActiveWorkbook.Save

End Sub

代碼的解析說(shuō)明：上述過(guò)程保存當(dāng)前的工作薄，相當(dāng)于點(diǎn)擊保存。

看板：

下面是我根據(jù)我自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，編寫(xiě)的幾部經(jīng)驗(yàn)教程，全是滿滿的"干貨"，對(duì)于應(yīng)用來(lái)講，足矣，歡迎有需要的朋友聯(lián)絡(luò)(WeChat:NZ9668)，分享；對(duì)于想理論研究的朋友請(qǐng)靜候明年我的下一部高級(jí)教程。

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

2 《VBA數(shù)據(jù)庫(kù)解決方案》是數(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é)束。

總結(jié)

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

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