1. Menggunakan OWC
Apa itu OWC?
OWC adalah singkatan dari Office Web Compent, yang merupakan Komponen Web Office Microsoft. Ini menyediakan mekanisme yang fleksibel dan mendasar untuk menggambar grafik di Web. Dalam lingkungan intranet, jika dapat diasumsikan bahwa browser tertentu dan beberapa perangkat lunak canggih (seperti IE5 dan Office 2000) ada di komputer klien, maka komponen Web Office dapat digunakan untuk menyediakan lingkungan pengembangan grafis interaktif. Dalam mode ini, stasiun kerja klien akan berbagi sebagian besar tugas secara keseluruhan.
<%Opsi Eksplisit
KelasExcelGen
ObjSpreadsheet pribadi
iColOffset Pribadi
iRowOffset Pribadi
SubKelas_Inisialisasi()
Setel objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iKolOffset=2
Akhir Sub
Sub Kelas_Terminate()
Setel objSpreadsheet = Tidak Ada 'Bersihkan
Akhiri Sub
Properti Publik Biarkan ColumnOffset (iColOff)
Jika iColOff > 0 maka
iColOffset = iColOff
Kalau tidak
iKolOffset=2
Akhiri Jika
Properti Akhir
Properti Publik Biarkan RowOffset(iRowOff)
Jika iRowOff > 0 maka
iRowOffset = iRowOff
Kalau tidak
iRowOffset = 2
Akhiri Jika
Lembar Kerja Hasilkan Sub Properti Akhir (objRS)
'Mengisi lembar kerja Excel berdasarkan konten Recordset
'Mulailah dengan menampilkan judulnya
Jika objRS.EOF lalu Keluar dari Sub
Redupkan objekField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
Untuk Setiap objField di objRS.Fields
objSpreadsheet.Sel(iRow, iCol).Nilai = objField.Nama
objSpreadsheet.Kolom(iCol).AutoFitColumns
'Atur font di tabel Excel
objSpreadsheet.Sel(iRow, iCol).Font.Bold = Benar
objSpreadsheet.Sel(iRow, iCol).Font.Italic = Salah
objSpreadsheet.Sel(iRow, iCol).Font.Ukuran = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 'Pusat
iKol = iKol + 1
Berikutnya 'objField
'Tampilkan semua data
Lakukan Sementara Tidak objRS.EOF
iBaris = iBaris + 1
iCol = iColOffset
Untuk Setiap objField di objRS.Fields
Jika IsNull(objField.Value) maka
objSpreadsheet.Sel(iRow, iCol).Nilai = ""
Kalau tidak
objSpreadsheet.Sel(iRow, iCol).Value = objField.Value
objSpreadsheet.Kolom(iCol).AutoFitColumns
objSpreadsheet.Sel(iRow, iCol).Font.Bold = Salah
objSpreadsheet.Sel(iRow, iCol).Font.Italic = Salah
objSpreadsheet.Sel(iRow, iCol).Font.Ukuran = 10
Akhiri Jika
iKol = iKol + 1
Berikutnya 'objField
objRS.MoveNext
Lingkaran
Akhir Sub Fungsi SaveWorksheet(strFileName)
'Simpan lembar kerja ke nama file tertentu
Pada Kesalahan Lanjutkan Berikutnya
Hubungi objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SimpanLembar Kerja = (Err.Nomor = 0)
Fungsi Akhir
ObjRS Redupkan
Kelas Akhir
Setel objRS = Server.CreateObject("ADODB.Recordset")
objRS.Buka "PILIH * DARI xxxx", "Penyedia=SQLLEDB.1;
Info Keamanan Tetap=True;ID Pengguna=xxxx;Password=xxxx;Katalog Awal=xxxx;Sumber data=xxxx;"
Redupkan Nama Simpan
SaveName = Permintaan.Cookies("savename")("nama")
Redupkan objekUnggul
RedupkanExcelPath
ExcelPath = "Excel" & NamaSimpan & ".xls"
Tetapkan objExcel = ExcelGen Baru
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
Jika objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) maka
'Response.Write "＜html＞＜body bgcolor='gainsboro' text='#000000'＞Disimpan sebagai file Excel.
＜a href='" & server.URLEncode(ExcelPath) & "'＞Unduh＜/a＞ "
Kalau tidak
Response.Write "Terjadi kesalahan saat menyimpan!"
Akhiri Jika
Setel objExcel = Tidak Ada
objRS.Tutup
Setel objRS = Tidak Ada
%>
2. Gunakan komponen Aplikasi Excel untuk mengekspor ke Excel atau Word di klien.
Catatan: "data" di kedua fungsi adalah id tabel yang akan diekspor di halaman web
<input type="hidden" name="out_word " onclick="vbscript :buildDoc" value="Ekspor ke Word" class="notPrint">
＜input type="hidden" name="out_excel" onclick="AutomateExcel();" value="Ekspor ke excel" class="notPrint"＞
Ekspor ke kode Excel
＜SCRIPT LANGUAGE="javascript">
<!--
fungsi MengotomatiskanExcel()
{
// Mulai Excel dan dapatkan objek Aplikasi.
var oXL = new ActiveXObject("Excel.Aplikasi");
// Dapatkan buku kerja baru.
var oWB = oXL.Buku Kerja.Tambahkan();
var oSheet = oWB.ActiveSheet;
var tabel = dokumen.semua.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Tambahkan header tabel sel demi sel.
untuk (i=0;i<menggantung;i++)
{
untuk (j=0;j<kebohongan;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}
}
oXL.Terlihat = benar;
oXL.UserControl = benar;
}
//-->
＜/SCRIPT＞
Ekspor ke kode Word
＜bahasa skrip="vbscript"＞
Sub buildDoc
set tabel = dokumen.semua.data
baris = tabel.baris.panjang
kolom = tabel.baris(1).sel.panjang
Set objWordDoc = CreateObject("Word.Document")
objWordDoc.Application.Documents.Tambahkan Templat, False
objWordDoc.Application.Visible=Benar
Redupkan Array(20,10000)
untuk i=0 hingga baris-1
untuk j=0 ke kolom-1
theArray(j+1,i+1) = tabel.baris(i).sel(j).innerTEXT
Berikutnya
Berikutnya
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("Comprehensive Query Result Set") //Menampilkan judul tabel
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Setel rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
Dengan rngPara
.Bold = True //Membuat judul menjadi tebal
.ParagraphFormat.Alignment = 1 //Pusatkan judul
.Font.Name = "skrip resmi" //Setel font judul
.Font.Size = 18 //Mengatur ukuran font judul
Akhiri Dengan
Setel rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Setel tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
untuk i = 1 ke kolom
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray (saya,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
Berikutnya
Untuk i =1 ke kolom
Untuk j = 2 ke baris
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Berikutnya
Sub Akhir
Berikutnya
＜/SCRIPT＞
3. Buka langsung di IE, lalu simpan sebagai file EXCEL.
Gunakan format <table> untuk menampilkan data yang telah dibaca di halaman web. Pada saat yang sama, tambahkan kalimat berikutnya untuk menampilkan EXCEL tabel pada klien.
<%response.ContentType ="application/vnd.ms-excel"%>
Catatan: Di halaman yang ditampilkan, hanya <table> yang ditampilkan. Yang terbaik adalah tidak menampilkan informasi selain tabel lainnya.
4. Ekspor csv dipisahkan dengan koma setengah lebarnya.
Gunakan metode fso untuk menghasilkan file teks dan menghasilkan file csv dengan ekstensi. Dalam file ini, satu baris adalah satu baris tabel data. Hasilkan bidang tabel data yang dipisahkan dengan koma setengah lebarnya. (Metode pembuatan file teks dengan fso tidak akan diperkenalkan di sini)
Pengenalan file CSV (file yang dipisahkan koma)
Pilih opsi ini dan sistem akan membuat file CSV untuk diunduh; CSV adalah format file yang paling umum berbagai bentuk PC dan database dengan sangat mudah.
Harap perhatikan bahwa meskipun Anda memilih Tabel sebagai format keluaran, Anda masih dapat mengunduh hasilnya sebagai file CSV. Di bagian bawah layar keluaran tabel, ada opsi "File CSV", klik untuk mengunduh file.
Jika Anda mengonfigurasi browser untuk mengaitkan perangkat lunak spreadsheet dengan teks (TXT)/file yang dibatasi koma (CSV), file akan otomatis terbuka saat Anda mendownloadnya. Setelah diunduh, jika EXCEL diinstal secara lokal, klik file ini untuk membukanya secara otomatis dengan perangkat lunak EXCEL.