Копирование данных из файла, не зная открыт ли он

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

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

Копирование данных из файла, не зная открыт ли он (Макросы/Sub)

Мурад

Дата: Четверг, 13.08.2015, 16:16 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Добрый день! В продолжение бурной беседы в теме ссылка.
2 сотрудника хотят вести свой файлы в одинаковых таблицах самостоятельно. Один сотрудник работает с данными, который занес в свою таблицу другой сотрудник.
Задача. При открытии файла "2" таблица заполняется данными из файла "1".
Сотрудники сидят в разных углах разных кабинетов в разных зданиях в разных странах... Сотрудник 2 не знает, работает ли в данный момент со своим файлом Сотрудник 1. Но ему надо уже работать с данными, которые успел занести Сотрудник 1 и нажавший кнопку "Сохранить".
Такие случаи встречались вам, уважаемые программисты?

К сообщению приложен файл: 1.xlsm.xlsx (11.2 Kb) · 2.xlsm.xlsx (10.9 Kb)

Ответить

RAN

Дата: Четверг, 13.08.2015, 16:21 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

И в чем проблема?
Открыли файл для чтения, и читайте.

Быть или не быть, вот в чем загвоздка!

Ответить

Мурад

Дата: Четверг, 13.08.2015, 16:25 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

RAN, нужно скопировать данные из одного файла в другой...Вы имеете в виду, копипастом переносить каждый раз? В принципе, Сотрудник 2 у нас молчаливый и готов сверять 2 таблицы, в поисках отличий и копирования новых кусков

Ответить

RAN

Дата: Четверг, 13.08.2015, 17:23 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Мурад, 13.08.2015 в 16:16, в сообщении № 1

Такие случаи встречались вам, уважаемые программисты?

Такие не встречались, встерались только случаи, когда с этими двумя файлами нужно работать как с единой базой.
Ваш случай проще.
Как сделать, я ответил.
Если вам нужно не "как", а готовое решение - заказывайте, сделаю.
Или можете ручками.

Быть или не быть, вот в чем загвоздка!

Ответить

Hugo

Дата: Четверг, 13.08.2015, 20:15 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

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

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

365

Чтоб вообще никак не влиять одному сотруднику на другого - можно кодом сделать копию файла (не открывать и сохранять, а скопировать средствами файловой системы) и работать как угодно с этой копией.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Мурад

Дата: Пятница, 14.08.2015, 09:19 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

RAN, а каким образом открывать файл только для чтения? Что необходимо изменить в коде:
[vba]

Код

Sub copy_data_from_Polina()
Application.DisplayAlerts = False
Application.CutCopyMode = False
     wb1 = "Казакова.xlsm"
     MyPath = ThisWorkbook.Path & "\" & wb1
     Workbooks.Open Filename:=MyPath
     Workbooks(wb1).Sheets(1).Range("A7:M500").copy
     ThisWorkbook.Activate
     Range("A7").Select
     ActiveSheet.Paste
     Windows(wb1).Activate
     ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

[/vba]
, чтобы компилятор, открывая файл, проверял, работает ли в нем автор, и если да, то открывал его в режиме чтения. Далее копировал необходимый диапазон, вставлял этот диапазон в другом файле. В конце закрывал файл автора без сохранения данных и уничтожением буфера..

Ответить

Мурад

Дата: Пятница, 14.08.2015, 09:26 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Если есть возможность ручками открыть общий файл в режиме чтения, скопировать из него что надо, значит...можно это автоматизировать. Или нет?

Ответить

RAN

Дата: Пятница, 14.08.2015, 09:44 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Слабо справку по методу Open поглядеть?

Быть или не быть, вот в чем загвоздка!

Ответить

Мурад

Дата: Пятница, 14.08.2015, 09:47 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

[vba]

Код

Workbooks.Open Filename:=MyPath, ReadOnly:=True, IgnoreReadOnlyRecommended:=True

[/vba] ?

Ответить

Мурад

Дата: Пятница, 14.08.2015, 09:56 | Сообщение № 10

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

RAN, спасибо что подталкиваете на самостоятельные исследования!
Но вот, часть кода, который пытался использовать для вставки значений:
[vba]

Код

ActiveSheet.PasteSpecial Paste:=xlPasteValues

[/vba] выдает ошибку 400...
Поэтому оставил только [vba]

Код

ActiveSheet.Paste

[/vba]

Ответить

Мурад

Дата: Пятница, 14.08.2015, 10:51 | Сообщение № 11

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

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

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

Excel 2007

Поюзал в интернете... С ошибкой 400 сталкивались многие, как я понял... Анализируя код до и после, ошибка связана с заменой кода [vba]

Код

ActiveSheet.Paste

[/vba] на этот код [vba]

Код

ActiveSheet.PasteSpecial Paste:=xlPasteValues

[/vba]:
[vba]

Код

Sub copy_data_from_Polina()
Application.DisplayAlerts = False
Application.CutCopyMode = False
     wb1 = "Казакова.xlsm"
     MyPath = ThisWorkbook.Path & "\" & wb1
     Workbooks.Open Filename:=MyPath, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
     Workbooks(wb1).Sheets(1).Range("A7:M500").copy
     ThisWorkbook.Activate
     Range("A7").Select
     ActiveSheet.PasteSpecial Paste:=xlPasteValues
     Windows(wb1).Activate
     ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

[/vba]
Макрос запускается нажатием кнопки на листе.