如何使用 OLE 自動化來將資料新增到 Excel 工作表

文章翻譯 文章翻譯
文章編號: 142193 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

OLE 自動化提供了一種方法,讓 Windows 針對 Visual FoxPro] 與其他 OLE 相容的應用程式互動。使用 OLE,Visual FoxPro 程式可以啟動 Microsoft Excel 工作階段、 開啟活頁簿、 活頁簿中選取的工作表、 將資料放入一個儲存格或儲存格的儲存格範圍、 列印工作表、 儲存更新的活頁簿而關閉 Microsoft Excel 工作階段。本文章顯示範例中,如何進行,只是。

其他相關資訊

雖說是逐步範例

  1. 開啟新的活頁簿在 Microsoft Excel 5.0 或 Microsoft Excel 7.0 (95 Office 的一部分) 或 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 資料] 功能表小計。產生的對話方塊應該顯示在每個變更中零件 # 函式 'SUM '加到小計' 銷售 YTD' 並顯示該資料下方的摘要。如果看到此訊息,按一下 [確定]。
  4. 按一下底端的工作表 1] 到活頁簿的預設頁面還原到工作表 1 在工作表] 索引標籤。
  5. 儲存活頁簿。然後關閉活頁簿,並從 Microsoft Excel 結束。下列範例程式碼在活頁簿已儲存為
          C:\XLSheets\Testbook.xls.
    					
  6. 在 Microsoft Visual FoxPro Windows 的建立名為 oleExcel.prg 下列程式:
    *** Program oleExcel.prg *****
    #DEFINE xlLandscape 2
    #DEFINE xlDoNotSaveChanges 2
    
    DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
    laDemoData(1)= 1024          && could come from table or view
    laDemoData(2)= 2048
    laDemoData(3)= 5120
    laDemoData(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 知識庫 」 中:
139051如何在 Microsoft Excel 中選取儲存格,藉由使用 OLE 自動化
132535PRB: 釋放物件變數不會關閉 Microsoft Excel
138398PRB: 發行可能不 OLE 物件從記憶體中移除

屬性

文章編號: 142193 - 上次校閱: 2004年7月13日 - 版次: 3.3
這篇文章中的資訊適用於:
  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft Visual FoxPro 3.0b Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 6.0 Professional Edition
關鍵字:?
kbmt kbcode kbhowto kbinterop KB142193 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:142193
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com