Excel催化剂开源第49波-Excel与PowerBIDeskTop互通互联之第三篇

在PowerBIDeskTop开启的SSAS服务，和Sqlserver所开启的一个本质的区别是，前者其端口号是随机生成的，即上一次打开获得的端口号，下一次关闭后再打开，系统分配给它新的端口号，而后者因为是服务器版的，服务器的SSAS端口号是固定的，且服务器一般都是长期打开的，不存在端口号变化引起数据连接字符串要变更的情况。

此篇对应功能实现出自：第3波-与PowerbiDesktop互通互联（Excel透视表连接PowerbiDesktop数据模型）https://www.jianshu.com/p/e05460ad407d

Excel连接PowerBIDeskTop端口号更改了怎么办？

因为这个问题，必须在Excel上对其端口号进行重新更新操作，才可以保证再次打开PowerBIDeskTop的SSAS服务后，原来存储在Excel上的通过连接字符串引用到的数据结果仍然可以保持和SSAS模型有连接关系 。

所以就出现了更新连接字符串的功能需求，当然尽可能地减少用户的操作，让更友好的界面来引导用户作必要的识别重新匹配。

Excel与PowerBIDeskTop连接，是用工作薄连接来承接的，所以只需遍历工作薄连接，将其展现给用户。

 private void formPbidUpdateConnect_Load(object sender, EventArgs e)
 {
 foreach (Excel.WorkbookConnection wkbCnn in Common.ExcelApp.ActiveWorkbook.Connections)
 {
 if (wkbCnn.Description == "pbidConnection")
 {
 int rowIndex = this.dataGridView1.Rows.Add();
 this.dataGridView1.Rows[rowIndex].Cells[0].Value = wkbCnn.Name;
 }
 }
 this.fileName.Width = this.workbookConnect.Width + 50;
 this.Width = this.fileName.Width * 2 + 80;
 pbidPortTittleMappings = PbidConnection.GetPbidPortTittleMappings();
 this.fileName.Items.AddRange(pbidPortTittleMappings.Select(s => s.FileName + "|" + s.Port).ToArray());
 }

最终Excel工作薄连接，只需要用下正则表达式，将原来的端口号给替换一下即可。

 private void btnEnter_Click(object sender, EventArgs e)
 {
 foreach (DataGridViewRow row in this.dataGridView1.Rows)
 {
 if (row.Cells[1].Value!=null)
 {
 Excel.WorkbookConnection wkbCnn = Common.ExcelApp.ActiveWorkbook.Connections[row.Cells[0].Value];
 int newport = int.Parse(row.Cells[1].Value.ToString().Split(new char[] { '|' })[1]);
 string newDbName = pbidPortTittleMappings.Where(s => s.Port == newport)
 .Select(t => t.DbName).FirstOrDefault();
 string newModelName = pbidPortTittleMappings.Where(s => s.Port == newport)
 .Select(t => t.ModelName).FirstOrDefault();
 string wkbcnnString = wkbCnn.OLEDBConnection.Connection;
 wkbcnnString = Regex.Replace(wkbcnnString, @"(?<=localhost:)d+", newport.ToString());
 wkbcnnString = Regex.Replace(wkbcnnString, @"(?<=Initial Catalog=)[^;]+", newDbName);
 wkbCnn.OLEDBConnection.Connection = wkbcnnString;
 wkbCnn.OLEDBConnection.CommandText = newModelName;
 }
 }
 this.Close();
 }

结语

在Excel、PowerBIDeskTop、.Net编程三者知识的融合下，打造出来最精彩的Excel催化剂功能应用，出自国人之手，并且无论在功能实现还是原始代码都无私奉献给PowerBI社区，供应社区繁荣。

若你也受感动，何不尽一己微博之力，加入到分享Excel催化剂的行列当中？