Question

我需要从列D中的超链接列表中找到搜索，如果链接中存在该文件夹，则选择该链接作为复制路径目录，以便宏可以打开该文件并复制其中的一个工作表。 / p>

我通过重复代码使用了很长的路，如何以更短的方式完成？

If FileFolderExists(ActiveWorkbook.Sheets("Config").Range("D2")) Then

    CopyFromDirPathFile = ActiveWorkbook.Sheets("Config").Range("D2")
'
'
'
'
'
end sub

我重复直到D8

Answer 1

如果您想在不重新编写代码的情况下执行此操作，最简洁的方法是使用循环。即，循环遍历范围内的每个单元格＆＃34; D＆＃34;直到你到达你想停下的牢房，在这种情况下＆＃34; D8＆＃34;。

您必须自己调试此代码，因为我不知道您的功能是否正常。

   Dim ws As Worksheet
   Dim rng As Range
    Set ws = ActiveWorkbook.Sheets("Config")
    For Each rng In ws.Range("D2:D8")
       If FileFolderExists(rng) Then
          CopyFromDirPathFile = rng
       End If
    Next rng

如果文件存在，则从超链接列表中搜索，然后选择路径作为目录

1 个答案: