正在尝试访问同一文件夹中的其他文件，但正在获取文件夹外的文件

Question

我试图访问程序所在文件夹中的所有其他文件，但它希望访问整个目录中的文件。我知道这基本上是我告诉它要做的，但我还是vba的新手，不知道实现我想要的语法。有没有一种方法可以让我从程序中获取当前文件夹的位置，并让它只遍历该文件夹中的所有文件？

此外，我还需要一个不使用Scripting.Object内容的解决方案，因为我遇到了需要下载内容的问题，我觉得要求使用该工具的人也下载内容很不舒服，尤其是因为他们将在安全的.mil计算机（而不是.com计算机）上

directory = ActiveWorkbook.Path 'Also tried CurDir()
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
   ...
   fileName = Dir()
Loop

Answer 1

尝试

ThisWorkbook.Path 
MsgBox ThisWorkbook.Path ' Make sure its the right path...

和

Filename = Dir(directory & "" & "*.xl??")