Помогите пожалуйста! У меня есть таблица с тремя полями таб.номер, фио, должность, которую я создаю в Vfp9. Нужно сохранить ее в Excеlе чтоб три ячейки первой строки были объединены и там было название таблицы "списки на премию", ниже были три мои поля-названия их должны быть жирным шрифтом, и далее все строки таблицы.

Станислав С...кий Можно поступить проще:
Открыть dbf в Excel (он это умеет), сохранить как файл xls. А дальше уже внести все необходимые исправления "ручками"...
Вот ручками как раз мне не надо, потому что у меня будет много отчетов.

Penner http://www.foxclub.ru/articles/art41.php
спасибо за ссылку. Попробую разобраться.

Как мне после создания и заполнения листа Excel сохранить таблицу на диске D:\ychet, закрыть эту таблицу и потом заново ее открыть в Foxpro для дальнейшего редактирования?

Я пишу

* Создаем объект Excel
LOCAL loExcel
loExcel=CREATEOBJECT('Excel.Application')

* Создаем в нем новую рабочую книгу
LOCAL loBook
#DEFINE xlWBATWorksheet -4167
loBook = m.loExcel.workbooks.Add(xlWBATWorksheet)

* Создаем ссылку на новый лист в рабочей книге
LOCAL loSheet
loSheet = m.loBook.Sheets(1)


#DEFINE xlThin 2
#DEFINE xlDiagonalDown 5
#DEFINE xlDiagonalUp 6
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeTop 8
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlInsideVertical 11
#DEFINE xlInsideHorizontal 12

#DEFINE xlCenter -4108
#DEFINE xlTop -4160
#DEFINE xlMedium -4138


LOCAL loRange
loRange = m.loSheet.Range(m.loSheet.Cells(1,1).Address+":"+m.loSheet.Cells(1,10).Address)
loRange.Borders(xlEdgeLeft).Weight = xlMedium
loRange.Borders(xlEdgeTop).Weight = xlMedium
loRange.Borders(xlEdgeBottom).Weight = xlMedium
loRange.Borders(xlEdgeRight).Weight = xlMedium
loRange.Borders(xlInsideVertical).Weight = xlMedium
loRange.Borders(xlInsideHorizontal).Weight = xlMedium

loExcel.Range(loExcel.Cells(1,1),loExcel.Cells(1,10)).Merge()
m.loSheet.Cells(1,1).Value = "Название таблицы"

m.loSheet.Rows(1).HorizontalAlignment = xlCenter
m.loSheet.Rows(1).VerticalAlignment = xlTop
m.loSheet.Rows(1).WrapText = .T.

loExcel.Visible=.T.

Теперь как мне этот файл сохранить в D:\ychet\tablitsa1.xls ??? (программно сохранить)

tanglir,
в том то и дело, я не могу сохранить пишу loExcel.Visible=.T..SaveAs("D:\ychet.otchet1.xls") фокс выдает ошибку

tanglir,

если я повторно запускаю программу у меня выходит ошибка, что такой файл уже есть, как сделать, чтоб файл автоматически перезаписывался.
И обьясните что такое брейкпоинт и куда я должна заходить

tanglir,

не подскажите еще мне надо вставить в таблицу строку в самом начале, захожу в макрос эксель пишет Rows("1:1").Select
Selection.Insert Shift:=хlDown
пыталась перевести это в фокс не получается. Помогите

loExcel=CREATEOBJECT('Excel.Application')

loBook = m.loExcel.workbooks.Open('d:\&z1\1\&x1')
loSheet = m.loBook.Sheets(1)



LOCAL loRange
loRange = m.loSheet.Range(m.loSheet.Cells(1,1).Address+":"+m.loSheet.Cells(n1,8).Address)
loRange.Borders(xlEdgeLeft).Weight = xlThin
loRange.Borders(xlEdgeTop).Weight = xlThin
loRange.Borders(xlEdgeBottom).Weight = xlThin
loRange.Borders(xlEdgeRight).Weight = xlThin
loRange.Borders(xlInsideVertical).Weight = xlThin
loRange.Borders(xlInsideHorizontal).Weight = xlThin

m.loSheet.Columns(1).ColumnWidth = 4.29
m.loSheet.Columns(2).ColumnWidth = 5
m.loSheet.Columns(3).ColumnWidth = 9.29
m.loSheet.Columns(4).ColumnWidth = 6.29

m.loSheet.Columns(6).ColumnWidth = 7.29
m.loSheet.Columns(7).ColumnWidth = 7.29
m.loSheet.Columns(8).ColumnWidth = 7.29
m.loSheet.Rows(1).Font.Bold = .T.
m.loSheet.Rows(n1).Font.Bold = .T.
m.loSheet.Columns(5).delete
*m.loSheet.Rows(1).insert
loSheet.Rows(1).Insert(xlDown)

loExcel.Range(loExcel.Cells(1,1),loExcel.Cells(1,8)).Merge()


m.loSheet.Cells(1,1).Value = "Аренда по локомотивам"

m.loSheet.Rows(1).Font.Bold = .T.

У меня первая строка не объединяет ячейки, там есть "Аренда по локомотивам" жирным шрифтом, но ячейки не объединились

У меня экселевская таблица в формате type xl5

Все получилось, у меня таблица оказывается была в эксел 2.1. Я поменяла на xl5.
Вопрос вот я пишу
brow
copy to d:\1\оtch аll type xl5
какие разновидности typе еще есть?

У меня опять проблема. Я оформила таблицу в Excel как мне и надо было!! Теперь я добавляю лист: loBook.Sheets.Add, но он вставляется впереди моего листа, а мне нужно после. Зашла в макрос еxcеl, перетаскиваю лист написано Movе Aftеr=Shееt(2), пыталась перевести в fox, не получается помогите...?!