使用变量的 Excel 2010 vba 工作簿方法答案

【问题标题】：Excel 2010 vba Workbook methods using variables使用变量的 Excel 2010 vba 工作簿方法
【发布时间】：2014-02-17 04:26:47
【问题描述】：

当路径和文件名参数在下面的代码中明确定义时，执行成功。
如果路径和文件名参数是变量（如下面注释掉的代码行所示），则代码将失败出现错误“运行时错误 1004 并在语句“Workbooks.Open LatestTestBk”中显示 -

'Get the test Peak Value and add to Test Data row for this test
 Dim PeakValue, LatestTestBk

 Workbooks.Open "C:\Users\Mike\Desktop\8888\CompletedTestfiles\Live    
 Graph_02-07-14_9-11-26-AM.xlsx"
 'LatestTestBk = FileDestination & NewFileName
'Workbooks.Open LatestTestBk
 PeakValue = Workbooks("Live Graph_02-07-14_9-11-26-
  AM.xlsx").Worksheets(1).Range("E1").End(xlDown)
'Workbooks(NewFileName).Close
 Workbooks("Live Graph_02-07-14_9-11-26-AM.xlsx").Close
 Worksheets("Job Data").Cells(30, 1) = PeakValue

尝试将变量用于路径和文件名参数时，我错过了什么？感谢您的帮助。

【问题讨论】：

请显示变量的值：FileDestination 和 NewFileName
FileDestination = "C:\Users\Mike\Desktop\8888\CompletedTestfiles\Live Graph_02-07-14_9-11-26-AM.xlsx" and NewFileName = "Live Graph_02-07-14_9- 11-26- AM.xlsx"
好吧，LatestTestBk 将是 C:\Users\Mike\Desktop\8888\CompletedTestfiles\Live Graph_02-07-14_9-11-26-AM.xlsxLive Graph_02-07-14_9-11-26- AM.xlsx - 这是错误的（因为 Live Graph_02-07-14_9-11-26- AM.xlsx 重复了两次）
我同意你的分析。我发布的 FileDestination 值是错误的。它实际上是 C:\Users\Mike\Desktop\8888\CompletedTestfiles\ 抱歉我的帖子中的错误。我尝试使用运行时值添加 Watch 窗口的屏幕截图，但由于允许的信誉点不足而被阻止。我是 StackExchange 的新手。
谢谢你，simoco。你把我放在解决方案上。路径和文件名值末尾的空格导致 Excel 抱怨找不到路径或文件。我处理了这些值以消除问题空间，它现在可以工作了。

标签： excel excel-2010 vba

【解决方案1】：

从 cmets 跟进，问题出在文件路径中的额外空格中。这有效：

LatestTestBk = Trim(FileDestination) & Trim(NewFileName)
Workbooks.Open LatestTestBk

【讨论】：

是的。感谢您对此的帮助。

【解决方案2】：

检查 LatestTestBk 是否有任何丢失的 BackSlashes

【讨论】：

文件名/路径变量中没有缺少反斜杠，如对这些变量的监视中所示。但我确实注意到，在 Watch 窗口中，LatestFileBk 和 NewFileName 的值在结束引号之前有一个空格。当代码因错误而暂停时，通过将鼠标悬停在变量上查看值时，这是不可见的。

【解决方案3】：

由于空格，它作为变量失败：

改用：

"'" & VarName & "'"

【讨论】：

感谢您的帮助。这解决了问题。 Simoco 上面的最后一条评论让我走上了正轨。