- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
回復 2# Hsieh
版大,
在程式執行過程中,它會一直出現對話框問是否更新連結?我想到之前大大給的二句話(藍色字),就將它加在這個程式中,但執行時停在With Workbooks.Open(fd & fs),是否前述二句話放錯位置了?
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False- Sub Try()
- fd = ThisWorkbook.Path & "\" & Sheets(1).[E6] & "\"
- fs = Dir(fd & "*.xlsm")
- fs = Dir(fd & "*.xls")
- Do Until fs = ""
- Application.DisplayAlerts = False
- Application.AskToUpdateLinks = False
- With Workbooks.Open(fd & fs)
- For Each vbc In .VBProject.VBComponents
- Select Case vbc.Type
- Case vbext_rk_Project, vbext_wt_Browser, vbext_ct_MSForm '註
- .VBProject.VBComponents.Remove .Item(vbc.Name)
- Case Else
- .VBProject.VBComponents(vbc.Name).CodeModule.DeleteLines 1, _
- .VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
- End Select
- Next
- .Close 1
- End With
- fs = Dir
- Loop
- End Sub
|
|
發表於 2012-6-8 16:38
| 
