☰

Excel 问题 - 将单元格链接到文件中的文档数量

tag-icon • tag-icon microsoft-excel microsoft-word microsoft-excel-2010 vba microsoft-excel-2013
Excel 问题 - 将单元格链接到文件中的文档数量

我正在尝试在将文档插入文件时更新 Excel 电子表格。

例如，我有一个名为日记的文件夹。每隔几天，我都会将一个 word 文档或 PDF 文档插入此文件夹。我希望 excel 电子表格能够确认已将文档放入文件中。

这可能吗？

欢迎使用 VBA，但我没有这方面的经验。（愿意学习一点）

谢谢你的时间！

我收到了一些关于我懒惰的负面反馈。这很公平。我通常只是使用 YouTube 来寻找答案。我并没有打算让别人为我写一个脚本。我只是想知道我所问的问题是否可行，或者某个功能是否存在。我完全有能力做这些工作。我只是不知道从哪里开始。

如果有人能提供指导，我将继续更新此页面以提供我的进展。我相信它可以帮助其他正在寻找相同问题的人。

答案1

此 VBA 脚本可以帮助您：

Public Sub fileIndexer()
    'declaration of variables
    sheetname = "Sheet1"
    directory = "C:\users\johnsmith\documents"
    firstRow = 1
    dataColumn = 1
    'end of declaration of variables
    Dim wkb As Workbook
    Dim wks As Worksheet
    Set wkb = ThisWorkbook
    Set wks = wkb.Sheets(sheetname)
    wks.Columns(dataColumn).Clear
    myRow = firstRow
    myPath = Dir(directory)
    While (myPath <> "")
        wks.Cells(myRow, dataColumn) = myPath
        myRow = myRow + 1
        myPath = Dir
    Wend
    wks.Columns.AutoFit
End Sub

使用ALT+打开 VBA/宏F11，在本工作簿插入一个新的模块并将代码粘贴在右侧。

单击绿色三角形来执行。

您也可以通过单击第一行逐步运行它，然后按 执行每个步骤F8。

有一个部分叫做declaration of variables您必须放置您的数据的地方（要列出的工作表和目录的名称）。

相关内容