Página Inicial>Tutorial de programação de redes>Tutorial ASP

Explicação do uso da instância de arquivo do ASP para produzir o Excel

Autor：Eve Cole Data da Última Atualização：2025-02-25 00:48:02

O conteúdo principal deste artigo é usar os exemplos de arquivos do Excel.

Uma maneira de usar o Excel no ASP é vincular o arquivo do Excel como um banco de dados, e a operação é semelhante à operação de banco de dados de acesso. Para um formato fixo, este formato contém fusão de células complexas, estilos de linha de fronteira, padrões, relações de fórmula entre células, etc. Acho que a coisa mais fácil de entender é abrir uma configuração existente no plano de modelo bom e, em seguida, insira dados quando necessário , salvar, saída ...

O método mencionado aqui é criar diretamente um objeto Excel, que pode executar várias operações no documento do Excel de maneira mais conveniente em segundo plano.

O lado do servidor também precisa definir as permissões de operação dos componentes COM. Digite DCOMCNFG na linha de comando e digite a interface de configuração do componente. Reinicie o servidor depois de salvar.

É muito importante.

No entanto, esse método também possui uma desvantagem. não foram configurados corretamente.

Além disso, o formato de código de exemplo no artigo citado acima não é muito completo e muitas das quebras e espaços de linha são imprecisos. Pesquise e modifique, será fácil começar.

Código do programa:

  1. <%
  2. OnErrorReSumenext
  3. straddr = server.mappath (.)
  4. setobjexcelpp = createObject (Excel.Application)
  5. objexcelpp.displayalerts = false
  6. objexcelapp.application.visible = false
  7. objexcelpp.workbooks.open (straddr &/templet/null.xls)
  8. setObJexcelBook = objexcepp.activeWorkbook
  9. setobjexcelSheets = objexcelBook.worksheets
  10. setobjexcelSheet = objexcelBook.heets (1)
  12. objexcelSheet.Range (B2: K2) .Value = Array (semana1, semana2, semana3, semana4, semana5, semana6, semana7)
  13. objexcelSheet.Range (B3: K3) .Value = Array (67,87,5,9,7,45,45,54,54,10)
  14. objexcelSheet.Range (B4: K4) .Value = Array (10,10,8,27,33,37,50,54,10,10)
  15. objexcelSheet.Range (B5: K5) .Value = Array (23,3,86,64,60,18,5,1,36,80)
  16. objexcelSheet.Cells (3,1) .Value = IntertexPlorer
  17. objexcelSheet.Cells (4,1) .Value = Netscape
  18. objexcelSheet.Cells (5,1) .Value = Other
  19. objexcelSheet.Range (B2: K5) .Select
  21. SAVEAS (STRADDR &/temp/Excel.xls)
  22. objexcelApp.quit
  23. SetobJexcepp = nada
  24. %>
  25. <!
  26. <html>
  27. <head>
  28. <title> newDocument </title>
  29. <Metaname = generatorContent = MicrosoftFrontPage5.0>
  30. <Metaname = autorContent =>
  31. <Metaname = keywordscontent =>
  32. <Metaname = descriptionContent =>
  33. </head>
  34. <Body>
  35. </Body>
  36. </html>

Após operar o arquivo do Excel, você precisa emitir o arquivo Para abrir diretamente no IE, não coloque o arquivo do Excel com o FSO e em seguida, em seguida no IE.

Código do programa:

  1. <%
  3. Dimfso, FileExt, Strfilepath, MIME
  4. strfilepath = f: /aspxuexi.doc
  5. Setfso = server.createObject (script.filesystemoBject)
  6. FileExt = fso.geTextensionName (strfilepath)
  7. Setfso = nada
  9. SelectCaseFileExt
  10. CASEDOC
  11. MIME = APLICAÇÃO/MSWORD
  12. Casexls
  13. MIME = APLICAÇÃO/MSEXCEL
  14. EndSelect
  16. Caloutput (strfilepath, mímica)
  18. '######################################################D #####
  19. FunctionOutput (strfilepath, mímica)
  20. Response.ContentType = MIME
  21. ConstadTypeBinary = 1
  22. SetObjstream = server.createObject (adodb.stream)
  23. objstream.open
  24. objstream.type = adtypebinary
  25. objstream.loadFromFileStFilePath
  26. Response.BinaryWriteObjStream.read
  27. objstream.close
  28. Setobjstream = nada
  29. Função final
  30. '######################################################D #####
  31. %>

No aplicativo real, quando o servidor está executando um programa Excel ou Access, o cliente envia o estabelecimento do objeto Excel.Application sem sucesso. .

Existem exemplos de sucesso relacionados na rede interna do nosso departamento. Em execução na rede local da área, o nível de segurança do cliente, ou seja, você pode definir baixo e permitir a execução do ActiveX relevante (ou seja, defina todos os tipos de coisas relacionadas à segurança a serem permitidas nas opções de ferramentas do IE e qual item específico não é investigado).

O código implementado é semelhante ao log anterior, e o mais simples é o seguinte:

Código do programa:

  1. <scriptLanguage = vbscript>
  3. setobjexcelpp = createObject (Excel.Application)
  4. objexcelpp.displayalerts = true
  6. objexcelpp.workbooks.open (http://xxx.xxx.xxx/xxx.xls)
  7. 'O arquivo XLS com o endereço de rede completo, este arquivo foi formatado e impresso e salvo no servidor
  8. setObJexcelBook = objexcepp.activeWorkbook
  9. setobjexcelSheets = objexcelBook.worksheets
  10. setobjexcelSheet = objexcelBook.heets (1)
  11. '==== Aqui estão declarações que preenchem dados nas células do Excel.
  12. 'Por exemplo: Response.WriteObjexcelSheet.Range (B2) .Value = & Rs (XXX) &
  13. 'ou objexcelSheet.range (b2) .value = <%= rs (xxx)%>
  15. objexcelSheet.Range (B2: K2) .Value = Array (semana1, semana2, semana3, semana4, semana5, semana6, semana7)
  16. objexcelSheet.Range (B3: K3) .Value = Array (67,87,5,9,7,45,45,54,54,10)
  17. objexcelSheet.Range (B4: K4) .Value = Array (10,10,8,27,33,37,50,54,10,10)
  18. objexcelSheet.Range (B5: K5) .Value = Array (23,3,86,64,60,18,5,1,36,80)
  19. objexcelSheet.Cells (3,1) .Value = IntertexPlorer
  20. objexcelSheet.Cells (4,1) .Value = Netscape
  21. objexcelSheet.Cells (5,1) .Value = Other
  22. '=========================
  24. 'Objexcelpp.quit
  25. 'SetobJexcepp = nada
  27. </script>

No código acima

  1. 'Objexcelpp.quit
  2. 'SetobJexcepp = nada

Como cancelamento, não feche o Excel.Application aqui, caso contrário, o Excel será fechado após o preenchimento dos dados.

O exposto acima é o processo inteiro de uso do ASP para produzir arquivos Excel. Espero que seja útil para o aprendizado de todos.

Artigos Relacionados