getobject和workbooks.open哪个更好！

bajifeng

这个帖子关于 GETOBJECT 和open归纳得很好啊，支持。

jsgj2023

收藏一下。

weiyingde

hustnzj 发表于 2012-3-24 06:48
个人感觉Getobject函数没有Workbooks.Open好用：
1） 通过getobject打开的Excel文件只要被修改（写）并保 ...

以下是我测试的两个过程，都是在excel中打开ppt，看一看：
Sub 打开()
'Dim ptapp As New PowerPoint.Application
Dim ptapp As Object
Set ptapp = CreateObject("powerpoint.application")
pth = ThisWorkbook.Path & "\71政治（2016秋）.pptm"
Set nppt = GetObject(pth)
nppt.Windows(pth).Visible = True
nppt.Close
Set nppt = Nothing
End Sub

Sub 打开2()
Dim ptapp As Object
Set ptapp = CreateObject("powerpoint.application")
pth = ThisWorkbook.Path & "\71政治（2016秋）.pptm"
Set nppt = ptapp.Presentations.Open(pth)
nppt.Windows(pth).Visible = False
nppt.Close
ptapp.Quit
Set nppt = Nothing
End Sub
前一过程错在：nppt.Windows(pth).Visible = True
后一过程错在：nppt.Windows(pth).Visible = false
到底为什么错？能解释一下吗？怎样改正？

weiyingde

zhw79 发表于 2012-3-20 21:09
调试了下，感觉getobject最大的好处是能隐藏方式打开工作簿，用OPEN再隐藏的话会闪1下，不知道还有其他方面 ...

请看一看最后一楼，我将你的两个过程贬了一下，出了问题。请指点一下。

ivccav

zhw79 发表于 2012-3-20 21:09
调试了下，感觉getobject最大的好处是能隐藏方式打开工作簿，用OPEN再隐藏的话会闪1下，不知道还有其他方面 ...

getobject一样会打开文件，当文件较大或者是网络上的excel文件时，是看得到打开的。

zorsite

通过getobject打开的Excel文件只要被修改（写）并保存后，就只能在VBE中看到，但用户界面却看不到。就算你重启Excel，再去手动打开此文件，也是什么都看不到。不保存就没有这个问题！如果要解决这个问题，必须在wb.close 前加一句Application.Windows(wb.name).Visible = True。

1. Private Sub CommandButton1_Click()  
   
2.     On Error Resume Next  
   
3.     文件目录 = ThisWorkbook.Path & "\Excel"  
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")  
   
5.     Set fldr = fso.GetFolder(文件目录)  
   
6.     For Each s In fldr.Files  
   
7.         With GetObject(文件目录 & s.Name)  
   
8.             .Sheets(1).Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False    '随便做一点改动  
   
9.             .SaveAs ThisWorkbook.Path & "\Excel_修改后" & s.Name    '保存  
   
10.             .Windows(1).Visible = True    '工作表可见  
    
11.             .Close (True)    '保存改动  
    
12.         End With  
    
13.     Next  
    
14. End Sub  

复制代码

硅谷少年

熊仁科 发表于 2015-9-11 11:46
那么问题来了：我现在有一个汇总工作簿里面内容的代码也是用getobjct的，但是我需要汇总的工作簿是从网页 ...

信任中心，受保护的视图，3个全部取消勾选，OK。
另外，不要用 ‘那么问题来了’ 这种 ‘杠精专属口头禅’，换成 ‘我遇到一个问题需要求助’ 更好哈

诗意地蛰伏

hustnzj 发表于 2012-3-24 06:48
个人感觉Getobject函数没有Workbooks.Open好用：
1） 通过getobject打开的Excel文件只要被修改（写）并保 ...

解决了我的困惑，收藏！感谢感谢！

renkangjizhen

用getobject，操作页面无跳转，用open则操作页面跳转。

liasdflei

workooks.open(pathfile)和getobject(pathfile)实现的效果应该是一样的，都会返回workbook对象，都起到打开表格文件的作用，默认处理完后都会自动关闭，并且不会保存。因此在处理修改完数据后应调用save方法保存一下。好像getobject速度更快一点点。
另外表格文件的显式或者隐式打开是windows(wb.name).visible属性设置的。