ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / редактирование таблицы
9 сообщений из 9, страница 1 из 1
редактирование таблицы
    #37431923
npp2202
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
npp2202
Гость
ПОМОГИТЕ!!!!
Есть таблица (см.приложение)

Необходимо удалить первые две строки и последнюю строку таблицы, причем количество строк в таблице не известно. После этого надо первый стоблец перевести в число и сохранить документ в XL5
...
Рейтинг: 0 / 0
09.09.2011, 06:53
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432047
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
npp2202Необходимо удалить первые две строки и последнюю строку таблицы, причем количество строк в таблице не известно. После этого надо первый стоблец перевести в число и сохранить документ в XL5и в чем проблемы, макрорекордер барахлит? или ждете, пока за вас сделают?
...
Рейтинг: 0 / 0
09.09.2011, 09:40
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432059
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
PlanBмакрорекордер барахлит?
а кто сказал, что ему это на VBA нужно? в ТЗ этого нет. да и то, что речь об экселе, тоже пока под вопросом
...
Рейтинг: 0 / 0
09.09.2011, 09:48
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432061
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
(а, эксельный файл же приложен)

npp2202, если все-таки VBA, то:
Сервис => Макрос => Начать запись
...
Рейтинг: 0 / 0
09.09.2011, 09:50
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432148
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Пятница началась... Всем лень
И чего-бы просто не дать человеку код?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim nLastRow
    nLastRow = UsedRange.Rows.Count
    Rows(nLastRow).Delete
    Rows("1:2").Delete
    For i =  1  To nLastRow -  3 
        Cells(i,  1 ) = Val(Cells(i,  1 ))
    Next
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\#" & ActiveWorkbook.Name, xlExcel5
P.S. как обычно - не без подводного камня
...
Рейтинг: 0 / 0
09.09.2011, 10:28
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432219
npp2202
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
npp2202
Гость
PlanB,

просто приходится эту таблицу к foxpro прикручивать, уже отредактированную, а с vba разбираться ну никак времени нету
...
Рейтинг: 0 / 0
09.09.2011, 11:06
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432220
npp2202
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
npp2202
Гость
AndreTM,

спасибо
...
Рейтинг: 0 / 0
09.09.2011, 11:06
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432336
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Лучше без цикла, на больших объемах тормозить будет:
Код: plaintext
1.
2.
3.
4.
    Rows("1:2").Delete
    Rows(UsedRange.Rows.Count).Delete
    UsedRange.Columns( 1 ).Value = UsedRange.Columns( 1 ).Value
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\#" & ActiveWorkbook.Name, xlExcel5
...
Рейтинг: 0 / 0
09.09.2011, 11:49
| Ответить | Цитировать | Написать  
редактирование таблицы
    #37432351
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
npp2202приходится эту таблицу к foxpro прикручиватьНу так модно было и не редактировать, и без VBA...
Не проще ли прямо из Фокса сделать коннект через ADODB к исходнику и получить нужные данные?
...
Рейтинг: 0 / 0
09.09.2011, 11:56
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / редактирование таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37432351&tid=2176514]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 211ms
total:  338ms
созд. / загр.: 338ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]