2014-02-15 5 views
0

Когда аргументы пути и имени файла явно определены, как в приведенном ниже коде, выполнение выполняется успешно.
Если путь и имя файла аргументы являются переменными (как показано в закомментированные строк кода ниже) код не с ошибкой «Ошибка выполнения 1004 и показывает в отчете„Workbooks.Open LatestTestBk“-Excel 2010 vba Методы рабочей книги с использованием переменных

'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 

Что я отсутствующий пытаться использовать переменные для аргументов путь и имя файла? Спасибо за вашу помощь.

enter image description here

+0

показать, пожалуйста, стоимость ваших переменных: '' FileDestination' и NewFileName' –

+0

FileDestination = «C: \ Users \ Mike \ Desktop \ 8888 \ CompletedTestfiles \ Живой Graph_02-07-14_9-11- 26-AM.xlsx "и NewFileName =" Live Graph_02-07-14_9-11-26- AM.xlsx " – user3303281

+0

ok, чем' 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' повторы два раза) –

ответ

0

Как следить из комментариев, проблема была в дополнительных местах в пути к файлу. Это работает:

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

Да. Благодарим вас за помощь. – user3303281

0

Проверить LatestTestBk для любого отсутствует обратных косых черты

+0

Отсутствует обратная косая черта в именах файлов/путей, как указано в часах на этих переменных. Но я замечаю, что в окне «Часы» значения для LastFileBk и NewFileName имеют пробел перед закрывающей цитатой. Это не видно при просмотре значений, зависая над переменной, в то время как код приостанавливается для ошибки. – user3303281

0

он не в качестве переменных из-пространств:

использовать вместо:

"'" & VarName & "'" 
+0

Спасибо за помощь. Это решило проблему. Симоко поставил меня на правильный путь со своим последним комментарием выше. – user3303281

Смежные вопросы