2015-04-20 2 views
-1

Я пытаюсь заменить часть строки на одном листе книги, с полной строкой ячейки в другой книге. Я не могу пройти мимо всех ошибок, главным из которых является Object required. То, что я пытаюсь сделать, это получить формулу, чтобы вытащить номер трейлера из нее и ввести ее в эту строку с другой: «ETD TBA - TRAILER # EMHU641641 (Дверь 4) - расписание, чтобы забрать ________».Требуется объект error Функция замены VBA

Это моя формула:

Dim newtn As String 

newtn = Windows("TSCAN.xlsm").Activate.Workbooks("TSCAN").Sheets("Sheet1").Range("B2") 
' 
Sheets("Total Ctn Count").Select 
Range("A1").Replace Cells(1, 1), Mid(Cells(1, 1), 20, 10), newtn 

Я не понимаю, почему это не будет работать. Пожалуйста помоги!

+1

Ваш код не имеет смысла. Проверьте правильность синтаксиса. Вы не можете использовать Activate.Workbook как метод Windows. – teylyn

+0

Да, ничего себе. На каком модуле вы вызываете этот код? Если это где-нибудь в книге «TSCAN.xlsm», вы можете пропустить большую часть выше, просто называя 'newtn = This Workbook.Sheets (« Sheet1 »). Range (« B2 »)'. Возможно, пример того, что вы действительно хотите, поможет нам понять. – 314UnreadEmails

ответ

-1

При желании включите Макрос записи. Выберите и скопируйте полную строку из ячейки в другой книге. В рабочей книге HOME> Редактирование, Найти & Выбрать, Заменить, Найти что: _______ (пробел и подчеркивание на заказ), Заменить на: (пробел), Вставить, Заменить все. Если включено, выключите Макрос записи.