Bagaimana menavigasi variabel Excel dari Visual Basic

ID Artikel: 147650 - Melihat produk di mana artikel ini berlaku.
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menjelaskan tiga metode yang dapat Anda gunakan untuk menavigasi dan akses Objek Microsoft Excel aplikasi:

  • Menggunakan tulisan tangan dan default properti
  • Menggunakan aliasing
  • Menggunakan metode orangtua dan aplikasi Microsoft Excel versi 5.0 objek untuk mengakses objek Microsoft Excel
Kembali ke atas | Berikan Masukan

INFORMASI LEBIH LANJUT

Setiap objek dalam Microsoft Excel versi 5.0 ada di suatu tempat di aplikasi hirarki objek. Anda memilih di antara objek-objek ini oleh menavigasi ke aplikasi tersebut hirarki. Di atas ini hirarki adalah objek aplikasi. Peristiwa apa pun atau tindakan yang Anda tetapkan untuk Aplikasi objek mempengaruhi seluruh aplikasi. Misalnya:
   ' Close the application
   [Object].Application.Quit
Ganti [objek] dengan variabel yang menunjuk ke setiap sah Microsoft Excel Objek aplikasi, yang dapat dibuat dari contoh berikut:
   ' MyObject represents [Object] and OLE1 represents an OLE control
   ' that contains an Microsoft Excel Worksheet object.
   MyObject = OLE1.Object
   Set MyObject = CreateObject("Excel.Sheet")
   Set MyObject = GetObject("C:\EXCEL\EXAMPLES\SAMPLES.XLS")
Objek aplikasi berisi objek-objek besar lainnya. Sebagai contoh, Anda dapat Gunakan kode berikut merujuk kepada koleksi buku kerja saat ini dimuat dalam Microsoft Excel:
   [Object].Application.Workbooks
Jika Anda ingin mengambil buku kerja satu dari koleksi, gunakan Item metode. Sebagai contoh, untuk merujuk ke buku kerja pertama:
    [Object].Application.Workbooks.Item(1)
Untuk menutup buku kerja pertama:
   [Object].Application.Workbooks.Item(1).Close

Mengakses objek yang menggunakan tulisan tangan referensi atau Default properti

Buku kerja masing-masing berisi koleksi lembar kerja, setiap lembar berisi kumpulan sel-sel, dan seterusnya. (Lihat dokumentasi Microsoft Excel dan membantu menu untuk rincian spesifik tentang objek Microsoft Excel hirarki.) Dalam kode, referensi ke sel tertentu bisa terlihat seperti ini:
   ' Following refers to cell A1 on Sheet1 in the first workbook.
   ' Enter the following two lines as one, single line:
   [Object].Application.Workbooks.Item(1).
      WorkSheets.Item("Sheet1").Cells.Item(1,1)
Ini dapat menjadi panjang dan rumit; Namun, cara pintas yang tersedia. Memahami operator navigasi (.) fundamental pemrograman objek yang sukses.

Memotong pendek

Semua objek memiliki default properti dan metode. Koleksi, default method adalah metode Item. Untuk sebagian besar objek, nama properti adalah default properti. Konvensi ini dilaksanakan untuk menyederhanakan pemrograman. Misalnya, contoh sebelumnya dapat disederhanakan untuk:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)

Mengakses objek dengan Aliasing objek

Anda dapat menggunakan aliasing untuk menyederhanakan objek pemrograman. Jika Anda menulis banyak kode yang memanipulasi Sheet1, misalnya, sintaks dapat menjadi panjang. Untuk mencegah hal ini, menciptakan suatu objek yang menunjuk ke terendah umum objek. Ini dikenal sebagai aliasing. Menggunakan pernyataan Set untuk membuat alias:
   Dim Sheet1 as Object
   ' Alias Sheet1 to represent [Object]...WorkSheets("Sheet1")
   Set Sheet1 = [Object].Application.Workbooks(1).WorkSheets("Sheet1")
   ' Now just use the variable Sheet1 to refer to Sheet1.
   Sheet1.Cells(1,1).Value = "Title"
   Sheet1.Cells(1,2).Value = "ID"
   Sheet1.Cells(1,3).Value = "Cost"
   Sheet1.Cells(2,1).Value = "Phone"
   Sheet1.Cells(2,2).Value = 123413423
   Sheet1.Cells(2,3).Value = 89.95

Mengakses objek dengan menggunakan orangtua dan metode aplikasi

Orangtua dan aplikasi metode memungkinkan Anda untuk menavigasi kembali ke objek hirarki. Aplikasi metode menavigasi kembali ke objek aplikasi, dan metode orangtua menavigasi naik satu tingkat dari hirarki objek. All contoh dalam artikel ini dimulai dengan [objek]. Selama sebagai [objek] objek Microsoft Excel yang berlaku, semua pernyataan-pernyataan ini juga berlaku. Terlepas dari konteks [objek].

Hal ini sangat berguna ketika pemrograman objek Microsoft Excel dari Visual Basic versi 4.0. Microsoft Excel memperlihatkan hanya benda-benda tiga yang dapat digunakan sebagai titik entri untuk Microsoft Excel. Ini adalah:

  • Excel.Application
  • Excel.sheet
  • Excel.Chart
Jangan bingung dengan Excel.Application.5. Excel.Application akan selalu Arahkan ke versi terbaru dari Microsoft Excel. Excel.Application.5 akan titik hanya untuk Microsoft Excel versi 5.0.

Ada tidak ada objek buku kerja yang terbuka, sehingga tidak ada cara untuk mengakses Buku kerja obyek langsung. Namun, hal ini tidak masalah karena orangtua metode dari objek lembar kerja atau Chart mengembalikan objek buku kerja. The Berikut kode contoh menggambarkan hal ini.

Catatan: oleExcel adalah kontrol OLE yang berisi objek Excel.Sheet.
   ' Declare object references:
   Dim Xlapp As object
   Dim XLWkb As object
   Dim XLWks As object
   Dim XLWksNew As object

   oleExcel.Action = 7   ' Activate OLE Object

   Set XLWks = oleExcel.Object   ' Alias Worksheet object
   Set XLWkb = XLWks.Parent      ' Alias WorkBook object
   Set Xlapp = XLWks.Application ' Alias Application object

   ' Add a new worksheet to the Workbook and name it:
   Set XLWksNew = XLWkb.Worksheets.add  ' Assign alias to new Worksheet
   XLWksNew.Name = "VB4 OLE Automation" & XLWkb.Worksheets.count

   ' Make the 3rd Worksheet of the Workbook active:
   XLWkb.Worksheets(3).Activate

   ' Display the dialog for InsertPicture:
   Xlapp.dialogs(342).[Show]  ' xlDialogInsertPicture = 342
Kembali ke atas | Berikan Masukan

REFERENSI

Kantor pengembangan Kit, pemrograman solusi terpadu
Kembali ke atas | Berikan Masukan

Properti

ID Artikel: 147650 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Excel 5.0 Standard Edition
Kata kunci: 
kb16bitonly kbhowto kbprogramming kbmt KB147650 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:147650
(http://support.microsoft.com/kb/147650/en-us/ )
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.
Kembali ke atas | Berikan Masukan

Berikan Masukan

 
Kembali ke atasKembali ke atas