ASP mengimpor data (gambar) ke Excel. Versi final ASP mengoperasikan Excel. Teman yang membutuhkan dapat merujuknya. Saya yakin ada banyak orang yang perlu menggunakan program untuk mengimpor data ke Excel, dan telah melakukannya. Secara umum, mengekspor beberapa data teks sangatlah mudah. Ada banyak metode opsional, seperti menggabungkan string teks dan menyimpannya dalam . format cvs (memisahkan data dengan koma dan pengangkutan kembali), dibuka dengan Excel secara default), misalnya, memperlakukan file xls sebagai data dan menggunakan SQL untuk mengoperasikannya, dll. Apa yang harus saya lakukan ketika saya perlu mengekspor data gambar ? Ini memerlukan penggunaan objek Excel.Application.
Faktanya, dengan menggunakan Excel.Application, Anda dapat melakukan semua operasi yang dapat dilakukan perangkat lunak OfficeExcel, dan fungsinya cukup kuat. Namun, kita masing-masing memiliki energi belajar yang terbatas, dan tidak mungkin semua orang memahaminya , Saya memilih banyak kunci Saya mencari kata-kata di Baidu dan Google, berharap mendapatkan sesuatu yang berharga. Tetapi setelah mencari, saya tidak dapat menemukan versi lengkapnya. Kebanyakan dari mereka adalah pertanyaan, dan kode tersebut mengandung banyak kesalahan yang jelas dan kekurangan fungsional. seks. Patut dikritik karena banyak situs yang langsung menyalin artikel dari situs lain. Dan itu masih artikel berkualitas rendah. Hei, jangan mencarinya! Seperti kata pepatah, jika saya tidak masuk neraka, siapa yang akan masuk neraka, jadi saya melakukan pekerjaan ini untuk semua orang.
Saya pertama kali menemukan kumpulan manual VBA, dan untungnya dalam format chm, saya membuka Vbaexcelxl10.chm di dalamnya, dan, lumayan, memang manual yang bagus, tapi ini bukan tutorial, dan saya merasa seperti itu. menangis... Mau bagaimana lagi, saya tidak punya pilihan selain membaca terus. Bagaimanapun, manual ini adalah manual, dan tidak akan menyebutkan beberapa pengoperasian yang mudah secara detail, juga tidak akan menjelaskan hubungan logis dari masing-masingnya. bagian dari konten secara lengkap. Setelah analisis saya yang cermat dan prediksi yang berani, Pemikiran yang cermat, banyak eksperimen, menaiki gunung pisau, menuruni panci panas, bukan, lautan api, akhirnya mencapainya dengan sempurna. Sekarang, saya mengunggahnya ke Web630.Net dalam semalam, semoga semua orang bisa melakukannya ingat situs ini, dan saya berharap setiap situs teknologi akan memposting lebih banyak artikel orisinal dan berkontribusi pada pengembangan industri pemrograman Tiongkok.
Copy kode kodenya sebagai berikut:
<%
Rem menginisialisasi lingkungan kerja ExcelApplication
Redupkan ExcelApp,eBook,eSheet
Setel ExcelApp = CreateObject(Excel.Application) 'Buat objek Excel
ExcelApp.DisplayAlerts=false 'Jangan tampilkan peringatan
ExcelApp.Application.Visible=false 'Jangan tampilkan antarmuka
Rem menginisialisasi data Excel
'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'Buka buku kerja Excel dan ganti baris berikut
Setel eBook=ExcelApp.Workbooks.Add 'Buat buku kerja Excel baru
Setel eBook=ExcelApp.Workbooks(1) 'Referensikan buku kerja pertama
set eSheet = eBook.Worksheets(1) 'Referensi lembar kerja pertama
Impor data rem
Redupkan aku,img
saya = 1
Untuk i=1 Sampai 5
eSheet.Cells(i,1).Value=Bidang satu&i
eSheet.Cells(i,2).Value=Bidang 2&i
eSheet.Cells(i,3).Value=Bidang tiga&i
eSheet.Cells(i,4).Pilih 'Pilih sel ke-4 di baris i
Setel img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'Sisipkan gambar di lokasi di atas dan dapatkan referensi ke gambar tersebut
img.Top=img.Top+2 'Sesuaikan posisi gambarnya sama dibawah, jika tidak maka akan menekan pinggir meja
img.Left=img.Left+2 'Satuannya adalah pound
eSheet.Rows(i).RowHeight=img.Height+4 'Sesuaikan tinggi baris saat ini sehingga secara otomatis sama dengan tinggi gambar
Berikutnya
Rem menyimpan pekerjaan yang dilakukan di atas
'eBook.Save 'Jika Anda membuka file Excel yang sudah ada, Anda dapat menggunakan baris ini untuk menggantikan baris berikut
eBuku.SaveAs Server.MapPath(zzz.xls)
Setel eSheet=Tidak Ada
Setel eBuku=Tidak Ada
'ExcelApp.Quit' harus keluar, jika tidak, proses Excel akan tetap berada di sistem operasi.
atur ExcelApp = Tidak Ada
%>
Saat ASP membaca atau menulis data ke Excel, metode yang lebih sederhana adalah memperlakukan Excel sebagai database dan menggunakan pernyataan SQL untuk mengoperasikannya. Ada artikel terkait di banyak tempat di Internet. Artikel ini hanya berisi "ASP mengimpor data ke Excel ( gambar)" Informasi tambahan dari "Edisi Terakhir" adalah untuk referensi Anda.
Copy kode kodenya sebagai berikut:
<%
Sambungan redup, rs, sql
SubDBTerbuka()
Redupkan db: db=Server.MapPath(zzz.xls)
Setel koneksi=Server.CreateObject(Adodb.Connection)
Pada Kesalahan Lanjutkan Berikutnya
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Properti Diperluas=Excel 8.0;HDR=YES;Sumber Data= & db
Rem HDR defaultnya adalah YES, yang berarti baris pertama digunakan sebagai nama bidang, jika tidak maka akan dianggap sebagai konten
Rem untuk Excel2007, seharusnya: Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;
Jika Err.Number<>0 maka
Err. Jelas
Response.Write(<h1>Link Database ERROR</h1>)
Respon.Akhir()
Akhiri Jika
Pada Kesalahan GoTo 0
Akhiri Sub
SubDBTutup()
Jika IsNotBlank(sambungan) Lalu
samb.Tutup()
Setel samb=Tidak Ada
Akhiri Jika
Akhiri Sub
Fungsi IsNotBlank (ByRef TempVar)
IsBlank=Benar
Pilih Kasus VarType (TempVar)
Kasus 0,1 'Kosong & Batal
IsBlank = Salah
Kasus 9 'Objek
Jika TypeName(TempVar) = Tidak Ada Atau TypeName(TempVar) = Kosong Maka
IsBlank = Salah
Akhiri Jika
Pilihan Akhir
Fungsi Akhir
PanggilanDBOpen()
sql=SELECT * FROM [Sheet1$] 'Perhatikan penulisan nama tabel. Anda perlu menambahkan simbol $ setelah nama lembar kerja.
Setel rs=sambungan.Jalankan(sql)
Meskipun Bukan rs.Eof
Respon.Tulis(rs(0)&, )
Respon.Tulis(rs(1)&, )
Respon.Tulis(rs(2)&<br />&VbCrLf)
rs.Movenext
Pergi ke
rs.Tutup: Setel rs=Tidak Ada
PanggilanDBCTutup()
%>