VPF::записать из Exell в dbf - Форум программистов

dionisiu

Дата 24.11.2007, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 13.5.2006
Где: Крым

Репутация: 1
Всего: 2

Здравствуйте, уважаемые.
столкнулся с неожиданной проблемкой при записи из Экселя в дбф - не сохраняет (из кода).

Суть явления: есть 4 файла в формате dbf, а также книга Экселя, которая содержит код обработки данных. Из двух файлов данные считываются на два листа этой книги, потом над полученными данными проводятся расчёты и результаты загоняются в другие два листа этой же книги.
Далее, с этих листов нужно загнать в два других dbf-а.

Пробовал макрорекордером - получил код (ниже), исправил его под свои нужды (пути и названия книг).... НО! при запуске процедуры файлы-получатели остаются в первозданном виде smile

Код


    Workbooks.Open Filename:="C:\SALOUTD.DBF"
    Windows("V20 генеральный обработчик.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("SALOUTD.DBF").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks.Open Filename:="C:\SALOUTH.DBF"
    Windows("V20 генеральный обработчик.xls").Activate
    Sheets("SALOUTH").Select
    Cells.Select
    Range("B1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("SALOUTH.DBF").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("SALOUTD.DBF").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Save
    ActiveWindow.Close

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

что удивительно, макрос этот тоже не работает...(при запуске его через сочетание клавиш)

kapbepucm

Дата 26.11.2007, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12

Цитата(dionisiu @ 24.11.2007, 15:55

)

книга содержит возможности, не совместимые с её форматом

Когда в "ручную" сохраняешь, тоже так говорит? А это-

Код

Workbooks("V20 генеральный обработчик.xls").Sheets("тот самый лист").SaveAs "C:\SALOUTH.DBF", xlDBF4

Это сообщение отредактировал(а) kapbepucm - 26.11.2007, 10:22

--------------------

(С) kapbepucm

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »