请教老师，我这个不打开工作簿取值代码，始终执行错误的问题

7016427

Sub aa() ' 以下黄色语句始终执行错误，请老师帮我看看
Dim Wb As Workbook, tq As String
tq = ThisWorkbook.Path & "\交接.xls, Password:=jy"
Set Wb = GetObject(tq)
Wb.Sheets("录入").Unprotect (8812968)
ThisWorkbook.Sheets(1).Range("a1") = Wb.Sheets("录入").Range("ak36")
Wb.Sheets("录入").Protect (8812968)
Wb.Close False
Set Wb = Nothing
End Sub
补充，我是不打开“交接”文件，ThisWorkbook.Sheets(1).Range("a1") = Wb.Sheets("录入").Range("ak36")

7016427

各位老师好！执行时提示：运行错误432，自动化操作时文件名未找到。但是我这个“交接”文件存在，并在同一个文件夹里。

abc123281

建议上传附件

ivccav

GetObject无法接受密码打开方式，该用Workbooks.Open:

tq = ThisWorkbook.Path & "\交接.xls"

Set Wb=Workbooks.Open(tq, , , , "jy")
wb.Windows(1).Visible = False'隐藏交接工作簿

'……你的代码

wb.Windows(1).Visible = True'显示交接工作簿


wb.close false

7016427

abc123281 发表于 2018-9-9 16:29
建议上传附件

麻烦老师帮我看看

abc123281

注册时间2009-10-16
在线时间6790 小时
积分4583
鲜花  0

7016427

abc123281 发表于 2018-9-9 16:39
注册时间2009-10-16
在线时间6790 小时
积分4583

我不太懂，还要给各位老师学习！

不知道为什么

7016427 发表于 2018-9-9 16:42
我不太懂，还要给各位老师学习！

你这个表格有打开密码，当然就不行了。可以用workbooks.open

getobject 对有密码的应该不行

abc123281

getobject不支持有密码的工作簿
以下代码仅供参考
Sub aa()
Dim Wb As Workbook
Dim tq As String, mypath As String
mypath = ThisWorkbook.Path & "\"
tq = Dir(mypath & "交接.xls")
Set Wb = Workbooks.Open(mypath & tq, Password:="jy")
Wb.Sheets("录入").Unprotect (8812968)
ThisWorkbook.Sheets(1).Range("a1") = Wb.Sheets("录入").Range("ak36")
Wb.Sheets("录入").Protect (8812968)
Wb.Close False
Set Wb = Nothing
End Sub

7016427

不知道为什么 发表于 2018-9-9 16:57
你这个表格有打开密码，当然就不行了。可以用workbooks.open

getobject 对有密码的应该不行

请教老师有密码的应该怎么解决。