Question

winform-WinForm怎么使用FastReport报表工具导出Excel

Answer 1

DataSet数据集内数据转化为Excel文件
/// <summary>
/// ExportFiles 的摘要说明。
/// 作用:把DataSet数据集内数据转化为Excel文件
/// 描述:导出Excel文件
/// 备注:请引用Office相应COM组件，导出Excel对象的一个方法要调用其中的一些方法和属性。
/// </summary>
public class ExportFiles
{
private string filePath = "";
public ExportFiles(string excel_path)
{
//
// TODO: 在此处添加构造函数逻辑
//
filePath = excel_path;
}
/// <summary>
/// 将指定的Dataset导出到Excel文件
/// </summary>
/// <param name="dt"></param>
/// <returns></returns>
public bool ExportToExcel(System.Data.DataSet ds, string ReportName)
{
if (ds.Tables[0].Rows.Count == 0)
{
MessageBox.Show("数据集为空");
}
Microsoft.Office.Interop.Excel._Application xlapp = new ApplicationClass();
Workbook xlbook = xlapp.Workbooks.Add(true);
Worksheet xlsheet = (Worksheet)xlbook.Worksheets[1];
Range range = xlsheet.get_Range(xlapp.Cells[1, 1], xlapp.Cells[1, ds.Tables[0].Columns.Count]);
range.MergeCells = true;
xlapp.ActiveCell.FormulaR1C1 = ReportName;
xlapp.ActiveCell.Font.Size = 20;
xlapp.ActiveCell.Font.Bold = true;
xlapp.ActiveCell.HorizontalAlignment = Microsoft.Office.Interop.Excel.Constants.xlCenter;
int colIndex = 0;
int RowIndex = 2;
//开始写入每列的标题
foreach (DataColumn dc in ds.Tables[0].Columns)
{
colIndex++;
xlsheet.Cells[RowIndex, colIndex] = dc.Caption;
}
//开始写入内容
int RowCount = ds.Tables[0].Rows.Count;//行数
for (int i = 0; i < RowCount; i++)
{
RowIndex++;
int ColCount = ds.Tables[0].Columns.Count;//列数
for (colIndex = 1; colIndex <= ColCount; colIndex++)
{
xlsheet.Cells[RowIndex, colIndex] = ds.Tables[0].Rows[i][colIndex - 1];//dg[i, colIndex - 1];
xlsheet.Cells.ColumnWidth = ds.Tables[0].Rows[i][colIndex - 1].ToString().Length;
}
}

xlbook.Saved = true;
xlbook.SaveCopyAs(filePath);
xlapp.Quit();
GC.Collect();
return true;
}

public bool ExportToExcelOF(System.Data.DataSet ds, string ReportName)
{
if (ds.Tables[0].Rows.Count == 0)
{
MessageBox.Show("数据集为空");
}
string FileName = filePath;

//System.Data.DataTable dt = new System.Data.DataTable();
FileStream objFileStream;
StreamWriter objStreamWriter;
string strLine = "";
objFileStream = new FileStream(FileName, FileMode.OpenOrCreate, FileAccess.Write);
objStreamWriter = new StreamWriter(objFileStream, System.Text.Encoding.Unicode);

strLine = ReportName;
objStreamWriter.WriteLine(strLine);
strLine = "";

for (int i = 0; i < ds.Tables[0].Columns.Count; i++)
{
strLine = strLine + ds.Tables[0].Columns[i].ColumnName.ToString() + " " + Convert.ToChar(9);
}
objStreamWriter.WriteLine(strLine);
strLine = "";

for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
{
strLine = strLine + (i + 1) + Convert.ToChar(9);
for (int j = 1; j < ds.Tables[0].Columns.Count; j++)
{
strLine = strLine + ds.Tables[0].Rows[i][j].ToString() + Convert.ToChar(9);
}
objStreamWriter.WriteLine(strLine);
strLine = "";
}
objStreamWriter.Close();
objFileStream.Close();

//Microsoft.Office.Interop.Excel._Application xlapp = new ApplicationClass();
//Workbook xlbook = xlapp.Workbooks.Add(true);
//Worksheet xlsheet = (Worksheet)xlbook.Worksheets[1];
//Range range = xlsheet.get_Range(xlapp.Cells[1, 1], xlapp.Cells[1, ds.Tables[0].Columns.Count]);
//range.EntireColumn.AutoFit();
//xlapp.Quit();
return true;
}
}

Answer 2

约翰终于跑起来，
要我穿过，去一片没有
在冒险中，罗盘疯狂地转变方向
当我们在世间已不再存在，
不上骗子的当的议员。
品味是的活的波澜壮阔哈哈