photosdematures.com

Pag-andar ng Excel VBA FileCopy

Ang File Copy ay isang inbuilt na function ng vba na ginamit upang kopyahin ang file mula sa isang lokasyon patungo sa isa pang nabanggit na lokasyon. Upang magamit ang pagpapaandar na ito, kailangan naming banggitin ang kasalukuyang landas ng file at patutunguhang file path.

Ok, tingnan natin ang syntax ng pagpapaandar ng FileCopy.

• Pinagmulan: Ito ay walang anuman kundi mula sa kung saan kailangan nating kopyahin ang file. Kailangan naming banggitin ang ganap na kwalipikadong landas ng folder.
• Patutunguhan: Ito ang patutunguhang folder kung saan kailangan naming i-paste ang kinopyang file.

Mga halimbawa

Nasa ibaba ang mga halimbawa ng kung paano kumopya ng mga file gamit ang VBA Code.

Maaari mong i-download ang VBA File Copy Excel Template dito - VBA File Copy Excel Template

Halimbawa # 1

Magsimula tayo sa isang simpleng halimbawa. Mayroon akong isang file na pinangalanan bilang "Sales April 2019" sa folder. Nasa ibaba ang imahe ng pareho hal. "Pinagmulan”.

Mula sa lokasyon sa itaas, nais kong kopyahin ang file na ito at i-paste sa ibang folder. Nasa ibaba ang imahe ng pareho hal. "Pinagmulan ng patutunguhan ".

Ok, isulat natin ang code para dito.

Buksan FileCopy gumana sa loob ng pamamaraan ng Sub.

Code:

 Sub FileCopy_Example1 ()

FileCopy

Wakas Sub

Ngayon para sa unang argumento, kailangan naming banggitin ang file path kung saan naroon ang aming kasalukuyang.

Code:

 Sub FileCopy_Example1 ()

FileCopy na “D: \ My Files \ VBA \ April Files

Wakas Sub

Matapos banggitin ang path ng folder kailangan nating banggitin ang file na may extension din ng file. Kaya banggitin ang pangalan ng file sa pamamagitan ng paglalagay ng isang backslash (\).

Code:

 Sub FileCopy_Example1 () FileCopy "D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx", End Sub 

Ngayon sa pangalawang argument ay banggitin kung saan kailangan nating i-paste ang kinopyang file.

Code:

 Sub FileCopy_Example1 () FileCopy "D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx", "D: \ My Files \ VBA \ Destination Folder \ Sales April 2019.xlsx" End Sub 

Isang bagay na kailangan nating gawin pagkatapos na banggitin ang folder path sa dulo kailangan naming banggitin ang pangalan ng file pati na rin sa patutunguhang argumento.

Patakbuhin ngayon ang code gamit ang F5 key o manu-mano pagkatapos, kokopyahin nito ang file mula sa ibaba lokasyon sa isang patutunguhang lokasyon.

"D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx"

"D: \ My Files \ VBA \ Destination Folder \ Sales April 2019.xlsx"

Halimbawa # 2 - Gumamit ng Mga variable upang mag-imbak ng Path ng Pinagmulan at Destination Path.

Sa nakaraang halimbawa, na-supply namin ang path ng mapagkukunan at path ng patutunguhan nang direkta sa formula. Ngunit hindi ito ang pinakamahusay na kasanayan upang magpatuloy, kaya iimbak natin ang mga ito sa mga variable.

Para sa isang halimbawa tingnan ang code sa ibaba.

Code:

 Sub FileCopy_Example2 () Dim SourcePath Bilang String Dim DestinationPath Bilang String SourcePath = "D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx" DestinationPath = "D: \ My Files \ VBA \ Destination Folder \ Sales April 2019. xlsx "FileCopy SourcePath, DestinationPath End Sub 

Hayaan mong ipaliwanag ko ang code nang detalyado para sa iyo.

Una ay idineklara ko ang dalawang variable.

 Dim SourcePath Bilang String Dim DestinationPath Bilang String 

Pagkatapos para sa unang variable, naitalaga ko ang folder path mula sa kung saan kailangang kopyahin ang file at ang pangalan ng file kasama ang extension ng file.

SourcePath = "D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx"

Para sa pangalawang variable na katulad, naitalaga ko ang patutunguhang folder path na may pangalan ng file at excel extension.

DestinationPath = "D: \ My Files \ VBA \ Destination Folder \ Sales April 2019.xlsx"

Pagkatapos para sa formula na FileCopy, naibigay ko ang mga variable na ito sa halip na mahabang mga string ng path ng folder.

FileCopy SourcePath, DestinationPath

Tulad nito, maaari kaming gumamit ng mga variable upang maiimbak ang mga landas at magamit ito nang mahusay.

Halimbawa # 3 - Error sa Pag-andar ng File Copy

Minsan ang pag-andar ng File Copy ay nakakasalubong ng isang error ng "Pahintulot na Tinanggihan".

Ang dahilan kung bakit nakuha namin ang error na ito dahil kapag binuksan ang file ng pagkopya at kung susubukan mong kopyahin ang error sa itaas ay dumating, kaya palaging isara ang file at ipatupad ang code.