 |
|
Модераторы: mihanik |
 
|
|
Excel -> DBF, Данные из Excel в DBF 
| AndrSB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 2.3.2008 Репутация: нет Всего: нет |
Добрый день, господа. Извините, если не туда постучался (1-й раз)
Если не затруднит, подскажите пожалуйста, каким скриптом c листа Excel с данными (Off 2003) сотворить DBF-файл (Save as... не подходит). Или закачать данные в готовый DBF, т.к. пустышка DBF с нужной структурой уже есть. Обязательно ли в 1-ой строке листа должны быть имена полей? Заранее спасибо. |
|||
|
||||
Загрузка ...
| Naghual |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 7 Всего: 49 |
Чем вас не устраивает SaveAs ?
Это самый простой способ. Наличие колонок обязательно для SaveAs -------------------- Я желаю всем Счастья! |
|||
|
||||
| mihanik |
|
||||
 -=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 9 Всего: 109 |
По-моему, "да".
Почему? Возьмите включите макрорекордер, запишите всё в DBF-файл, потом посмотрите что получилось в коде... -------------------- Программистами не рождаются, - это родовая травма...   |
||||
|
|||||
| AndrSB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 2.3.2008 Репутация: нет Всего: нет |
Спасибо, но пошел несколько другим путем. И уперся в проблему: Данные вставляются на лист, и DBF-файл сохраняется нормально, но пустой или с таким количеством строк, которое изначально было в нем, а не с таким, которое копируем (в данном примере 9). Подскажите, где просчитался? Private Sub Export_Xbank_Click() 'Выгрузка данных с листа "zach" в DBF-файл Dim e_x_patch As String swn = ThisWorkbook.Name e_x_patch = Worksheets("Банк").Range("C64") '(c:\visa_auto\templates\templ_xb.dbf) Workbooks(swn).Activate Worksheets("zach").Range("a2:br10").Copy 'Открываем DBF-пустышку Workbooks.Open Filename:=e_x_patch, ReadOnly:=False Application.ScreenUpdating = False Workbooks("templ_xb.dbf").Worksheets("templ_xb").Activate Worksheets("templ_xb").Range("a2").Select ActiveSheet.Paste Workbooks("templ_xb.dbf").Close End Sub |
|||
|
||||
| Данкинг |
|
|||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 1 Всего: 130 |
Конечно, иначе откуда в DBF названия полей возьмутся. -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| E_v_g |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 76 Регистрация: 15.11.2006 Репутация: нет Всего: нет |
Перед копированием строк в DBF надо в нем сначала добавить нужное кол-во строк:
Постоянно пользуюсь этим примером - работает. Во входном листе первая строка должна быть пустой. shablon.DBF - шаблон файла DBF с единственной строкой. |
||||
|
|||||
| AndrSB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 2.3.2008 Репутация: нет Всего: нет |
E_v_g,
Спасибо огромное! Работает. +5 поставил бы тебе в репутацию, но еще не разрешают.  |
|||
|
||||
| Naghual |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 7 Всего: 49 |
AndrSB, а как-же ваше
?  -------------------- Я желаю всем Счастья! |
|||
|
||||
| mihanik |
|
||||
|
-=Белый Медведь=- Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 9 Всего: 109 |
Вот именно...  -------------------- Программистами не рождаются, - это родовая травма... |
||||
|
|||||
| AndrSB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 2.3.2008 Репутация: нет Всего: нет |
Это значит, что я не до конца разобрался с возможностями "великого и могучего" и
сделал поспешные выводы. И т.к. у меня не получалось сохранять из xls в dbf, через save as... с сохранением форматов и записей, я хотел найти обходной путь. Кстати, мой пример работает вроде без save as..., загвоздка была в количестве записей. Naghual, mihanik, - Гуру, не судите строго ламера. Каюсь, в невежестве, но благодаря Вам, уже знаю больше. Спасибо.  |
|||
|
||||
|
|
| Правила форума "Программирование, связанное с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0586 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |