Salinan File VBA

Fungsi FileCopy VBA Excel

File Copy adalah fungsi vba inbuilt yang digunakan untuk menyalin file dari satu lokasi ke lokasi lain yang disebutkan. Untuk menggunakan fungsi ini, kita perlu menyebutkan jalur file saat ini dan jalur file tujuan.

Ok, mari kita lihat sintaks dari fungsi FileCopy.

• Sumber: Ini tidak lain adalah dari mana kita perlu menyalin file. Kami perlu menyebutkan jalur folder yang memenuhi syarat.
• Tujuan: Ini adalah folder tujuan tempat kita perlu menempelkan file yang disalin.

Contoh

Di bawah ini adalah contoh cara menyalin file menggunakan Kode VBA.

Anda dapat mengunduh Template Excel Salinan File VBA ini di sini - Template Excel Salinan File VBA

Contoh 1

Mari kita mulai dengan contoh sederhana. Saya memiliki file bernama "Penjualan April 2019" di folder. Di bawah ini adalah gambar yang sama yaitu " Sumber ".

Dari lokasi di atas, saya ingin menyalin file ini dan menempelkannya ke folder lain. Di bawah ini adalah gambar yang sama yaitu " Sumber Tujuan".

Oke, mari kita tulis kode untuk itu.

Buka fungsi FileCopy di dalam prosedur Sub.

Kode:

 Sub FileCopy_Example1 ()

FileCopy

Akhiri Sub

Sekarang untuk argumen pertama, kita perlu menyebutkan jalur file tempat kita saat ini berada.

Kode:

 Sub FileCopy_Example1 ()

FileCopy "D: \ File Saya \ VBA \ File April

Akhiri Sub

Setelah menyebutkan jalur folder, kita perlu menyebutkan file dengan ekstensi file juga. Jadi sebutkan nama file dengan memberi tanda garis miring terbalik (\).

Kode:

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

Sekarang di argumen kedua, sebutkan di mana kita perlu menempelkan file yang disalin.

Kode:

 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 

Satu hal yang perlu kita lakukan setelah menyebutkan jalur folder di bagian akhir kita perlu menyebutkan nama file juga di argumen tujuan.

Sekarang jalankan kode menggunakan tombol F5 atau secara manual, itu akan menyalin file dari lokasi di bawah ini ke lokasi tujuan.

“D: \ My Files \ VBA \ April Files \ Sales April 2019.xlsx”

“D: \ File Saya \ VBA \ Folder Tujuan \ Penjualan April 2019.xlsx”

Contoh # 2 - Menggunakan Variabel untuk Menyimpan Jalur Sumber dan Jalur Tujuan.

Dalam contoh sebelumnya, kami telah memberikan jalur sumber dan jalur tujuan langsung ke rumus. Tetapi ini bukan praktik terbaik untuk melanjutkan, jadi mari kita simpan dalam variabel.

Untuk contoh lihat kode di bawah ini.

Kode:

 Sub FileCopy_Example2 () Redupkan SourcePath Sebagai String Redup DestinationPath Sebagai String SourcePath = "D: \ My Files \ VBA \ April Files \ Penjualan April 2019.xlsx" DestinationPath = "D: \ File Saya \ VBA \ Folder Tujuan \ Penjualan April 2019. xlsx "FileCopy SourcePath, DestinationPath End Sub 

Izinkan saya menjelaskan kode secara rinci untuk Anda.

Pertama saya telah menyatakan dua variabel.

 Dim SourcePath Sebagai String Dim DestinationPath Sebagai String 

Kemudian untuk variabel pertama, saya telah menetapkan jalur folder dari mana ia harus menyalin file dan nama file beserta ekstensi filenya.

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

Untuk variabel kedua juga, saya telah menetapkan jalur folder tujuan dengan nama file dan ekstensi excel.

DestinationPath = "D: \ File Saya \ VBA \ Folder Tujuan \ Penjualan April 2019.xlsx"

Kemudian untuk rumus FileCopy, saya telah menyediakan variabel ini sebagai ganti string jalur folder yang panjang.

FileCopy SourcePath, DestinationPath

Seperti ini, kita dapat menggunakan variabel untuk menyimpan jalur dan menggunakannya secara efisien.

Contoh # 3 - Kesalahan dengan Fungsi Salin File

Terkadang fungsi File Copy mengalami error "Permission Denied".

Alasan mengapa kami mendapatkan kesalahan ini karena ketika file penyalinan dibuka dan jika Anda mencoba menyalin kesalahan di atas datang, jadi selalu tutup file dan jalankan kodenya.