在excel中创建文档列表

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 & """" & ")"