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

vb.net 怎样刷新excel透视表

Private Sub Worksheet_Activate()

   ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

   ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh

EndSub

这个是在透视表没有重命名的情况，且有多个透视表的情况下的代码。点击透视表所在Sheet页时触发，当然代码也是写在对应Sheet中的。

相关问答

Q1: 将这段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);

}

Q2: 需要统计多个excel文件中的数据，想使用Vb.net(vs2010)来变成实现，如何实现

不知道你是怎么百度的，你的百度关键词应当选择“VB 统计多个excel文件中的数据”。

1、数据透视表是用于在excel中不通过编程就实现汇总数据的目的，既然你都想编程了，数据透视表也就失去意义。

2、ACCESS更是无稽之谈，多此一举。

3、Excel文件不管多少，最重要的是每个文件要有统一的格式，这样就有了编程的前提。

实现方法是：

1、让程序能找到所有excel文件

2、用子过程读取每一个文件，获得所需要的数据，进行汇总

3、所有数据进行汇总，得到结果。

vb.net数据透视的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net数据透视的信息别忘了在本站进行查找喔。