-1
我有一个小的查询。我在附有图像的A列中有一些值。代码来超链接列A中的项目的文件
我已经位于说,一些文件d:\ SOFTWARE工作\重要文件\ 文件名是正好在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
代码工作正常。它与扩展名一起填充文件名。我只想要扩展名以外的文件名。 请提醒。 谢谢 萨尔曼
不需要代码,只需转到插入功能区,超链接...导航到文件...单击确定。如果你有很多......使用宏记录器让你开始。 – Rdster
我在A列中有很多项目。随着宏阅读器一个接一个。我正在寻找运行循环来超链接项目... –
准确地说,使用宏记录器来学习如何做一个,然后循环它。 SO不是代码写作服务,我们在这里通过特定的问题和错误来互相帮助。当你有一些代码和一个特定的问题时......你可以发布你的代码,我们可以帮你完成它。 – Rdster