锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net导出组件 vb如何导出exe文件

IT技术Pboc2

VB.NET输出到Excel的问题一、DCOM修复
1.运行vb.net导出组件：mmc comexp.msc /32vb.net导出组件，找到vb.net导出组件我的电脑 - DCom配置中的Microsoft Excel Application
2.在Microsoft Excel Application上点击右键，选择"属性"
3.点击"标识"标签,选择"交互式用户"
4.点击"安全"标签,在"启动和激活权限"上点击"自定义",然后点击对应的"编辑"按钮,在弹出的"安全性"对话框中填加一个"NETWORK SERVICE"用户(注意要选择本计算机名),并给它赋予"本地启动"和"本地激活"权限.
5.依然是"安全"标签,在"访问权限"上点击"自定义",然后点击"编辑",在弹出的"安全性"对话框中也填加一个"NETWORK SERVICE"用户,然后赋予"本地访问"权限.
二、如果找不到Microsoft Excel 应用程序
1、进行OFFICE菜单中的组件重注册
2、如果仍未解决问题，点 开始--运行--输入EXCEL文件所在的路径“c:\program files\exel.exe”/regserver进行修复注册
参考：
VB.NET 导出生成EXCEL，不调用EXCEL组件，如图错误.代码
protected void exportToExcelClient(IDictionarystring, string map){if (map.Count == 0){MessageBox.Show("请选择要导出的字段！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);return;}pgbClient.Value = https://www.04ip.com/post/0;_excel = new Excel.Application();Excel.Workbook wbook = _excel.Workbooks.Add(Missing.Value);Excel.Worksheet wsheet = (Excel.Worksheet)_excel.ActiveSheet;Excel.Range range = (Excel.Range)wsheet.Cells;Excel.Range ran = null;string tofilepath = Application.StartupPath +"\\Excel_save\\";string tofilename = "customer.xls";string sql = "SELECT ";ArrayList keyArr = new ArrayList();foreach(KeyValuePairstring,string entry in map){sql+=entry.Value+",";keyArr.Add(entry.Key);}sql = sql.Substring(0, sql.Length - 1);sql += " FROM tb_ClientInfo WHERE 1=1"+condition;//MessageBox.Show(sql);DataSet myds = boperate.getds(sql, "tb_Client");DataTable dt = myds.Tables["tb_Client"];for (int i = 0; ikeyArr.Count; i++){ran = (Excel.Range)range[1, i + 1];ran.Font.Bold = true;ran.Font.Size = 10;ran.Value2 = keyArr[i];//ran.Columns.AutoFit();NAR(ran);pgbClient.Step = 10/keyArr.Count;pgbClient.Value += 10 / keyArr.Count;}for (int i = 0; idt.Rows.Count; i++){for (int j = 0; jdt.Columns.Count; j++){ran = (Excel.Range)range[i + 2, j + 1];ran.Value2 = dt.Rows[i][j];ran.Font.Size = 10;ran.Columns.AutoFit();NAR(ran);}pgbClient.Step = 90 / dt.Rows.Count;pgbClient.Value += 90 / dt.Rows.Count;}if (!Directory.Exists(tofilepath)){Directory.CreateDirectory(tofilepath);}if (File.Exists(tofilepath + tofilename)){File.Delete(tofilepath + tofilename);}wbook.SaveAs(tofilepath + tofilename, Type.Missing, Type.Missing, Type.Missing,Type.Missing, Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange,Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);wbook.Close(false, Type.Missing, Type.Missing);NAR(range);NAR(wsheet);_excel.Quit();NAR(_excel);pgbClient.Value = https://www.04ip.com/post/pgbClient.Maximum;System.Threading.Thread.Sleep(500);System.Diagnostics.Process.Start("EXCEL.EXE",tofilepath+tofilename);//this.Close();}/// summary/// 释放资源/// /summary/// param name="o"/paramprivate void NAR(object o){try{System.Runtime.InteropServices.Marshal.ReleaseComObject(o);}catch { }finally{o = null;}}
vb.net 2008中怎样将数据导出到excel中如何从web页面导入excel单元格数据、又如何把查询出来的数据放到web页面上显示成客户需要的图表？并且导出到excel中？
有两种方案：
1.用Excel自动化技术 。
引用Excel的类型库生成.Net的包装类 。导入时采用页面放上传文件按钮的方法 ， 在服务器端收到文件后 ， 用excel自动化类打开excel文件，再学会VBA语法，书写大量的代码读取单元格，然后连接数据库保存 。导出时，查询数据库，启动excel自动化对象，通过VBA语法填写单元格 ， 保存成excel文件，再用Response.OutputStream输出到页面上 ， 触发excel文件的下载保存框 。缺点：容易在服务器端产生excel死进程 ， 代码编写复杂、代码量大、还要掌握VBA语法，用户需要上传、下载操作

推荐阅读


上一篇：夜景拍摄是什么模式，夜景拍摄是什么模式最好

下一篇：华为申请鸿蒙应用名称，华为鸿蒙申请应用名称怎么填