У меня есть небольшой запрос. У меня есть некоторые значения в столбце A, изображение которого прикреплено.Код для гиперссылки файлов с элементами, присутствующими в столбце A
Я несколько файлов, расположенных в скажем D: \ Software Work \ Важно Files \ Имена файлов точно такое же имя упоминается в столбце A.
Я хочу гиперссылкой значение ячейки к соответствующему файлу, хранящемуся в местоположении.
Образ хранения файлов также прилагается.
Вот мой код:
Sub mymacro()
Dim objcreate As Object, objFolder As Object, objFile As Object, i As Integer
Dim ws As Worksheet, rng As Range
Set ws = Sheets("Sheet1")
Set rng = ws.Range("C1")
Set objcreate = createobject("Scripting.FileSystemObject")
Set objFolder = objcreate.GetFolder(rng)
i = 0
For Each objFile In objFolder.Files
'select cell
Range(Cells(i + 1, 1), Cells(i + 1, 1)).Select
'create hyperlink in selected cell
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
objFile.Path, _
TextToDisplay:=objFile.Name
i = i + 1
Next objFile
End Sub
код работает отлично, за исключением одной вещи. Он заполняет имя файла вместе с расширением. Мне нужно только имя файла, кроме расширения. Просьба сообщить. Thanks Salman
Нет необходимости в коде, просто перейдите на вкладку «Вставка ленты», «Гиперссылка» ... перейдите к файлу ... нажмите «ОК». Если у вас их много ... используйте макрорекордер, чтобы начать работу. – Rdster
У меня есть много элементов в столбце A. С помощью считывателя макросов он идет один за другим. Я ищу, чтобы запустить цикл для гиперссылки на элементы ... –
Точно, используйте макрорекордер, чтобы узнать, как это сделать для одного, а затем зациклируйте его. SO не является службой написания кода, мы здесь, чтобы помочь друг другу в решении конкретных проблем и ошибок. Когда у вас есть код и конкретный вопрос ... вы можете опубликовать свой код, и мы сможем помочь вам в этом. – Rdster