вставка формулы из другой книги

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » вставка формулы из другой книги (Макросы Sub)

Stason85

Дата: Вторник, 24.09.2013, 14:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день! помогите подправить написанный макрос, не справляюсь. Заранее спасибо. Сам вопрос в макросе. Вот макрос:
....
Sub загрузка_данных()

On Error Resume Next
ИмяФайла = GetFilePath("Выберите файл Excel", "s:\Данные для передачи\", "*.xls") ' запрашиваем имя файла
If ИмяФайла = "" Then Exit Sub ' выход, если пользователь отказался от выбора файла

Dim sh As Worksheet, WB As Workbook
Set sh = ActiveSheet
Set WB = Workbooks.Open(ИмяФайла)
WB.Worksheets(1).Range("C6:G6").Copy
sh.Range("K54").FormulaR1C1 = "=SUM(R6C3:R6C7)" ' вот здесь надо подправить, так не работает, выдает вместо суммы дату
sh.Range("K54") = sh.Range("K54").Value
WB.Worksheets(1).Range("C7:G7").Copy
sh.Range("L54").FormulaR1C1 = "=SUM([ВыгрузкаДВ2_УТСВЦВКСТС.xlsx]Sheet1!R7C3:R7C7)" ' этот вариант работает, но так не хочу, т.к. наименование файла может измениться
sh.Range("L54") = sh.Range("L54").Value
Application.CutCopyMode = False
WB.Close False
Range("AA46").Select
End Sub[color=red]