Question

我正在管理一个项目，其中大量文件必须伴随最终产品。考虑产品（船）中某些现成产品的手册。

我认为在excel中列出必须与最终产品一起提供的文档而不是相关文档的（超链接）是很方便的。所有这些记录器（主要是pdf）都位于同一目录中。

有关如何实现这一目标的任何建议吗？

提前致谢

Answer 1

听起来你需要遍历文件目录并在文件名旁边生成一个超链接。

我建议使用fileDialog方法选择文件并填充集合或数组，然后将每行导出到行工作表。

sub writeFilesToWorksheet()
Dim lngCount As Long
Dim ws       As worksheet 

'Set up our new sheet'
set ws = worksheets.add

'Add some headers'
ws.cells(1,1).value = "File Name"
ws.cells(1,2).value = "Hyperlink"

'Select files'
With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show

        'Add the selected files to the sheet'
        For lngCount = 1 To .SelectedItems.Count
            ws.cells (lngCount + 1, 1).value = .SelectedItems(lngCount)
            ws.cells (lngCount + 1, 2).formula = "=HYPERLINK(" & .SelectedItems(lngCount) & ")"
        Next lngCount
end with

ws.activate
set ws = Nothing

end sub

如果要为超链接使用友好名称参数，可以包含类似

的内容

Dim pos as integer
Dim strFriendlyName as string

pos = InStrRev(.selectedItems(lngCount), "\")
strFriendlyName = Right$(.selectedItems(lngCount), Len(.selectedItems(lngCount)) - pos)

并将for循环的第二部分更新为：

ws.cells (lngCount + 1, 2).formula = "=HYPERLINK(" & .SelectedItems(lngCount) & ", " & """" & strFriendlyName & """" & ")"

在excel中创建文档列表

1 个答案: