Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2010, 15:19   #1
<Dmitry!>
Новичок
Джуниор
 
Регистрация: 17.05.2010
Сообщений: 2
По умолчанию Автоматическая замена данных в таблице.

Привет всем.

Босс поставил непосильную задачу Без помощи форума никуда ))

1. Есть два эксель файла file1.xls и file2.xls (см. аттач)
2. Не смотря на то, что файлы имеют разные имена, в них содержатся идентичные, достаточно примитивные таблицы. Таблицы имеют полностью одинаковые колонки, однако различные значения в них.
3. Требуется чтобы при открытии обоих фалов данные из file1.xls автоматически перенеслись в file2.xls

PS. Я полный чайник в VBS, посему буду благодарен за любую помощь.
Вложения
Тип файла: zip file1,2.zip (7.6 Кб, 18 просмотров)
<Dmitry!> вне форума Ответить с цитированием
Старый 17.05.2010, 19:39   #2
ELE-COM
Пользователь
 
Регистрация: 08.05.2010
Сообщений: 48
По умолчанию

Вот самое простейшее решение:
Код:
Private Sub Workbook_open()
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
Workbooks.Open ("C:\...полный путь к файлу...\file2.xls")
Range("A2").Select
    ActiveSheet.Paste
End Sub
Запустите 1-файл, нажмите F11, поместите код в "Эта книга", закройте файл. Проверяйте.

Последний раз редактировалось ELE-COM; 17.05.2010 в 22:20.
ELE-COM вне форума Ответить с цитированием
Старый 18.05.2010, 04:46   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
Требуется чтобы при открытии обоих фалов данные из file1.xls автоматически перенеслись в file2.xls
А если открыть только один из файлов, то нужно что-нибудь делать?
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 18.05.2010, 12:23   #4
<Dmitry!>
Новичок
Джуниор
 
Регистрация: 17.05.2010
Сообщений: 2
По умолчанию

ELE-COM, к сожалению не получается применить код к файлу. При нажатии Ф11 выскакивают диаграммы. (Используется 2007 офис).

SAS888, схема должна работать только при запущенным обоих файлах.
Ребята попутный вопрос:
А если файл 1 не знает, где будет находится файл 2, как это можно реализовать с помощью кода?

Спасибо за ваш эффорт.
<Dmitry!> вне форума Ответить с цитированием
Старый 18.05.2010, 12:43   #5
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от <Dmitry!> Посмотреть сообщение
ELE-COM, к сожалению не получается применить код к файлу. При нажатии Ф11 выскакивают диаграммы. (Используется 2007 офис).
ELE-COM немного ошибся
Alt+F11
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматическая нумерация в таблице word SilverSmallFish Microsoft Office Word 5 27.04.2010 06:43
Автоматическая замена номера на имя Anzor_09 Microsoft Office Excel 3 19.02.2010 11:17
Word. автоматическая замена значений belikk Microsoft Office Word 8 07.03.2009 11:03
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL DorianLeroy Фриланс 8 18.02.2009 18:52
поиск и замена в неиндексированной таблице Dbase Iv Deicider БД в Delphi 2 07.12.2006 23:18