[已解决] 关于Excel数据表的密码问题求大神指导

  [复制链接]
查看111373 | 回复121 | 2020-12-18 00:43:58 | 显示全部楼层 |阅读模式
假如有两个工作薄,A薄是数据源Excel表格,B薄是对A薄的数据进行分析的,分析的方法可以是直接用数据透视表、powerBi、power pivot等
在A薄没有加密的情况下,B薄是可以进行一系列的操作,但是如果A薄如果是添加了密码(也则我们常用的要输入密码才能打开),在B薄中无论是有数据透视表,powerbi等,都会报错。


求大神指导,在A薄加密的情况下,B薄怎样才能用数据透视表或powerbi连接,并进行分析?谢谢!


很简单的AB两个工作薄,就不上传附件了
回复

使用道具 举报

Ange细 | 2020-12-18 00:52:58 | 显示全部楼层
VBA执行打开
  • Sub test()
  •     Dim File As Workbook
  •     Dim cnn
  •     Dim SQL$
  •     Dim Path, Text1, SheetName As String
  •     Path = ThisWorkbook.Path & ""
  •     Text1 = "test.xlsx"
  •     SheetName = "Sheet1"
  •     With Sheets("Sheet1")
  •         .[A:E].ClearContents
  •         Set File = Workbooks.Open(Filename:=Path & Text1, Password:="123")
  •         Set cnn = CreateObject("adodb.connection")  'Create DB Connection
  •         cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & Path & Text1
  •         SQL = "select [Loan No#] from [" & SheetName & "$A:DH]"
  •         .[A65536].End(xlUp).Offset(1, 0).CopyFromRecordset cnn.Execute(SQL)
  •         cnn.Close     'Close SQL Connection
  •         Set cnn = Nothing    'Clean SQL from RAM
  •         File.Close True
  •     End With
  • End Sub

[color=rgb(51, 102, 153) !important]复制代码
回复

使用道具 举报

[TV]home | 2020-12-18 00:53:58 | 显示全部楼层

不懂VBA的,就没有办法了吗?还是excel就没有这样呢
回复

使用道具 举报

hgp82 | 2020-12-18 01:01:59 | 显示全部楼层
不懂VBA的,就没有办法了吗?还是excel就没有这样呢


放进去Access数据库不就行了
回复

使用道具 举报

大圣 | 2020-12-18 01:04:59 | 显示全部楼层
放进去Access数据库不就行了


表格并不是只有自己使用,有时候要发给别人的,别人电脑不一定都安装access的,就算安装也不一定会用
回复

使用道具 举报

发现者 | 2020-12-18 01:12:59 | 显示全部楼层
没有人知道
回复

使用道具 举报

zjtssjk | 2021-5-1 09:55:13 | 显示全部楼层
我也来支持一下,这里的老师和其他机构不一样,其他就是让付费。
回复

使用道具 举报

黑糊糊 | 2021-6-22 21:46:17 | 显示全部楼层
忙完了,来看看视频
回复

使用道具 举报

朗月星空 | 2021-6-23 12:09:40 来自手机 | 显示全部楼层
very good。。。。。
回复

使用道具 举报

7月11日 | 2021-7-24 09:47:14 来自手机 | 显示全部楼层
这么强,支持楼主,佩服
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则