Я В Excel-2003 Открыл Едарп_район.dbf, 20 записей, В него были переписаны новые записи из открытой Workbooks("едарп.xls").worksheets(1).cells
Sub Едарп_район() Max = Workbooks("едарп.xls").worksheets(1).range("b65536").end(xlup).row 'последняя Строка For M = 2 To Max 'то Переносим Ячейки If Workbooks("едарп.xls").worksheets(1).cells(m, 18).value <> "изм" Then Workbooks("едарп_район.dbf").worksheets(1).cells(n, 1) = "3351208" Workbooks("едарп_район.dbf").worksheets(1).cells(n, 2) = Workbooks("едарп.xls").worksheets(1).cells(m, 4) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 3) = Workbooks("едарп.xls").worksheets(1).cells(m, 2) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 4) = Workbooks("едарп.xls").worksheets(1).cells(m, 8) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 5) = "2008" Workbooks("едарп_район.dbf").worksheets(1).cells(n, 6) = "02" Workbooks("едарп_район.dbf").worksheets(1).cells(n, 7) = "503" Workbooks("едарп_район.dbf").worksheets(1).cells(n, 8) = Workbooks("едарп.xls").worksheets(1).cells(m, 9) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 9) = Workbooks("едарп.xls").worksheets(1).cells(m, 10) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 10) = Workbooks("едарп.xls").worksheets(1).cells(m, 5) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 11) = Workbooks("едарп.xls").worksheets(1).cells(m, 7) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 12) = Workbooks("едарп.xls").worksheets(1).cells(m, 13) Workbooks("едарп_район.dbf").worksheets(1).cells(n, 13) = Workbooks("едарп.xls").worksheets(1).cells(m, 16) N = N + 1 End If Next End Sub
Вносится 700 записей. Сохраняю Как Едарп_район.xls, закрываю. Открываю Едарп_район.xls, все записи на месте. Сохраняю Как Едарп_район.dbf, закрываю. Открываю Едарп_район.dbf, а в нем первые 20 записей из добавленых. Должно быть 700. Понимаю, что надо пару команд в макрос, но не знаю каких. Можно программку перезаписи из *.xls в *.dbf
Заранее Благодарю. С Уважением бывший Нновичок (забыл пароль, пришлось перерегистрироваться)
Сообщение отредактировал mmmmvlad - Суббота, 01 Марта 2008, 18:27
|