Excel sayfası için veri eklemek için OLE Otomasyonu kullanma

Makale çevirileri Makale çevirileri
Makale numarası: 142193 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

OLE Otomasyonu Visual FoxPro OLE uyumlu diğer uygulamalarla etkileşim kurmak Windows için bir yol sağlar. OLE kullanarak, Visual FoxPro programı bir Microsoft Excel oturumu başlatmak, bir çalışma kitabını, çalışma kitabından seçin, veri için hücre veya hücre aralığı yerleştirmek, çalışma sayfasını yazdırma, güncelleştirilmiş çalışma kitabını kaydedin ve Microsoft Excel oturumu kapatın. Bu makalede, yalnızca bunu nasıl örnek gösterilmektedir.

Daha fazla bilgi

Adım adım örnek

  1. Bu makalede program örnekte çalışması, Microsoft Excel 5.0 veya Microsoft Excel 7.0 (95 Office'in bir parçası) veya Microsoft Excel 97'de (Office 97'ın parçası) yeni bir çalışma kitabını açın.
  2. 3 Sayfa çalışma sayfasının altındaki sekmesini tıklatarak seçin ve elektronik tabloya aşağıdaki verileri girin:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. Microsoft Excel veri</a0> menüsünde, ALTTOPLAM tıklatın. Elde edilen iletişim kutusunda, her değişiminde 'Satış 'için alt toplamlar ekler' YTD SUM' işlevi #, bölüm ve verileri aşağıda bu özeti görüntülemek, göstermelidir. Bu durumda, Tamam'ı tıklatın.
  4. Alt sayfa 1'Sayfa 1'için varsayılan sayfayı çalışma kitabının geri yüklemek için çalışma sayfasının sekmesini tıklatın.
  5. Çalışma kitabını kaydedin. Daha sonra çalışma kitabını kapatın ve Microsoft Excel'den çıkın. Aşağıdaki örnek kod için çalışma kitabını
          C:\XLSheets\Testbook.xls.
    					
  6. Microsoft Visual FoxPro için Windows'da oleExcel.prg adında aşağıdaki programı oluşturma:
    *** 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
    					

Referanslar

Microsoft Excel Yardımı konu "Application Object" ve bu konunun özellikleri ve yöntemleri listelerinde sunulan pek çok konuları inceleyin.

Birçok örnek programındaki kavramları hakkında daha fazla bilgi için lütfen aşağıdaki Microsoft Knowledge Base'deki makaleleri bakın:
139051Nasıl yapılır: OLE Otomasyonu'nu kullanarak, Microsoft Excel'de hücreleri seç
132535SORUN: Nesne değişkeni Releasing Microsoft Excel'in Kapat Not
138398SORUN: Yayın olmayan Kaldır OLE nesneleri bellek arasında olabilir.

Özellikler

Makale numarası: 142193 - Last Review: 13 Temmuz 2004 Salı - Gözden geçirme: 3.3
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbmt kbcode kbhowto kbinterop KB142193 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:142193

Geri Bildirim Ver

 

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