在Excel中创build一个文档列表

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

我认为在需要与最终产品一起发运的文件以及超文本链接（超链接）方面拥有一份清单会很方便。 所有这些文档（主要是pdf）都位于相同的目录中。

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

提前致谢

Answer 1

听起来就像你将需要通过文件目录循环，并生成文件名旁边的超链接。

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

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