锐客网

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

关于vb.net数据透视的信息

IT技术pending

vb.net 怎样刷新excel透视表Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
【关于vb.net数据透视的信息】EndSub
这个是在透视表没有重命名的情况，且有多个透视表的情况下的代码 。点击透视表所在Sheet页时触发，当然代码也是写在对应Sheet中的 。
将这段vb.net代码改成c#.net代码~谢谢Excel.Application excel = default(Excel.Application);
Excel._Workbook xBk = default(Excel._Workbook);
Excel._Worksheet xSt = default(Excel._Worksheet);
Excel.Range xRange = default(Excel.Range);
Excel.PivotCache xPivotCache = default(Excel.PivotCache);
Excel.PivotTable xPivotTable = default(Excel.PivotTable);
Excel.PivotField xPivotField = default(Excel.PivotField);
string cnnsr = null;
string sql = null;
string[] RowFields = {
"",
"",
""
};
string[] PageFields = {
"",
"",
"",
"",
"",
""
};
//SERVER是服务器名或服务器的IP地址
//DATABASE 是数据库名
//Table是表名
try {
// 开始导出
cnnsr = "ODBC;DRIVER=SQL Server;SERVER=" + SERVER;
cnnsr = cnnsr + ";UID=;APP=Report Tools;WSID=ReportClient;DATABASE=" + DATABASE;
cnnsr = cnnsr + ";Trusted_Connection=Yes";
excel = new Excel.ApplicationClass();
xBk = excel.Workbooks.Add(true);
xSt = xBk.ActiveSheet;
xRange = xSt.Range("A4");
xRange.Select();
// 开始
xPivotCache = xBk.PivotCaches.Add(SourceType: 2);
xPivotCache.Connection = cnnsr;
xPivotCache.CommandType = 2;
sql = "select * from " + Table;
xPivotCache.CommandText = sql;
xPivotTable = xPivotCache.CreatePivotTable(TableDestination: "Sheet1!R3C1", TableName: "数据透视表1", DefaultVersion: 1);
//准备行字段
RowFields[0] = "字段1";
RowFields[1] = "字段2";
RowFields[2] = "字段3";
//准备页面字段
PageFields[0] = "字段4";
PageFields[1] = "字段5";
PageFields[2] = "字段6";
PageFields[3] = "字段7";
PageFields[4] = "字段8";
PageFields[5] = "字段9";
xPivotTable.AddFields(RowFields: RowFields, PageFields: PageFields);
xPivotField = xPivotTable.PivotFields("数量");
xPivotField.Orientation = 4;
// 关闭工具条
//xBk.ShowPivotTableFieldList = False
//excel.CommandBars("PivotTable").visible = False
excel.Visible = true;
} catch (Exception ex) {
if (cnn.State == ConnectionState.Open) {
cnn.Close();
}
xBk.Close(0);
excel.Quit();
MessageBox.Show(ex.Message, "报表工具", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
需要统计多个excel文件中的数据 ， 想使用Vb.net(vs2010)来变成实现，如何实现不知道你是怎么百度的 ， 你的百度关键词应当选择“VB 统计多个excel文件中的数据” 。
1、数据透视表是用于在excel中不通过编程就实现汇总数据的目的 ， 既然你都想编程了，数据透视表也就失去意义 。
2、ACCESS更是无稽之谈，多此一举 。
3、Excel文件不管多少，最重要的是每个文件要有统一的格式，这样就有了编程的前提 。
实现方法是：
1、让程序能找到所有excel文件
2、用子过程读取每一个文件，获得所需要的数据，进行汇总
3、所有数据进行汇总 ， 得到结果 。
vb.net数据透视的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net数据透视的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：测试linux命令面试题，linux软件测试面试题

    下一篇：鞋子直播预告素材，鞋服直播主题