Cara hyperlink ke folder dari Excel secara otomatis

0

Saya memiliki 500 folder dengan string tertentu dari nama misalnya Aseem-tb-rd-001, Taj-tb-rd-006, dll ..

Setiap folder memiliki dua sub-folder, yang diberi nama Indan Out.

Sekarang saya memiliki file Excel dengan lembar bernama Indan Outdi dalamnya, Kedua lembar ini memiliki string nama masing-masing. Saya perlu Excel untuk secara otomatis mengambil folder dan menambahkan hyperlink.

misalnya, jika sel H3dalam lembaran Inmemiliki nama Taj-tb-rd-006, saya ingin tautan untuk tautan ke folder Taj-tb-rd-006\In dan jika sel H8dalam lembaran Outmemiliki nama Taj-tb-rd-006, saya ingin tautan untuk tautan ke folder Taj-tb-rd-006\Out.

Bisakah ini dilakukan dengan cara apa pun?

muhammed ayyoob
sumber
Selamat datang di SU! Ya, Anda bisa menulis makro VBA yang menggunakan konten sel untuk membuat hyperlink.
duDE
Ada rumus yang disebut hyperlink. Kombinasi dari formula ini dan manajer nama adalah bagaimana saya akan mendekati tugas ini. Apakah ini cukup atau ada lebih banyak yang Anda butuhkan?
bvaughn
Jika Anda bisa membantu saya dengan cara melakukannya, saya akan sangat berterima kasih.
muhammed ayyoob

Jawaban:

0

Anda dapat melakukannya menggunakan rumus. Saya akan mulai dengan:

= HYPERLINK (H3 & "\ out")

Edit Maaf, salah baca pertanyaannya. Bagian lain dari jawabannya adalah bahwa Anda memerlukan kode VBA seperti ini, dimodifikasi dari jawaban ini di SO:

Sub LoopThroughFiles()
    Dim MyObj As Object, MySource As Object, file As Variant, i As Integer
    file = Dir("D:\My Folder\", vbDirectory)
    While (file <> "")
       i = i + 1
       ActiveSheet.Cells(i, 1) = file
       file = Dir
   Wend
End Sub
TheCatsTail
sumber
Bisakah Anda menjelaskannya? Aku benar-benar idiot dalam hal ini.
muhammed ayyoob
Saya telah menambahkan kode yang akan menarik nama direktori dari folder yang diberikan ke dalam kolom di lembar aktif Anda. Jalankan untuk salah satu lembar kerja Anda, lalu salin ke yang lain. Gunakan rumus untuk mendapatkan hyperlink, satu berakhiran \ in dan satu berakhiran \ out.
TheCatsTail