Форум программистов, компьютерный форум, киберфорум
Visual FoxPro
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
8 / 8 / 6
Регистрация: 12.07.2011
Сообщений: 168
1

Как перевести синтаксис макроса VBA (Excel) в синтаксис Visual FoxPro

25.09.2014, 18:10. Просмотров 2158. Ответов 1
Метки нет (Все метки)


Здравствуйте! Скажите пожалуйста, как перевести синтаксис записанного макроса в excel в синтаксис FoxPro?
Нужно, чтобы из FoxPro обрабатывался лист excel.
Вот записанный макрос:
Visual Basic
1
2
3
4
5
6
7
8
 Range("D1:D2").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Sanya_CooSh\Desktop\Лист Microsoft Excel.txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
Макрос заменяет запятую на точку и сохраняет в .txt(dos)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2014, 18:10
Ответы с готовыми решениями:

Как перевести синтаксис Intel в синтаксис AT&T? (ассемблерная вставка в СИ)
Извиняюсь, что, возможно, пишу не в ту тему. Нужен именно AT&T синтаксит. В качестве примера для...

Синтаксис переменных в vba Excel
Добрый день, форумчане. Помогите с синтаксисом переменной в vba. Уже и квадратные скобки...

Синтаксис: точка в теле макроса struc и звёздочка в описании параметров макроса
struc XXXX { .: ; это что имеется ввиду??? ;..... .hwnd dd ? .lpVerb dd...

Foxpro ручное создание grid как прописать синтаксис для header1.click
Добрый день. Пожалуйста, подскажите как правильно прописать при ручном создании grida ...

1
185 / 179 / 28
Регистрация: 26.05.2011
Сообщений: 852
26.09.2014, 13:18 2
Примерно так будет
Код
# include excel.h
LOCAL lcPathOld, loExcel, old
lcPathOld = GETFILE('XLS')
old	=	ON("error")
ON ERROR loExcel	=	.null.
loExcel	=	GETOBJECT(, "Excel.Application")
ON ERROR &old
IF ISNULL(loExcel)
	loExcel	=	CREATEOBJECT("Excel.Application")
ENDIF
WITH loExcel
	.WorkBooks.open(lcPathOld)
  	.Visible = .T.
        .ActiveSheet.Range("D1:D2").Replace(",",".",xlPart,xlByRows,.F.,.F.,.F.)
        .SaveAs("C:\Users\Sanya_CooSh\Desktop\Лист Microsoft Excel.txt", xlTextMSDOS, .F.)
ENDWITH
EXCEL.rar
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2014, 13:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как правильно написать синтаксис в VBA?
Всем Здраствовать и Доброго дня! Подскажите как правильно написать синтаксис в VBA? Пишу так:...

Как перевести строку из синтаксиса Intel в синтаксис AT&T?
mov al, byte ptr string

Синтаксис between в VBA
Напомните пожалуйста каков синтаксис between в VBA? Есть запрос в SQL с выборкой периода на основе...

Перевести с C++ в Си (синтаксис)
всем доброго времени суток. немного знаю Си, но совершенно не владею С++. задача перевести код из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.