Semua aplikasi pejabat dari Microsoft menyokong automasi. Mereka boleh berjalan sebagai pelayan COM dan digunakan dari skrip yang disisipkan dokumen atau luaran. Jadi, anda boleh menulis data ke dokumen Excel dari skrip vba.
Perlu
- - memasang aplikasi Microsoft Excel;
- - Penyunting Visual Basic / editor teks.
Arahan
Langkah 1
Buat bekas untuk menghoskan kod vba. Sekiranya skrip hendak disematkan dalam dokumen, muat naik fail yang sesuai ke Microsoft Excel. Buka Editor Visual Basic dengan menekan Alt + F11. Sekiranya perlu, buat modul baru (Item modul dalam menu Masukkan). Buka salah satu modul atau borang. Buat pengendali untuk kawalan borang anda, atau cukup tambahkan prosedur ke modul. Sebagai contoh:
Sub ujian ()
Sub Akhir
Sekiranya anda mengembangkan skrip yang berdiri sendiri (iaitu, ia akan dijalankan di bawah Windows Script Host), kemudian buat fail dengan pelanjutan vbs dalam editor teks.
Langkah 2
Dalam skrip yang disertakan dalam dokumen, tambahkan deklarasi berubah pada awal prosedur:
Dim oWorkbook Sebagai Excel. Workbook
Dim oSheet Sebagai Excel. Lembaran Kerja
Yang pertama adalah untuk menyimpan rujukan ke objek buku kerja Excel, dan yang kedua adalah untuk helaian.
Langkah 3
Memulakan pemboleh ubah dengan rujukan objek. Dalam skrip vbs, buat objek aplikasi Excel (ini akan melancarkan Excel sebagai pelayan COM):
Tetapkan oApplication = CreateObject ("Excel. Application").
Dalam skrip yang disertakan dalam dokumen, objek Aplikasi global akan digunakan sebagai ganti pemboleh ubah oApplication, yang merujuk pada objek aplikasi saat ini. Pilih yang ada atau buka buku kerja Excel baru. Sebagai contoh:
Tetapkan oWorkbook = Aplikasi. Buku Kerja (1)
Tetapkan oWorkbook = Application. Workbooks ("Book1")
Tetapkan oWorkbook = oApplication. Workbooks. Buka ("D: / vic / relevan / tmp / test.xls")
Dapatkan pautan ke helaian buku yang dikehendaki:
Tetapkan oSheet = oApplication. Sheets ("Sheet1")
Langkah 4
Tulis data ke Excel dari skrip vba. Gunakan koleksi Sel, yang merupakan harta benda lembaran buku kerja yang dirujuk pada langkah sebelumnya, ke dalam pemboleh ubah oSheet. Contoh menulis rentetan ke satu sel mungkin kelihatan seperti ini:
oSheet. Cells (1, 1) = "Rentetan akan ditulis ke sel A1"
Langkah 5
Dalam skrip vbs, tambahkan kod untuk menyimpan data dan matikan aplikasi Excel:
oWorkbook. Simpan
o Permohonan. Berhenti
Langkah 6
Simpan dan laksanakan skrip. Dalam Penyunting Visual Basic, tekan Ctrl + S dan kemudian letakkan kursor di badan prosedur dan tekan F5. Simpan skrip vbs ke cakera dan kemudian jalankan sebagai fail biasa.
