【省钱省时省心】基于钉钉工作流的人事评价信息采集案例(5):钉钉 + Power BI Desktop , 连 Excel 的钱都省了

不选贵的,只选对的。不要大而全,我要小而美。谁说天下没有免费的午餐?将省钱&省时&省心进行到底。

方案设计:Power BI

Power BI 是一个强大的获取、整合、呈现数据的架构,易用性强。可以用来读取、分析、呈现钉钉开放平台的数据。

如果你的电脑上有 Excel  ,那么 Power BI  for EXCEL 是不二之选。但是如果没有 Excel,可以下载一个Power BI Desktop,单机使用是免费的,连买 Excel 的钱都省了。

Power BI for Desktop 读取钉钉审批流数据

 官方免费下载地址:https://powerbi.microsoft.com/zh-cn/desktop/

Power BI Desktop 与 Power BI Server

  • Power BI Desktop 的报表可以发布到 Power BI Server 上实现在线编辑和与他人共享。
  • Power BI Server 分为官方云部署和本地部署两个版本,都是收费的。
  • Power BI Server 官方云,可以使用微软认可的工作邮箱注册免费获得一部分功能,例如将报表备份到云上后在线编辑和查看、下载第三方视觉对象等,并可以试用高级功能。

Power BI Desktop 与 Power BI for Excel 的差异

二者都包括Power Query、Power Povit、Power View 三大利器,但一些细节有所不同。

  • Power BI Desktop 的报表可以发布到 Power BI Server 上实现在线编辑和与他人共享(付费)。
  • Power BI Desktop 中的 Power View (视觉对象)的界面风格和操作习惯更新颖和易于使用, Excel 版本则与更兼容原有图表、透视图界面风格和操作习惯。
  • 通过工作邮箱免费登录 Power BI Server 官方云服务,可以免费使用大量的第三方视觉对象。如图所示。Excel貌似还没有真正支持。
  • Power BI Desktop 中 Power Povit 可以更充分发挥 DAX  分析语言的功能,例如创建计算表。Excel版本貌似只能创建计算列。
  • Excel可以发挥工作表作为交互界面的优势,例如录入Power Query M查询参数值。而Desktop下目前很难实现。

 休息一会儿,先到这里吧。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
好的,你想了解如何用VBA代码一键合并汇总多个Excel工作簿,省时力。以下是具体步骤: 1. 打开一个新的Excel工作簿,按下“Alt+F11”打开VBA编辑器。 2. 在VBA编辑器中,单击菜单栏上的“插入”->“模块”,打开一个新的VBA模块。 3. 在新的VBA模块中,复制以下代码: ``` Sub 合并多个工作簿() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range Dim rnum As Long, CalcMode As Long '关闭屏幕刷新,提高运行速度 With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With '获取要合并的工作簿所在的文件夹 MyPath = InputBox("请输入要合并的工作簿所在的文件夹路径") If MyPath = "" Then Exit Sub If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\" '获取要合并的工作簿文件名 FilesInPath = Dir(MyPath & "*.xlsx") If FilesInPath = "" Then MsgBox "找不到任何Excel文件", vbInformation, "没有文件" Exit Sub End If '将要合并的工作簿文件名放入一个数组中 FNum = 0 Do While FilesInPath <> "" FNum = FNum + 1 ReDim Preserve MyFiles(1 To FNum) MyFiles(FNum) = FilesInPath FilesInPath = Dir() Loop '打开第一个工作簿并将其内容复制到新的工作簿中 Set BaseWks = Workbooks.Open(MyPath & MyFiles(1)).Sheets(1) rnum = BaseWks.Cells.Find(What:="*", _ After:=BaseWks.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row For FNum = 2 To UBound(MyFiles) Set mybook = Nothing On Error Resume Next Set mybook = Workbooks.Open(MyPath & MyFiles(FNum)) On Error GoTo 0 If Not mybook Is Nothing Then sourceRange = mybook.Sheets(1).Range("A1").CurrentRegion SourceRcount = sourceRange.Rows.Count If SourceRcount >= 2 Then Set destrange = BaseWks.Range("A" & rnum + 1) sourceRange.Copy destrange rnum = rnum + SourceRcount End If mybook.Close SaveChanges:=False End If Next FNum BaseWks.Columns.AutoFit '恢复屏幕刷新和事件处理,并计算一次 With Application .Calculation = CalcMode .ScreenUpdating = True .EnableEvents = True End With MsgBox "合并完成" End Sub ``` 4. 将代码中的“输入要合并的工作簿所在的文件夹路径”改为实际的文件夹路径。 5. 按下“F5”或点击“运行”->“运行子过程”,运行代码。 6. 程序会自动合并指定文件夹中的所有Excel工作簿并将它们汇总到新的工作簿中的第一个工作表中。 注意:在运行过程中,程序会关闭屏幕刷新和事件处理功能,以提高运行速度。运行完成后,程序会自动恢复这些功能。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

雕技小虫

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值