ASP importa dados (imagens) para o Excel A versão final do ASP opera o Excel. Amigos necessitados podem consultá-lo. Acredito que há muitas pessoas que precisam usar programas para importar dados para o Excel e, em geral, é muito conveniente exportar alguns dados de texto. Existem muitos métodos opcionais, como unir strings de texto e salvá-los em formato . formato cvs (separando os dados com vírgulas e retornos de carro), aberto com Excel por padrão), por exemplo, tratar o arquivo xls como dados e usar SQL para operá-lo, etc. ? Isso requer o uso do objeto Excel.Application.
Na verdade, usando Excel.Application, você pode realizar todas as operações que o software OfficeExcel pode realizar, e a função é bastante poderosa. No entanto, cada um de nós tem energia de aprendizado limitada e é impossível que todos estejam familiarizados com ela. , escolhi muitas palavras-chave e pesquisei no Baidu e no Google, na esperança de obter algo de valor, mas depois de pesquisar, não consegui encontrar uma versão completa. deficiências funcionais do sexo. Vale a pena criticar que um grande número de sites copiam diretamente artigos de outros sites. E ainda é um artigo de baixa qualidade. Ei, não procure, como diz o ditado, se eu não for para o inferno, quem irá para o inferno, então fiz esse trabalho para todos!
Encontrei pela primeira vez uma coleção de manuais VBA e, felizmente, estava no formato chm. Abri o Vbaexcelxl10.chm nele e, bem, não é ruim, é realmente um bom manual, mas não é um tutorial, e sinto que sim. chorando... não posso evitar, não tive escolha a não ser continuar lendo. Afinal, o manual é um manual e não mencionará em detalhes algumas operações convenientes, nem explicará a conexão lógica de cada uma. parte do conteúdo completamente. Após minha análise cuidadosa e previsão ousada, Pensamento cuidadoso, muitos experimentos, subida à montanha de facas, descida à panela quente, não, mar de fogo, finalmente consegui perfeitamente. Agora, carreguei no Web630.Net durante a noite, só espero que todos o façam. lembre-se deste site e espero que cada site de tecnologia publique mais artigos originais e contribua para o desenvolvimento da indústria de programação da China.
Copie o código do código da seguinte forma:
<%
Rem inicializa o ambiente de trabalho do ExcelApplication
Dim ExcelApp,e-book,eSheet
Set ExcelApp = CreateObject(Excel.Application) 'Cria um objeto Excel
ExcelApp.DisplayAlerts=false 'Não exibir avisos
ExcelApp.Application.Visible=false 'Não exibir a interface
Rem inicializa dados do Excel
'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'Abra a pasta de trabalho do Excel e substitua a seguinte linha
Set eBook=ExcelApp.Workbooks.Add 'Crie uma nova pasta de trabalho do Excel
Set eBook=ExcelApp.Workbooks(1) 'Referenciar a primeira pasta de trabalho
set eSheet = eBook.Worksheets(1) 'Referencie a primeira planilha
Importação de dados Rem
Dim eu, img
eu = 1
Para i = 1 a 5
eSheet.Cells(i,1).Value=Campo um&i
eSheet.Cells(i,2).Value=Campo 2&i
eSheet.Cells(i,3).Value=Campo três&i
eSheet.Cells(i,4).Select 'Selecione a 4ª célula na linha i
Set img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'Insira uma imagem no local acima e obtenha uma referência para a imagem
img.Top=img.Top+2 'Ajusta a posição da imagem, igual abaixo, caso contrário irá pressionar a borda da mesa
img.Left=img.Left+2 'A unidade é libras
eSheet.Rows(i).RowHeight=img.Height+4 'Ajusta a altura da linha atual para que seja automaticamente igual à altura da imagem
Próximo
Rem salva o trabalho feito acima
'eBook.Save 'Se você estiver abrindo um arquivo Excel existente, você pode usar esta linha para substituir a seguinte linha
e-book.SaveAs Server.MapPath(zzz.xls)
Definir eSheet=Nada
Definir e-book=Nada
'ExcelApp.Quit' deve ser encerrado, caso contrário o processo do Excel permanecerá no sistema operacional.
definir ExcelApp = Nada
%>
Quando o ASP lê ou grava dados no Excel, um método mais simples é tratar o Excel como um banco de dados e usar instruções SQL para operá-lo. Existem artigos relacionados em muitos lugares na Internet. Este artigo é apenas como "ASP importa dados para o Excel (. picture)" As informações auxiliares de "The Final Edition" são para sua referência.
Copie o código do código da seguinte forma:
<%
Dim conexão,rs,sql
SubDBOpen()
Dim banco de dados: db=Server.MapPath(zzz.xls)
Definir conn=Server.CreateObject(Adodb.Connection)
Em caso de erro, retomar o próximo
conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=YES;Fonte de dados= & db
O padrão de Rem HDR é SIM, o que significa que a primeira linha é usada como nome do campo, caso contrário, é considerada como o conteúdo
Rem para Excel2007, deve ser: Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;
Se Err.Number<>0 então
Err.Limpar
Response.Write(<h1>O link do banco de dados é ERRO</h1>)
Resposta.End()
Terminar se
Em caso de erro, vá para 0
Finalizar sub
SubDBClose()
Se IsNotBlank(conn) então
conexão.Fechar()
Definir conn=Nada
Terminar se
Finalizar sub
Função IsNotBlank (ByRef TempVar)
Está em Branco = Verdadeiro
Selecione Case VarType (TempVar)
Caso 0,1 'Vazio e Nulo
Está em branco = falso
Caso 9 'Objeto
Se TypeName(TempVar) = Nada Ou TypeName(TempVar) = Vazio Então
Está em branco = falso
Terminar se
Finalizar seleção
Função final
ChamarDBOpen()
sql=SELECT * FROM [Sheet1$] 'Preste atenção na escrita do nome da tabela Você precisa adicionar o símbolo $ após o nome da planilha.
Definir rs=conn.Execute(sql)
Embora não seja rs.Eof
Resposta.Write(rs(0)&, )
Resposta.Write(rs(1)&, )
Response.Write(rs(2)&<br />&VbCrLf)
rs.Movenext
Wend
rs.Close: Definir rs=Nada
ChamarDBClose()
%>