ASP importiert Daten (Bilder) nach Excel. Die endgültige Version von ASP kann auf Excel zurückgreifen. Ich glaube, es gibt viele Leute, die Programme verwenden müssen, um Daten in Excel zu importieren, und im Allgemeinen ist es sehr praktisch, einige Textdaten zu exportieren. Es gibt viele optionale Methoden, wie zum Beispiel das Zusammenfügen von Textzeichenfolgen und deren Speicherung. cvs-Format (Trennung der Daten durch Kommas und Wagenrückläufe), standardmäßig mit Excel geöffnet), z. B. Behandlung der XLS-Datei als Daten und Verwendung von SQL für den Betrieb usw. Was soll ich tun, wenn ich Bilddaten exportieren muss? ? Dies erfordert die Verwendung des Excel.Application-Objekts.
Tatsächlich können Sie mit Excel.Application alle Vorgänge ausführen, die die OfficeExcel-Software ausführen kann, und die Funktion ist sehr leistungsfähig. Allerdings verfügt jeder von uns über eine begrenzte Lernenergie und es ist unmöglich, dass jeder damit vertraut ist Ich habe viele Schlüsselwörter ausgewählt und auf Baidu und Google gesucht, in der Hoffnung, etwas Wertvolles zu finden. Nach der Suche konnte ich jedoch keine vollständige Version finden, und der Code enthielt viele offensichtliche Fehler Funktionsmängel Sex Es ist zu kritisieren, dass eine große Anzahl von Websites Artikel von anderen Websites direkt kopiert. Und es ist immer noch ein Artikel von geringer Qualität. Hey, suchen Sie nicht danach! Wie das Sprichwort sagt: Wenn ich nicht zur Hölle fahre, wer wird dann zur Hölle fahren?
Ich habe zuerst eine Sammlung von VBA-Handbüchern gefunden, und zum Glück war sie im CHM-Format. Ich habe darin die Datei Vbaexcelxl10.chm geöffnet, und, nun ja, es ist nicht schlecht, es ist zwar ein gutes Handbuch, aber es ist kein Tutorial, und ich habe das Gefühl Weinen ... Ich kann nicht anders, als weiterzulesen. Schließlich handelt es sich bei dem Handbuch um ein Handbuch, und es wird weder einige praktische Vorgänge im Detail erwähnen noch den logischen Zusammenhang der einzelnen Vorgänge erklären Teil des Inhalts vollständig Nach meiner sorgfältigen Analyse und kühnen Vorhersage, Sorgfältiges Nachdenken, viele Experimente, den Berg der Messer hinauf, den heißen Topf hinunter, nein, das Feuermeer, ich habe es endlich perfekt geschafft. Jetzt habe ich es über Nacht auf Web630.Net hochgeladen, ich hoffe nur, dass es jeder tut Erinnern Sie sich an diese Website und ich hoffe, dass jede Technologie-Website mehr Originalartikel veröffentlicht und zur Entwicklung der chinesischen Programmierindustrie beiträgt.
Kopieren Sie den Codecode wie folgt:
<%
Rem initialisiert die Arbeitsumgebung von ExcelApplication
Dimmen Sie ExcelApp, eBook, eSheet
Set ExcelApp = CreateObject(Excel.Application) 'Erstellen Sie ein Excel-Objekt
ExcelApp.DisplayAlerts=false „Warnungen nicht anzeigen.“
ExcelApp.Application.Visible=false 'Schnittstelle nicht anzeigen
Rem initialisiert Excel-Daten
'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'Öffnen Sie die Excel-Arbeitsmappe und ersetzen Sie die folgende Zeile
Set eBook=ExcelApp.Workbooks.Add 'Erstellen Sie eine neue Excel-Arbeitsmappe
Set eBook=ExcelApp.Workbooks(1) 'Referenzieren Sie die erste Arbeitsmappe
set eSheet = eBook.Worksheets(1) 'Referenzieren Sie das erste Arbeitsblatt
Rem-Datenimport
Dim i,img
ich = 1
Für i=1 bis 5
eSheet.Cells(i,1).Value=Feld eins&i
eSheet.Cells(i,2).Value=Feld 2&i
eSheet.Cells(i,3).Value=Feld drei&i
eSheet.Cells(i,4).Select 'Wählen Sie die 4. Zelle in Zeile i aus
Set img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'Fügen Sie ein Bild an der oben genannten Stelle ein und erhalten Sie einen Verweis auf das Bild
img.Top=img.Top+2 'Passen Sie die Position des Bildes an, dasselbe wie unten, sonst drückt es gegen die Tischkante
img.Left=img.Left+2 'Die Einheit ist Pfund
eSheet.Rows(i).RowHeight=img.Height+4 'Passen Sie die Höhe der aktuellen Zeile so an, dass sie automatisch mit der Höhe des Bildes übereinstimmt
Nächste
Rem speichert die oben geleistete Arbeit
'eBook.Save 'Wenn Sie eine vorhandene Excel-Datei öffnen, können Sie diese Zeile verwenden, um die folgende Zeile zu ersetzen
eBook.SaveAs Server.MapPath(zzz.xls)
Legen Sie eSheet=Nothing fest
Stellen Sie eBook=Nothing ein
„ExcelApp.Quit“ muss beendet werden, ansonsten bleibt der Excel-Prozess im Betriebssystem bestehen.
set ExcelApp = Nothing
%>
Wenn ASP Daten in Excel liest oder schreibt, besteht eine einfachere Methode darin, Excel als Datenbank zu behandeln und SQL-Anweisungen für den Betrieb zu verwenden. Es gibt verwandte Artikel an vielen Stellen im Internet. Dieser Artikel lautet nur „ASP importiert Daten in Excel“ (). Bild)“ Die Zusatzinformationen von „The Final Edition“ dienen als Referenz.
Kopieren Sie den Codecode wie folgt:
<%
Conn,rs,sql dimmen
SubDBOpen()
Datenbank dimmen: db=Server.MapPath(zzz.xls)
Setze conn=Server.CreateObject(Adodb.Connection)
Bei Fehler Weiter fortsetzen
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=YES;Data Source= & db
Rem HDR ist standardmäßig auf JA eingestellt, was bedeutet, dass die erste Zeile als Feldname verwendet wird, andernfalls wird sie als Inhalt betrachtet
Rem für Excel2007 sollte es sein: Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;
Wenn Err.Number<>0 dann
Fehler.Klar
Response.Write(<h1>Der Datenbanklink ist FEHLER</h1>)
Response.End()
Ende wenn
Bei Fehler GoTo 0
Sub beenden
SubDBClose()
Wenn IsNotBlank(conn) Dann
conn.Close()
Setze conn=Nothing
Ende wenn
Sub beenden
Funktion IsNotBlank(ByRef TempVar)
IsBlank=True
Fall-VarTyp(TempVar) auswählen
Fall 0,1 'Leer & Null
IsBlank = Falsch
Fall 9 „Objekt
Wenn TypeName(TempVar) = Nothing oder TypeName(TempVar) = Empty Then
IsBlank = Falsch
Ende wenn
Endauswahl
Funktion beenden
CallDBOpen()
sql=SELECT * FROM [Sheet1$] 'Achten Sie auf die Schreibweise des Tabellennamens. Sie müssen das Symbol $ nach dem Arbeitsblattnamen hinzufügen.
Setze rs=conn.Execute(sql)
Während nicht rs.Eof
Response.Write(rs(0)&, )
Response.Write(rs(1)&, )
Response.Write(rs(2)&<br />&VbCrLf)
rs.Movenext
Wend
rs.Close: Setze rs=Nothing
CallDBClose()
%>