excel表格导出有啥用途?

Posted 2023-05-16

导出excel表格的意思是指，把这个excel表格的内容或数据导入出来到另外一个文档中去之类的意思。 参考技术A 可以进行数据分析，和总结啊 参考技术B 如果原来的软件没有统计功能，那么，软件里的数据导出以后，可以进行数据的分析，进而掌握顾客的消费习惯等资料。 参考技术C 对导出数据进行分析~ 参考技术D 我给你个源码
using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
using System.Data;
using System.Windows.Forms;
using Microsoft.Office.Interop.Excel;

namespace Property_management

class Export

private static System.Windows.Forms.DataGridView gridView;
private static System.Windows.Forms.ProgressBar toolStripProgressBar1;
private static Timer time;
private static DataSet objSet = new DataSet();
private static SaveFileDialog saveFileDialog = new SaveFileDialog();
private static SaveFileDialog saveFileDialog2 = new SaveFileDialog();

public static System.Windows.Forms.DataGridView _gridView

get
set

public static System.Windows.Forms.ProgressBar _toolStripProgressBar1

get
set

public static Timer _time

get
set

public static DataSet _objSet

get
set


public static void ExportTOExcel2()

if (gridView.Rows.Count == 0)

MessageBox.Show("没有数据可供导出！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;

else

saveFileDialog.Filter = "Execl files (*.xls)|*.xls";
saveFileDialog.FilterIndex = 0;
saveFileDialog.RestoreDirectory = true;
saveFileDialog.CreatePrompt = true;
saveFileDialog.Title = "导出文件保存路径";
saveFileDialog.ShowDialog();
string strName = saveFileDialog.FileName;
if (strName.Length != 0)

toolStripProgressBar1.Visible = true;
System.Reflection.Missing miss = System.Reflection.Missing.Value;
Microsoft.Office.Interop.Excel.ApplicationClass excel = new Microsoft.Office.Interop.Excel.ApplicationClass();
excel.Application.Workbooks.Add(true); ;
excel.Visible = false;//若是true，则在导出的时候会显示EXcel界面。
if (excel == null)

MessageBox.Show("EXCEL无法启动！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;

Microsoft.Office.Interop.Excel.Workbooks books = (Microsoft.Office.Interop.Excel.Workbooks)excel.Workbooks;
Microsoft.Office.Interop.Excel.Workbook book = (Microsoft.Office.Interop.Excel.Workbook)(books.Add(miss));
Microsoft.Office.Interop.Excel.Worksheet sheet = (Microsoft.Office.Interop.Excel.Worksheet)book.ActiveSheet;
sheet.Name = "test";

//生成字段名称
for (int i = 0; i < gridView.ColumnCount; i++)

excel.Cells[1, i + 1] = gridView.Columns[i].HeaderText.ToString();

//填充数据
for (int i = 0; i < gridView.RowCount; i++)

for (int j = 0; j < gridView.ColumnCount; j++)

if (gridView[j, i].Value.GetType() == typeof(string))

excel.Cells[i + 2, j + 1] ="'"+gridView[j, i].Value.ToString();

else

excel.Cells[i + 2, j + 1] = gridView[j, i].Value.ToString();



toolStripProgressBar1.Value += 100 / gridView.RowCount;

sheet.SaveAs(strName, miss, miss, miss, miss, miss, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, miss, miss, miss);
book.Close(false, miss, miss);
books.Close();
excel.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet);
System.Runtime.InteropServices.Marshal.ReleaseComObject(book);
System.Runtime.InteropServices.Marshal.ReleaseComObject(books);
System.Runtime.InteropServices.Marshal.ReleaseComObject(excel);
GC.Collect();
MessageBox.Show("数据已经成功导出!!");
toolStripProgressBar1.Value = 0;
toolStripProgressBar1.Visible = false;

System.Diagnostics.Process.Start(strName);







我把功能放在这个类里了
需要添加一个引用
右边的资源管理器右键单击“引用”，选择添加引用-》com，找到microsoft excel 11 那个，添加进去
如果有个黄色的叹号，建议重装一次office

下面是如何使用
Export._gridView = GV;//这是指定DatagridView
Export._toolStripProgressBar1 = PB;//如果有滚动条的话加上,没有不设定也行
Export._objSet = this.propertyDataSet5.Fee_already.DataSet;//指定你的DatagridView使用的dataset
Export.ExportTOExcel2();//调用函数导出

asp导出数据到EXCEL表格

我这里有几万条数据我想把这些数据导出到EXCEL的两个列中（数据是从数据库提取出来的）

asp导出到excel


在开头加上这一句
Response.ContentType = "application/vnd.ms-excel"
如果导出结果为空白的，那就去掉它
一下是导出Excel代码
--------------------------------------------------------------------------------
<%
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo where 1=1"
rs.open sql,objconn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"  
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号" 
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名" 
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名" 
ExcelBook.WorkSheets(1).cells(2,4).value = "密码" 
cnt =3 
do while not rs.eof 
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid") 
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province") 
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag") 
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
rs.movenext 
cnt = cint(cnt) + 1 
loop 
Excelbook.SaveAs "d:\\yourfile.xls"    '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit     '导出以后退出Excel
Set ExcelApp = Nothing     '注销Excel对象
%>

因你数据量大 另提示EXCEL相关信息

Excel 07-2003一个工作表最多可有65536行，行用数字1—65536表示;最多可有256列，列用英文字母A—Z，AA—AZ，BA—BZ，……，IA—IV表示；一个工作簿中最多含有255个工作表，默认情况下是三个工作表；
Excel 2007及以后版本，一个工作表最多可有1048576行，16384列；

所以建议用2007以上版本的excel

追问

这位大哥。。。你这段代码我把从数据库提取数据的步骤删除了随便给了几条数据添加不成果啊。。。提示
Microsoft VBScript 编译器错误 '800a0409'
未结束的字符串常量
\test.asp, line 17

追答

你这个人太实在，何必把数据库提取步骤删了，你把sql加一句 top 10 * 不就可以测试了，
然后15-21行代码，就是给EXCEL列设置个字头而已，要是你测试出错就删了吧

追问

麻烦再问个问题。。。。。。如果我写入的字符想换行该怎么办呢？

追答

啥？内容取出来写入前先处理，用 &vbcrlf
excel换行设置，自行搜索百度。

参考技术A 关于导入：
打开ACCESS－文件－获取外部数据。后面的你应该会了啊。

.asp文件不可以直接用网页查看，在你自己的计算机上可以安装一个iis，具体的安装方法你可以在百度上搜索，但是必须要有windows安装盘才可以。

安装完了后，管理工具－internet信息服务－本地计算机－网站－默认网站－新建你的.asp所在目录。浏览就可以了。
打字不易，如满意，望采纳。追问

。。。。。前面如何配置asp服务器我都会，我的意思是吧ACCESS的一个表里面的数据用asp读取出来，循环成特定的格式然后再 把他放到excel表格当中，前面的asp读取我已经写完了。。。。数据已经出来了。。。就是不过会用ASP导出到excel表格当中