返回列表下一主題上一主題發帖

[發問] 關閉系統提示

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-8-24 09:23 | 只看該作者

[發問] 關閉系統提示

請問論壇的大大們
我有寫一段關閉提示的語法，但是每次開啟某個檔案時還是會出現"更新連結"的提示
但是那個檔案是其它單位的，所以我無法對那個檔案做任何的設定
請問底下的語法要如何修改才可以關閉所有的系統提示

'VBA 代碼運行時禁用屏幕更新
Application.ScreenUpdating = False

'關閉系統提示
Application.DisplayAlerts = False

'開啟六幅異動表
'宣告變數(T,B)是字串變數,i是短整數
On Error Resume Next '遇到錯誤繼續執行下一行指令
Dim T As String
Dim i As Integer

'令T這字串變數是 "資料夾位址\"
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\D.生產相關\2.每日模具異動\模具異動-六福\"

'設順迴圈i從0 到15
For i = 0 To 15

'令B這字串變數是今天日期減掉i變數後的日期轉換成字串
'字串:4碼年2碼月2碼日中間加"."符號
Dim B As String
B = Format(Date - i, "yyyy.mm.dd")

' 建立T & B 每日模具異動.xlsx位址
' 檢查T & B 每日模具異動.xlsx是否存在
' 唯讀開啟T & B 每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath1 As String
filePath1 = T & B & " 每日模具異動.xlsx"
If Dir(filePath1) <> "" Then
      Workbooks.Open fileName:=filePath1, ReadOnly:=True
      Exit For
End If

' 建立T & B每日模具異動.xlsx位址
' 檢查T & B每日模具異動.xlsx是否存在
' 唯讀開啟T & B每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath2 As String
filePath2 = T & B & "每日模具異動.xlsx"
If Dir(filePath2) <> "" Then '
      Workbooks.Open fileName:=filePath2, ReadOnly:=True
      Exit For
End If

' 建立T & B每日模具異動.xlsx位址
' 檢查T & B每日模具異動.xlsx是否存在
' 唯讀開啟T & B每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath3 As String
filePath3 = T & B & "每日模具異動_New.xlsx"
If Dir(filePath3) <> "" Then '
      Workbooks.Open fileName:=filePath3, ReadOnly:=True
      Exit For
End If
Next i

On Error GoTo 0 '結束錯誤繼續執行

'當上述迴圈跑完了還找不到想要的位址與檔名檔案!
'就跳出提示窗,顯示16天區間日期沒有符合的檔案
'最後結束程式執行
If i = 16 Then
MsgBox "找不到 " & Date & " ~ " & Date - 15 & " 檔案"
End If

'清除篩選
ActiveSheet.AutoFilterMode = False