Saya ingin mendapatkan daftar semua file yang ditautkan dalam dokumen Excel 2003, atau, lebih baik lagi, secara otomatis mengambil semua file yang ditautkan ke dokumen dan zipnya. Apakah operasi seperti itu mungkin? Saya menemukan mengumpulkan file secara manual sangat membosankan.
microsoft-excel
vba
microsoft-excel-2003
akta02392
sumber
sumber
Jawaban:
Cara yang lebih mudah untuk melakukannya adalah dengan menggunakan
.LinkSources
metode ini.Misalnya, kode di bawah ini akan mencetak daftar semua tautan ke file Excel.
sumber
Ini awal. Makro ini akan mengembalikan daftar semua buku kerja tertaut dengan mencari nama file di semua rumus di buku kerja. Satu kekhasan yang perlu diperhatikan adalah bahwa ia hanya akan mengembalikan jalur file buku kerja jika buku kerja itu saat ini tidak terbuka. Saya belum meluangkan waktu untuk mencari tahu tentang itu, tapi kabar baiknya adalah Anda harus mengetahui path file jika buku kerja sudah terbuka.
sumber
s coat as ted
sebagai tautan. Saya mencoba memperbaikinya dengan melakukan InStr awal='
sebagai gantinya tetapi muncul dengan banyak kesalahan. Juga, saya ingin tahu apakah Anda dapat membuat array unik sebelum membuang? Buku kerja saya memberi 10.000 baris dengan makro ini dan sebagian besar sama. Saya tahu saya bisa melakukan daftar hal yang unik tetapi berguna jika Anda tahu solusi VBScript. :).RemoveDuplicates
properti Range (atau jadi saya sudah baca. Jika Anda ingin mencobanya, hapus saja tanda kutip dari awal baris sebelumnyaExit Sub
). Jika itu tidak berhasil, ada beberapa solusi vba yang tersedia online untuk menghapus duplikat yang bisa Anda masukkan ke makro.'[A-Z\[]
.