getobject和workbooks.open哪个更好！

MrXIAGAO

感谢楼上大家分享的信息。

我在网上找到另一种方法，可以非表示着打开处理，也可以保存出正常的文件，并且速度还比GetObject打开的方式更快。
通过CreateObject创建一个Excel.Application后，给Application设置成非表示和不出警告，再通过App.Workbooks.Open打开。不过之后需要关闭并释放掉相应的Workbook资源和Application资源。
从现象上来看这种方法更好，目前还没有发现有什么缺点或者问题。

1. 'org:https://jovba.com/2022/12/29/other_books1/#i-2
   
2. Sub 最速で別ブックを開く()
   
3. Dim ExcelApp As New Application
   
4. Dim Wb As Workbook
   
5. Dim ReadFolderFullPath  As String
   
6. 
   
7. '開くExcelファイルを指定
   
8. ReadFolderFullPath = ThisWorkbook.Path & "" & "Book1.xlsx"
   
9. 
   
10. 'エクセルを不可視で開く
    
11. ExcelApp.Visible = False      'エクセル可視/不可視設定
    
12. ExcelApp.DisplayAlerts = False      '警告メッセージをオフ
    
13. Set Wb = ExcelApp.Workbooks.Open(ReadFolderFullPath, , True)    '読取り専用で開く
    
14. 
    
15. '処理例
    
16. '別ブックのセルの値を取得
    
17. Debug.Print Wb.Worksheets("Sheet1").[A1].Value
    
18. 
    
19. ExcelApp.DisplayAlerts = True      '警告メッセージをオン
    
20. ExcelApp.Quit      'Excel終了
    
21. Set ExcelApp = Nothing      '参照を解放
    
22. End Sub

复制代码

prcstone

sub test()
       Dim WB As Workbook
       WB = GetObject("路径\文件名.xls")
       WB.Close(True)
end sub

sub test()
       Dim WB As Workbook
       WB = GetObject("路径\文件名.xls")
       WB.Close(false)
end sub

2个子程序效果一样的，要么操作后，再打开都能显示，要么都隐藏。

EXCEL高手养成记

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

感谢,运行完 文件打不开,谢谢解惑