ASP importa datos (imágenes) a Excel. La versión final de ASP opera con Excel. Los amigos que lo necesiten pueden consultarlo. Creo que hay muchas personas que necesitan usar programas para importar datos a Excel y, en general, es muy conveniente exportar algunos datos de texto. Hay muchos métodos opcionales, como unir cadenas de texto y guardarlas en formato . formato cvs (separando los datos con comas y retornos de carro), abierto con Excel de forma predeterminada), por ejemplo, tratando el archivo xls como datos y usando SQL para operarlo, etc. ¿Qué debo hacer cuando necesito exportar datos de imágenes? ? Esto requiere el uso del objeto Excel.Application.
De hecho, utilizando Excel.Application, puede realizar todas las operaciones que el software OfficeExcel puede realizar y la función es bastante poderosa. Sin embargo, cada uno de nosotros tiene una energía de aprendizaje limitada y es imposible que todos estén familiarizados con ella. , Elegí muchas palabras clave. Busqué en Baidu y Google, con la esperanza de obtener algo de valor, pero después de buscar, no pude encontrar una versión completa. La mayoría de ellas eran consultas y el código contenía muchos errores obvios. deficiencias funcionales. sexo Cabe criticar que una gran cantidad de sitios copian directamente artículos de otros sitios. Y sigue siendo un artículo de baja calidad. ¡Oye, no lo busques! Como dice el refrán, si yo no voy al infierno, quién irá al infierno, así que hice este trabajo para todos.
Primero encontré una colección de manuales de VBA y, afortunadamente, estaba en formato chm. Abrí Vbaexcelxl10.chm y, bueno, no está mal, de hecho es un buen manual, pero no es un tutorial, y tengo ganas. llorando... No puedo evitarlo, no tuve más remedio que seguir leyendo. Después de todo, el manual es un manual y no mencionará algunas operaciones convenientes en detalle, ni explicará la conexión lógica de cada una. parte del contenido por completo Después de mi cuidadoso análisis y audaz predicción, Pensando detenidamente, muchos experimentos, subiendo la montaña de cuchillos, bajando la olla caliente, no, el mar de fuego, finalmente lo logré a la perfección. Ahora lo subí a Web630.Net durante la noche, solo espero que todos lo hagan. Recuerde este sitio y espero que cada sitio de tecnología publique más artículos originales y contribuya al desarrollo de la industria de programación de China.
Copie el código de código de la siguiente manera:
<%
Rem inicializa el entorno de trabajo de ExcelApplication
Dim ExcelApp, libro electrónico, hoja electrónica
Establecer ExcelApp = CreateObject(Excel.Application) 'Crear un objeto de Excel
ExcelApp.DisplayAlerts=false 'No mostrar advertencias
ExcelApp.Application.Visible=false 'No mostrar la interfaz
Rem inicializa datos de Excel
'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'Abre el libro de Excel y reemplaza la siguiente línea
Establecer eBook=ExcelApp.Workbooks.Add 'Crear un nuevo libro de Excel
Establecer eBook=ExcelApp.Workbooks(1) 'Hacer referencia al primer libro
set eSheet = eBook.Worksheets(1) 'Hace referencia a la primera hoja de trabajo
Importación de datos remotos
tenue i,img
yo = 1
Para i=1 a 5
eSheet.Cells(i,1).Value=Campo uno&i
eSheet.Cells(i,2).Value=Campo 2&i
eSheet.Cells(i,3).Value=Campo tres&i
eSheet.Cells(i,4).Seleccione 'Seleccione la cuarta celda en la fila i
Set img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'Inserta una imagen en la ubicación anterior y obtén una referencia a la imagen
img.Top=img.Top+2 'Ajusta la posición de la imagen, lo mismo a continuación, de lo contrario presionará el borde de la mesa
img.Left=img.Left+2 'La unidad es libras
eSheet.Rows(i).RowHeight=img.Height+4 'Ajusta la altura de la fila actual para que sea automáticamente la misma que la altura de la imagen
Próximo
Rem guarda el trabajo realizado anteriormente.
'eBook.Save 'Si está abriendo un archivo de Excel existente, puede usar esta línea para reemplazar la siguiente línea
eBook.SaveAs Server.MapPath(zzz.xls)
Establecer hoja electrónica = Nada
Establecer libro electrónico = Nada
Se debe salir de 'ExcelApp.Quit'; de lo contrario, el proceso de Excel permanecerá en el sistema operativo.
establecer ExcelApp = Nada
%>
Cuando ASP lee o escribe datos en Excel, un método más simple es tratar a Excel como una base de datos y usar declaraciones SQL para operarlo. Hay artículos relacionados en muchos lugares de Internet. Este artículo es solo "ASP importa datos a Excel (). imagen)" La información auxiliar de "La edición final" es para su referencia.
Copie el código de código de la siguiente manera:
<%
Conexión tenue, rs, sql
SubDBAbierto()
Base de datos atenuada: db=Server.MapPath(zzz.xls)
Establecer conexión=Server.CreateObject(Adodb.Connection)
En caso de error Continuar siguiente
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Propiedades extendidas=Excel 8.0;HDR=YES;Fuente de datos= & db
Rem HDR tiene el valor predeterminado SÍ, lo que significa que la primera línea se utiliza como nombre del campo; de lo contrario, se considera como el contenido.
Rem para Excel2007, debería ser: Proveedor=Microsoft.ACE.OLEDB.12.0; Propiedades extendidas=Excel 12.0;Fuente de datos=xxx.xlsx;
Si Err.Number<>0 entonces
Err.Borrar
Response.Write(<h1>El enlace de la base de datos es ERROR</h1>)
Respuesta.Fin()
Terminar si
En caso de error Ir a 0
Subtítulo final
SubDBClose()
Si no está en blanco (conexión) entonces
conexión.Cerrar()
Establecer conexión=Nada
Terminar si
Subtítulo final
La función no está en blanco (por Var TempVar de referencia)
Está en blanco = Verdadero
Seleccione Caso VarType (TempVar)
Caso 0,1 'Vacío y nulo
Está en blanco = falso
Caso 9 'Objeto
Si TypeName(TempVar) = Nada o TypeName(TempVar) = Vacío Entonces
Está en blanco = falso
Terminar si
Seleccionar fin
Función final
LlamarDBopen()
sql=SELECT * FROM [Sheet1$] 'Preste atención a la escritura del nombre de la tabla. Debe agregar el símbolo $ después del nombre de la hoja de trabajo.
Establecer rs=conn.Ejecutar(sql)
Mientras no rs.Eof
Respuesta.Escribir(rs(0)&, )
Respuesta.Escribir(rs(1)&, )
Respuesta.Write(rs(2)&<br />&VbCrLf)
rs.Movenext
Encaminarse a
rs.Close: Establecer rs=Nada
LlamarDBClose()
%>