TA貢獻(xiàn)1786條經(jīng)驗(yàn) 獲得超13個(gè)贊
不確定是否可以在當(dāng)前的excel實(shí)例中無(wú)形地打開(kāi)它們
您可以打開(kāi)一個(gè)新的excel實(shí)例，隱藏它然后打開(kāi)工作簿
Dim app as New Excel.Application
app.Visible = False 'Visible is False by default, so this isn't necessary
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(fileName)
'
' Do what you have to do
'
book.Close SaveChanges:=False
app.Quit
Set app = Nothing
正如其他人發(fā)布的那樣，請(qǐng)確保在完成任何已打開(kāi)的工作簿后進(jìn)行清理
TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超2個(gè)贊
如果這符合您的需求，我會(huì)簡(jiǎn)單地使用
Application.ScreenUpdating = False
還有加速代碼的好處，而不是通過(guò)使用第二個(gè)Excel實(shí)例來(lái)降低代碼速度。
TA貢獻(xiàn)1815條經(jīng)驗(yàn) 獲得超10個(gè)贊
要打開(kāi)隱藏在現(xiàn)有Excel實(shí)例中的工作簿，請(qǐng)使用以下命令：
Application.ScreenUpdating = False Workbooks.Open Filename:=FilePath, UpdateLinks:=True, ReadOnly:=True ActiveWindow.Visible = False ThisWorkbook.Activate Application.ScreenUpdating = True
舉報(bào)