Cara menggunakan OLE Automation untuk menambahkan Data ke Excel Sheet

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 142193 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

OLE Automation menyediakan cara untuk Visual FoxPro Windows untuk berinteraksi dengan aplikasi OLE-compliant. Menggunakan OLE, program Visual FoxPro dapat memulai sesi Microsoft Excel, membuka buku kerja, pilih lembar kerja dari buku kerja, tempat data ke dalam sel atau kisaran sel, cetak lembar kerja, Simpan buku kerja yang diperbarui, dan tutup Microsoft Excel sesi. Artikel ini menunjukkan dengan contoh bagaimana untuk melakukan hal itu.

INFORMASI LEBIH LANJUT

Contoh langkah demi langkah

  1. Membuka buku kerja baru di Microsoft Excel 5.0 atau Microsoft Excel 7.0 (bagian Kantor 95) atau Microsoft Excel 97 (bagian dari Office 97), sehingga program contoh dalam artikel ini akan bekerja.
  2. Pilih sheet 3 dengan mengklik tab di bawah lembar kerja, dan masukkan data berikut ke spreadsheet:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. Pada menu Microsoft Excel Dados, klik Subtotal. Hasil kotak dialog harus menunjukkan bahwa pada setiap perubahan dalam bagian #, fungsi 'Uang' menambah subtotal 'Penjualan YTD sempurna' dan menampilkan ringkasan itu di bawah ini data. Jika demikian, klik OK.
  4. Klik tab di bawah lembar kerja untuk 1 lembar untuk mengembalikan halaman default buku kerja untuk 1 lembar.
  5. Simpan buku kerja. Kemudian tutup buku kerja, dan keluar dari Microsoft Excel. Untuk kode contoh berikut, buku kerja yang telah disimpan sebagai
          C:\XLSheets\Testbook.xls.
    					
  6. Di Microsoft Visual FoxPro untuk Windows, membuat program berikut bernama 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
    					

REFERENSI

Memeriksa Microsoft Excel membantu topik "Objek aplikasi" dan banyak topik yang diperkenalkan dalam daftar properti dan metode dari yang topik.

Untuk informasi lebih lanjut tentang banyak konsep-konsep dalam contoh program, Silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
139051 Cara memilih sel dalam Microsoft Excel dengan menggunakan otomatisasi OLE
132535 PRB: Melepaskan variabel objek tidak menutup Microsoft Excel
138398 PRB: Rilis mungkin tidak menghapus OLE objek dari memori

Properti

ID Artikel: 142193 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 6.0 Professional Edition
Kata kunci: 
kbcode kbhowto kbinterop kbmt KB142193 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:142193

Berikan Masukan

 

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