- 帖子
- 122
- 主題
- 26
- 精華
- 0
- 積分
- 148
- 點名
- 0
- 作業系統
- windos10
- 軟體版本
- office2016
- 閱讀權限
- 20
- 註冊時間
- 2021-7-8
- 最後登錄
- 2023-8-28
|
回復 1# cowww
同事給了我一段語法，卻出現了更新活頁簿連結
請問這是怎麼一回事??
Sub 按鈕4_Click()
'計算選項改為自動
Application.Calculation = xlCalculationAutomatic
'關閉提示
Application.DisplayAlerts = False
Dim formulaCell As Range
Dim workbook_name As String
Dim worksheet_name As String
' 設置函數公式在單元格O2
Set formulaCell = Worksheets("公式(勿刪)").Range("O2")
' 獲取要放入公式的key（key在C2獲取）
Dim lookup_value As String
lookup_value = "$C2"
' 獲取 "AL-202307目標.xlsx" 和 "7月 (SAAM&FAAM)"，分別在單元格 P3 和 P4 獲取
workbook_name = Worksheets("公式(勿刪)").Range("P3").Value
worksheet_name = Worksheets("公式(勿刪)").Range("P4").Value
' 构建公式字符串，并使用兩個雙引號進行轉換
Dim formula As String
formula = "=IFERROR(VLOOKUP(" & lookup_value & ", '" & workbook_name & "'!" & "$B:$G, 4, 0), """")"
' 將公式放入公式單元格 O2
formulaCell.formula = formula
' 關閉打開的工作簿
Dim wb As Workbook
Set wb = Workbooks.Open("\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\AL每月目標\" & workbook_name, UpdateLinks:=False)
wb.Close SaveChanges:=False
'開啟提示
Application.DisplayAlerts = True
End Sub |
|
發表於 2023-7-24 14:59
| 