Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/вставка формулы из другой книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
вставка формулы из другой книги
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]
 
Ответить
СообщениеДобрый день! помогите подправить написанный макрос, не справляюсь. Заранее спасибо. Сам вопрос в макросе. Вот макрос:
....
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]

Автор - Stason85
Дата добавления - 24.09.2013 в 14:46
SkyPro Дата: Вторник, 24.09.2013, 16:54 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Используйте вместо [vba]
Код
"=SUM([ВыгрузкаДВ2_УТСВЦВКСТС.xlsx]Sheet1!R7C3:R7C7)"
[/vba]
[vba]
Код
"=SUM(" & wb.name & "Sheet1!R7C3:R7C7)"
[/vba]


skypro1111@gmail.com
 
Ответить
СообщениеИспользуйте вместо [vba]
Код
"=SUM([ВыгрузкаДВ2_УТСВЦВКСТС.xlsx]Sheet1!R7C3:R7C7)"
[/vba]
[vba]
Код
"=SUM(" & wb.name & "Sheet1!R7C3:R7C7)"
[/vba]

Автор - SkyPro
Дата добавления - 24.09.2013 в 16:54
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!