12
返回列表 上一主題 發帖

[發問] 關閉特定excel檔案

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
4# 跳轉到 »
發表於 2021-11-18 12:15 | 只看該作者
回復 3# pointchi

我將您說明的字串加入我的VBA，當檔案為Link是可以自動關閉，可是Link(1)...Link(N-1)時仍無法關閉，請問是否我有哪邊錯誤，附上我的VBA
>> 看你的程式只有針對Link動作，其它的沒有，還是方便可以附上檔案，描述需求結果，謝謝

TOP

pointchi

帖子
18 
主題
5 
精華
0 
積分
73 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2024-11-27 
3#
發表於 2021-11-18 11:20 | 只看該作者
S 大，我將您說明的字串加入我的VBA，當檔案為Link是可以自動關閉，可是Link(1)...Link(N-1)時仍無法關閉，請問是否我有哪邊錯誤，附上我的VBA

Sub step01()
    a = Cells(13, 4)
    If Len(a) >= 28 Then
        Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 4).Font.Size = 35
        Worksheets("raw").Cells(13, 4).Font.FontStyle = "粗體"
    Else
        Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 4).Font.Size = 48
        Worksheets("raw").Cells(13, 4).Font.FontStyle = "粗體"
    End If
   
    Set WB = Workbooks.Open("C:\Users\Point\Downloads\link.xlsm")
    WB.Close

End Sub

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2021-11-17 11:57 | 只看該作者
回復 1# pointchi

'FPath= "D:\Link.xls"
Set WB = Workbooks.Open('FPath檔案來源路徑)
WB.Close

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
12
返回列表 上一主題