使用Getobject打开文件时，如何才能不显示链接对话框。

byhyxb · 发表于 2015-11-5 09:09

huang1314wei · 发表于 2015-11-5 09:17

不明白啥意思，请上传附件或者贴图或者贴代码

byhyxb · 发表于 2015-11-5 13:12

本帖最后由 byhyxb 于 2015-11-5 13:15 编辑

'使用Open打开工作簿时，不显示更新链接对话框
Sub OpenWithUpdateLinks()
Workbooks.Open Filename:=ThisWorkbook.Path & "\LinkTest.xls", UpdateLinks:=0
MsgBox "没有显示更新链接对话框。"
End Sub

'用GetObject打开工作簿时，如何不显示更新链接对话框？
Do While myFile <> ""
   If myFile <> ThisWorkbook.Name Then
   mymonth = Split(myFile, "月")(0)
   k = 2 * (mymonth - 1) '在数组br中的列数
' Set AK = GetObject(myPath & myFile, UpdateLinks:=0)  '打开工作簿时，不显示更新链接对话框，调试不成功！！！
   Set AK = GetObject(myPath & myFile)       '后台打开符合要求的文件
   With AK.Sheets("数据")
   i = .Rows(1).Find("水量").Column
   ar = .Range(.Cells(3, i), .Cells(32, i + 1))
   End With
   Workbooks(myFile).Close False
   End If
  myFile = Dir
Loop

byhyxb · 发表于 2015-11-5 13:15

huang1314wei 发表于 2015-11-5 09:17
不明白啥意思，请上传附件或者贴图或者贴代码

谢谢关注！已上传代码

huang1314wei · 发表于 2015-11-5 13:22

Application.DisplayAlerts=False
Do While myFile <> ""
   If myFile <> ThisWorkbook.Name Then
   mymonth = Split(myFile, "月")(0)
   k = 2 * (mymonth - 1)
   Set AK = GetObject(myPath & myFile)       '后台打开符合要求的文件
   With AK.Sheets("数据")
   i = .Rows(1).Find("水量").Column
   ar = .Range(.Cells(3, i), .Cells(32, i + 1))
   End With
   Workbooks(myFile).Close False
   End If
  myFile = Dir
Loop
Application.DisplayAlerts=True

byhyxb · 发表于 2015-11-5 14:16

huang1314wei 发表于 2015-11-5 13:22
Application.DisplayAlerts=False
Do While myFile ""
If myFile ThisWorkbook.Name Then

还是显示对话框

huang1314wei · 发表于 2015-11-5 16:53

byhyxb 发表于 2015-11-5 14:16
还是显示对话框

Application.AskToUpdateLinks = False
Do While myFile <> ""
   If myFile <> ThisWorkbook.Name Then
   mymonth = Split(myFile, "月")(0)
   k = 2 * (mymonth - 1)
   Set AK = GetObject(myPath & myFile)       '后台打开符合要求的文件
   With AK.Sheets("数据")
   i = .Rows(1).Find("水量").Column
   ar = .Range(.Cells(3, i), .Cells(32, i + 1))
   End With
   Workbooks(myFile).Close False
   End If
  myFile = Dir
Loop
Application.AskToUpdateLinks =True

byhyxb · 发表于 2015-11-5 18:38

还是显示对话框！
貌似Application.AskToUpdateLinks = False
不能屏蔽更新链接对话框呢

byhyxb · 发表于 2015-11-6 13:01

求助给位高手！如何写代码

Tanlen · 发表于 2017-9-24 10:58

这个问题解决了吗，我也是同样的困扰？

		自动登录	找回密码
密码			免费注册

[求助] 使用Getobject打开文件时，如何才能不显示链接对话框。

评分