Смещение строк в Excel / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Смещение строк в Excel

9 сообщений из 9, страница 1 из 1

Смещение строк в Excel

#37839512

johngorn

Гость

День добрый всем, нужна подсказка, делаю экспорт в эксель через ниже перечисленные команды
VAR1=GETOBJECT('', "Excel.Application")
EXPORT TO "список групп" TYPE XL5 FIELDS &a1
var1.application.visible=.T.
VAR1.AutomationSecurity= 3
VAR1.DisplayAlerts=.F.
var1.workbooks.open(SYS(5)+SYS(2003)+'\список групп.XLS')

после чего хочу просто сместить все данные на две строки вниз, чтобы сделать шапку
с помощью макроса записал код, а действия были следующие Ctrl-A, Ctrl-X, клик мышки в нужную ячейку и Ctrl-V

Range("A1:B73").Select
Selection.Cut
Range("A3").Select
ActiveSheet.Paste

Как это перевести в Visual Foxpro?

...

Рейтинг:

0 / 0

15.06.2012, 13:33

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839535

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

johngorn, да один в один:

Код: sql

1.
2.
3.
4.
5.
6.

loxl=createobject("Excel.Application") --по этой фразе в форуме поищите
--открываете книгу и т.д., всё это в форуме есть
loxl.Range("A1:B73").Select
loxl.Selection.Cut
loxl.Range("A3").Select
loxl.ActiveSheet.Paste

...

Рейтинг:

0 / 0

15.06.2012, 13:42

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839563

johngorn

Гость

тогда вопрос встречный, у меня разный диапазон столбцов и строк в разных отчетах, как сделать чтобы не нужно было указывать диапазон в выделении, а как бы выделить все по Ctrl-A?

...

Рейтинг:

0 / 0

15.06.2012, 13:50

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839573

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

johngorn,

это уже вопрос в форум по офису.

...

Рейтинг:

0 / 0

15.06.2012, 13:54

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839590

johngorn

Гость

ну и на том спасибо, но если кто знает отпишитесь!!!

...

Рейтинг:

0 / 0

15.06.2012, 14:01

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839600

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

johngorn,

KEYBOARD '{CTRL+A}' не поможет?

...

Рейтинг:

0 / 0

15.06.2012, 14:06

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839624

johngorn

Гость

нет пробовал....((((

...

Рейтинг:

0 / 0

15.06.2012, 14:20

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839726

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

johngorn,

попробуй еще так:

Код: plsql

loxl.Cells.Select

...

Рейтинг:

0 / 0

15.06.2012, 15:03

| Ответить | Цитировать | Написать

Смещение строк в Excel

#37839744

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Не надо использовать Selection, Active, Copy-Paste etc...

Код: sql

1.
2.
3.

for i=1 to 2
    var1.Sheets(1).Rows(1).Insert
endfor

...

Рейтинг:

0 / 0

15.06.2012, 15:09

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Смещение строк в Excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&gotonew=1&tid=1583619]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	39ms
get topic data:	10ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	262ms

total:	402ms