VBA用户功能检查目录

Question

以下是目前的代码

• 我经常需要检查一个采购订单是否已保存在目录中，Excel中可能会列出数百个采购订单。
• 随着工作簿的更改，文件路径也经常发生变化。
• 因此，我想创建一个函数，询问包含文件路径字符串的单元格值，然后是PO＃的单元格。

我对如何最好地从Excel表格中获取信息感到困惑。我需要一个文件路径的单元格引用到目录，以及PO＃的单元格引用。 我已经能够使用子程序来完成这项工作，这就是下面发布的内容。这是我参与过的第三个VBA计划，请在发布之前告诉我是否应该做更多的工作：

Dim directory As String
Dim TempfileName As String
Dim i As Long
Dim x As Long

Sub Check_PO()

x = 2
Application.ScreenUpdating = False

For x = 2 To 673
While Cells(x, 14) = 0
x = x + 1
Wend

i = Cells(x, 14)
TempfileName = "\\network\file\name\here\" & "*" & i & "*.pdf"
directory = Dir(TempfileName, vbNormal)

    While directory <> ""
        Cells(x, 18) = "Matched"
        directory = Dir
    Wend

Next x

End Sub

Answer 1

这是一个简单的UDF：

if ! comm -3 <(sort /home/folder/old.txt) <(sort /home/folder/new.txt) | grep -q '.*'; then
   echo "There are no changes in the files"
else
   echo "New files were found. Return code was $?"
fi

用法：