编程出表格

⑴ 关于EXCEL表格编程

用公式：
=INDEX(Sheet1!C5:G10,MATCH("综合厂用电量",Sheet1!A5:A10,),MATCH("本月",C4:G4,))

⑵ 怎么将数据库数据编程Excel表格

主要步骤为：

• 创建表格

• 生成表头（将列名生成出来）

• 在表格中插入数据

• 编写一个浏览器下载这个表格的方法

一下为源码

• public void downloadExcel(List<Object> list) throws IOException { if (list == null) { return;


• } else if (list.size() == 1) { return;


• } // 得到结果，生成Excel文件


• HSSFWorkbook hssfWorkbook = new HSSFWorkbook();


• HSSFSheet sheet = hssfWorkbook.createSheet("表格数据"); // 生成表头


• HSSFRow headRow = sheet.createRow(0);


• headRow.createCell(0).setCellValue("表格列1");


• headRow.createCell(1).setCellValue("表格列2");


• headRow.createCell(2).setCellValue("表格列3");


• headRow.createCell(3).setCellValue("表格列4");


• headRow.createCell(4).setCellValue("表格列5");


• headRow.createCell(5).setCellValue("表格列6");


• headRow.createCell(6).setCellValue("表格列7"); // 将数据插入表中


• for (Object obj : list) {


• HSSFRow dataRow = sheet.createRow(sheet.getLastRowNum() + 1);


• dataRow.createCell(0).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(1).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(2).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(3).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(4).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(5).setCellValue("obj对象的对应列名属性");


• dataRow.createCell(6).setCellValue("obj对象的对应列名属性");


• } // 通过浏览器下载导出


• // 设置表头信息


• ServletActionContext.getResponse().setContentType("application/vnd.ms-excel");


• String filename = "表格数据.xls";


• String agent = ServletActionContext.getRequest().getHeader("user-agent");


• filename = FileUtils.encodeDownloadFilename(filename, agent);


• ServletActionContext.getResponse().setHeader("Content-Disposition", "attachment;filename=" + filename);



• ServletOutputStream outputStream = ServletActionContext.getResponse().getOutputStream();


• hssfWorkbook.write(outputStream); // 关闭


• hssfWorkbook.close();


• }//下载浏览器识别工具类一个package com.echo.maven.utils;import java.io.IOException;import java.net.URLEncoder;import sun.misc.BASE64Encoder;public class FileUtils {


• /**


• * 下载文件时，针对不同浏览器，进行附件名的编码


• *


• * @param filename


• * 下载文件名


• * @param agent


• * 客户端浏览器


• * @return 编码后的下载附件名


• * @throws IOException


• */


• public static String encodeDownloadFilename(String filename, String agent) throws IOException { if (agent.contains("Firefox")) { // 火狐浏览器


• filename = "=?UTF-8?B?"


• + new BASE64Encoder().encode(filename.getBytes("utf-8"))


• + "?=";


• filename = filename.replaceAll(" ", "");


• } else { // IE及其他浏览器


• filename = URLEncoder.encode(filename, "utf-8");


• filename = filename.replace("+"," ");


• } return filename;


• }


• }5767778798081828384

⑶ excel用VBA编程做表格

Subusa()
DimBoR,WokeR
DimWorkLike,Area,Weight,AllArea,AllWeight,AllBo
DimLikeID(),LikeIDst(),LikeIDwi()
ReDimLikeID(9)
LikeIDst()=Array(1,3,5,9,13,17,19,20,21,24)
LikeIDwi()=Array(2,2,2,4,4,2,1,1,3,3)
Forj=1To2
AllBo=0:AllArea=0:AllWeight=0
BoR=Sheets("编码").Cells(65536,j).End(3).Row
WorkLike=Left(Sheets("编码").Cells(1,j),2)
IfSheets(WorkLike&"生产计划单").[B65536].End(3).Row>5Then
Sheets(WorkLike&"生产计划单").Rows("6:"&Sheets(WorkLike&"生产计划单").[B65536].End(3).Row).Delete
EndIf
Sheets(WorkLike&"生产计划单").Range("A6:E6")=""
Fork=2ToBoR
WokeR=Sheets(WorkLike&"生产计划单").[B65536].End(3).Row+1
WithSheets("编码")
Fori=0ToUBound(LikeID())
LikeID(i)=Mid(.Cells(k,j),LikeIDst(i),LikeIDwi(i))
Next
EndWith
WithSheets(WorkLike&"生产计划单")
.[C4]=Format(Now(),"日期：yyyy年mm月dd日hh时mm分aaaa")
.Rows(WokeR).InsertShift:=xlDown
.Cells(WokeR,2)=Application.WorksheetFunction.VLookup(LikeID(1),Sheets("颜色").Range("A:B"),2,0)&""&_
LikeID(2)*1&"-"&LikeID(3)*1&"*"&LikeID(4)*1&"/"&LikeID(8)*1&""&_
Application.WorksheetFunction.VLookup(LikeID(5),Sheets("等级").Range("A:B"),2,0)&""&_
Application.WorksheetFunction.VLookup(LikeID(6),Sheets("包装").Range("A:B"),2,0)&_
"/"&Application.WorksheetFunction.VLookup(LikeID(7),Sheets("隔离层").Range("A:B"),2,0)
.Cells(WokeR,3)=LikeID(9)*1
AllBo=AllBo+LikeID(9)*1
Area=LikeID(3)/1000*LikeID(4)/1000
AllArea=AllArea+Area*LikeID(8)*LikeID(9)
Weight=LikeID(2)/1000*LikeID(3)/1000*LikeID(4)/1000*2.5
AllWeight=AllWeight+Weight*LikeID(8)*LikeID(9)
.Cells(WokeR+1,1)="合计："
.Cells(WokeR+1,3)=AllBo
.Cells(WokeR+1,4)="合计："&AllArea&"㎡净重"&Format(AllWeight,"0.00")&"吨"
EndWith
Next
Next
EndSub

等了一天一楼没有回答。一楼搞好了没？手痒。我先交了。

还有，我改了表格格式，看可以不？

再说了，你的厚度的哪个是不是圈错了，还是打错了。600MM的厚度。有生产这么厚的玻璃吗？

对了，考虑一个工厂发展与客户的要求，不只会生产这几个等级和规格等，我把他们分开表了，只要增加上内容就可以自动填写。

还有，能加分不。写得挺辛苦的。