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

@Анжелк · Регистрация: 12.07.2011

Здравствуйте! Скажите пожалуйста, как перевести синтаксис записанного макроса в excel в синтаксис FoxPro?
Нужно, чтобы из FoxPro обрабатывался лист excel.
Вот записанный макрос:

Visual Basic

 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)

@sks1904 · 26.09.2014, 13:18

Примерно так будет

Код

# 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

Опции темы