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

Откуда:
Сообщений: 3
Здравствуйте, други. Подскажите код для открытия любого Excel-файла из формы, просто устал экспериментировать.
19 дек 07, 08:03    [5066381]     Ответить | Цитировать Сообщить модератору
 Re: Открыть Excel-файл из приложения Visual FoxPro  [new]
Dima T
Member

Откуда:
Сообщений: 15281
Например так
	sele vprice
	copy to tmp\zakaz field cKatalog, cIzg, cPost, nCena, nKol, nOstat, cUpak, dSrok type xl5
	loEx=newobject("Excel.sheet")
	with loEx.parent
		.Workbooks.Open(fullpath("tmp\zakaz.xls"))
		.range("a1").value="Наименование"
		.range("b1").value="Изготовитель"
		.range("c1").value="Поставщик"
		.range("d1").value="Цена"
		.range("e1").value="Заказ"
		.range("f1").value="Остаток"
		.range("g1").value="Упаковка"
		.range("h1").value="Годен до"
	    .Columns("A:A").ColumnWidth = 40
	    .Columns("B:B").ColumnWidth = 20
		.ActiveWorkbook.SaveAs(lcFile,-4143)
		.ActiveWorkbook.Close()
	endwith
	release loEx
19 дек 07, 09:08    [5066457]     Ответить | Цитировать Сообщить модератору
 Re: Открыть Excel-файл из приложения Visual FoxPro  [new]
@ger
Member

Откуда:
Сообщений: 3
Дима, большущее тебе спасибо, все у меня лошарика получилось.Как-нить отбатрачу при случае.
19 дек 07, 09:51    [5066576]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить