В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Способы добавления данных в лист Excel с помощью OLE-автоматизации

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:142193
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Аннотация
OLE Automation предоставляет способ для Visual FoxPro для Windows для взаимодействияс другими приложениями, поддерживающих технологию OLE. С помощью OLE, программа Visual FoxProможно начать сеанс Microsoft Excel, открыть книгу, выберите листиз книги, поместить данные в ячейку или диапазон ячеек, печатьлист, сохраните обновленный книгу и закрыть Microsoft Excelсеанс. В данной статье демонстрируется на примере делать это.
Дополнительная информация

Пошаговый пример

  1. Откройте новую книгу в Microsoft Excel версии 5.0 или Microsoft Excel 7.0 (часть Office 95) или Microsoft Excel 97 (частью Office 97), таким образом, Пример программы в данной статье будет работать.
  2. Выберите лист 3, щелкнув вкладку в нижней части листа и введите следующие данные в электронную таблицу.
          Enter         In Cells      ----------------------------      Part #        A1      Sales YTD     B1      1             A2 through A4      2             A5 through A7      3             B2 through B7					
  3. Данные Microsoft Excel в меню подытога. Полученный диалоговое окно должно показывают, что при каждом изменении в части #, функция «Сумма» Добавление подытогов «Продаж с начала года» и отображения этого ниже сводка данные. Нажмите кнопку ОК.
  4. Перейдите на вкладку в нижней части листа для листа 1, чтобы восстановить книгу по умолчанию страницы на листе 1.
  5. Сохраните книгу. Затем закройте книгу и выйти из Microsoft Microsoft Excel. В следующем примере кода для книги был сохранен как
          C:\XLSheets\Testbook.xls.					
  6. В Microsoft Visual FoxPro для Windows создайте следующую программу с именем oleExcel.prg:
    *** Program oleExcel.prg *****#DEFINE xlLandscape 2#DEFINE xlDoNotSaveChanges 2DIMENSION laDemoData(4)      && For some Visual FoxPro users, datalaDemoData(1)= 1024          && could come from table or viewlaDemoData(2)= 2048laDemoData(3)= 5120laDemoData(4)= "The Sample Message"loExcel = CREATEOBJECT("Excel.application") WITH loExcel   .Application.Workbooks.Open("C:\XLSheets\testbook.xls")   .Application.Worksheets("Sheet3").Activate  && Select sheet      .Range("b2").Value = 14444          && constants as data   .Range("b3").Value = 25555   .Range("b4").Value = 30001   .Range("b6").Value = laDemoData(1)  && variables as data   .Range("b7").Value = laDemoData(2)   .Range("b8").Value = laDemoData(3)   .Range("a12").Value = laDemoData(4)   .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape   .ActiveSheet.PrintOut  && Example of printing the worksheet   .Visible = .t. && See the results   =MESSAGEBOX("Click OK to close Excel.") && Keep the program running,                                            && so Excel isn't stranded   .ActiveWindow.Close(xlDoNotSaveChanges)   .Quit()ENDwith					
Ссылки
Просмотреть раздел справки Microsoft Excel «Объекта приложения» и многиеразделы, представленные в списки свойств и методовраздел.

Для получения дополнительных сведений о многие из концепций в пример программыобратитесь к следующим статьям Microsoft Knowledge Base:
139051 Выбор ячеек в Microsoft Excel с помощью OLE-автоматизации
132535 PRB: Освобождение объектная переменная не закрывайте Microsoft Excel
138398 PRB: Выпуска может не удалять объекты OLE из памяти
Печать взаимодействия

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 142193 — последний просмотр: 12/04/2015 12:56:01 — редакция: 4.0

Microsoft Visual FoxPro 3.0 Standard Edition, Microsoft Visual FoxPro 5.0 Standard Edition, Microsoft Visual FoxPro 6.0 Professional Edition

  • kbnosurvey kbarchive kbcode kbhowto kbinterop kbmt KB142193 KbMtru
Отзывы и предложения