Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Смещение строк в Excel  [new]
johngorn
Member

Откуда: Россия г. Тирасполь
Сообщений: 140
День добрый всем, нужна подсказка, делаю экспорт в эксель через ниже перечисленные команды
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?
15 июн 12, 13:33    [12719595]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
tanglir
Member

Откуда:
Сообщений: 28966
johngorn, да один в один:

loxl=createobject("Excel.Application") --по этой фразе в форуме поищите
--открываете книгу и т.д., всё это в форуме есть
loxl.Range("A1:B73").Select
loxl.Selection.Cut
loxl.Range("A3").Select
loxl.ActiveSheet.Paste
15 июн 12, 13:42    [12719685]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
johngorn
Member

Откуда: Россия г. Тирасполь
Сообщений: 140
тогда вопрос встречный, у меня разный диапазон столбцов и строк в разных отчетах, как сделать чтобы не нужно было указывать диапазон в выделении, а как бы выделить все по Ctrl-A?
15 июн 12, 13:50    [12719770]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
tanglir
Member

Откуда:
Сообщений: 28966
johngorn,

это уже вопрос в форум по офису.
15 июн 12, 13:54    [12719805]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
johngorn
Member

Откуда: Россия г. Тирасполь
Сообщений: 140
ну и на том спасибо, но если кто знает отпишитесь!!!
15 июн 12, 14:01    [12719853]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
Jonny540
Member

Откуда:
Сообщений: 727
johngorn,

KEYBOARD '{CTRL+A}' не поможет?
15 июн 12, 14:06    [12719898]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
johngorn
Member

Откуда: Россия г. Тирасполь
Сообщений: 140
нет пробовал....((((
15 июн 12, 14:20    [12720034]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
Jonny540
Member

Откуда:
Сообщений: 727
johngorn,

попробуй еще так:
loxl.Cells.Select
15 июн 12, 15:03    [12720528]     Ответить | Цитировать Сообщить модератору
 Re: Смещение строк в Excel  [new]
AndreTM
Member

Откуда: Где-то в вологодских лесах...
Сообщений: 6901
Не надо использовать Selection, Active, Copy-Paste etc...
for i=1 to 2
    var1.Sheets(1).Rows(1).Insert
endfor
15 июн 12, 15:09    [12720598]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить