大家好，我們今日繼續(xù)講解VBA代碼解決方案的第68講內(nèi)容：利用WSH,復(fù)制文件.在上一講中，我講了利用WSH腳本語句實現(xiàn)了文件的移動的問題，今日我們繼續(xù)來講解利用這個方法實現(xiàn)文件復(fù)制的方法。

如果需要把文件從一個地方復(fù)制到另一個地方，可以使用CopyFile方法，應(yīng)用于FileSystemObject對象的CopyFile方法可以實現(xiàn)把一個或多個文件從一個地方復(fù)制到另一個地方

語法如下：object.CopyFile source, destination[, overwrite]

參數(shù)

a) object是必須的， FileSystemObject對象的名字。

b) source是必須的，指明一個或多個要被復(fù)制文件的字符串文件說明，可以包括通配符。

c) destination是必須的，指明參數(shù)source中的一個或多個文件要被復(fù)制到的接受端的字符串，不允許有通配符。

d) overwrite是可選的，表示存在的文件是否被覆蓋。如果是True，文件將被覆蓋；如果是False，它們不被覆蓋，缺省值是True。

注意 如果參數(shù)destination指定的接受端具有只讀屬性設(shè)置，不論參數(shù)overwrite的值如何設(shè)置，CopyFile方法都將失敗。

如下面的代碼所示。

Sub MyCopyFile()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject("Scripting.FileSystemObject")

MyFile.CopyFile ThisWorkbook.Path & "abc.docx", ThisWorkbook.Path & "ABC"

Set MyFile = Nothing

MsgBox "OK!"

End Sub

代碼解析：

MyCopyFile過程使用CopyFile方法將示例文件所在文件夾中的“abc.docx”文件復(fù)制到“ABC”文件夾中。

第4行代碼使用CreateObject函數(shù)創(chuàng)建FileSystemObject對象并將該對象賦給變量MyFile。

這里我們要再次回顧一下Windows Scripting Host(WSH)的作用，我們利用它創(chuàng)建控制Windows操作系統(tǒng)和應(yīng)用程序以及從操作系統(tǒng)中獲取信息小程序。使用WSH的FileSystemObject對象可以用來處理文件系統(tǒng)。使用WSH處理文件時，必需使用CreateObject函數(shù)創(chuàng)建一個ActiveX對象（FileSystemObject對象），用來提供訪問計算機的文件系統(tǒng)。這就是利用CreateObject函數(shù)的目的和作用。

第5行代碼使用CopyFile方法復(fù)制文件。

運行CopyFile過程將示例文件所在文件夾中的“abc.docx”文件復(fù)制到“ABC”文件夾中。

代碼截圖：

運行窗口：

今日內(nèi)容回向：

1 如何復(fù)制文件到指定的地點呢？

2 本講的內(nèi)容和上節(jié)的內(nèi)容同樣是移動了文件，有什么不同和相同點呢？

歡迎大家到我的自媒體平臺溝通交流：個人微信號“NZ9668”、頭條號“VBA專家”、百家號“VBA與GO語言”、微信公眾號“NZ_9668”、社群“VBA學(xué)習(xí)交流群”。

這一系列文章是根據(jù)我多年的工作經(jīng)驗編寫的，也是一直在利用的工具，非常方便好用?，F(xiàn)在分享出來，希望能對同樣在職場打拼的朋友有些許的幫助，使你的工作更加高效、流暢。朋友們有問題請隨時提出來，我們一起探討學(xué)習(xí)。對數(shù)據(jù)分析有需要的公司、組織或個人可以直接聯(lián)系我，及時為你提供專業(yè)的定制技術(shù)支持。

工作不是一切。工作是每個人安身立命、成長發(fā)展的基礎(chǔ)。但你要知道工作是永遠也做不完的，時間會抹去很多問題。多關(guān)注自己、家人和朋友，這些才是我們生活中更為重要的東西。

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

以上是生活随笔為你收集整理的vba移动文件_VBA代码解决方案的第68讲内容：利用WSH,复制文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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