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.
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 mata uang kita berada.
Kode:
Sub FileCopy_Example1 ()
FileCopy "D: File Saya VBA File April
Akhiri Sub
Setelah menyebutkan jalur folder, kami 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. Kemudian, 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.
Misalnya, 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 mendeklarasikan 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, demikian pula, 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.
