|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.03.2009, 13:58 | #11 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
If Workbooks(TextBox1.Text).Sheets("TDSheet").Cells(1, c) <> Workbooks("C:\Table.xls").Sheets("Suppliers").Cells(1, c) Then Exit Function
в подчеркнутых местах нужно использовать имя книги, а не полный путь где она лежит. Книги то уже открыты, и путь не важен. Попробуй так TextBox1.Text = Dir(FileToOpen) Должно сработать.
Можно сделать все! Было бы время, да деньги...
|
31.03.2009, 14:30 | #12 |
Пользователь
Регистрация: 30.03.2009
Сообщений: 17
|
Здорово, получилось=)
Спасибо огромное! Теперь задача в проверке уникальности записей и добавлении уникальных...
Piu piu
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с дочерними формами | Иванесс | Помощь студентам | 1 | 05.03.2009 00:44 |
Помогите понять. Работа с формами | Vlad_sem | PHP | 5 | 02.12.2008 23:46 |
Работа с формами | HAMMAN | Общие вопросы Delphi | 1 | 26.04.2007 01:18 |
Работа с формами | dima00 | Общие вопросы Delphi | 4 | 11.04.2007 22:10 |