使用逻辑与比较两个文件名

我有以下的VBA代码：

mainFile = ActiveWorkbook.Name 'select all excel files in this folder fname = Dir(FPath & "\*.xls") 'go through all excel files in this folder Do While fname <> "" If (fname <> mainFile & fname <> uploadFile) Then Debug.Print (mainFile & ":" & uploadFile & ":" & fname) 

出于某种原因，fname <> mainFile不阻止它进入循环，我从Debug.Print语句得到以下内容：functions.xls：UPLOADME.xls：functions.xls

然后，代码只是停止执行…没有错误…只是没有（我有一个Debug.Print之后，所有其他被忽略的循环）

我没有正确比较它们吗？

Answer 1

它应该是： fname <> mainFile And fname <> uploadFile

在VBA中， &运算符用于连接string，而不是执行逻辑AND …“和”是我正在查找的运算符。