12
返回列表 上一主題 發帖

[發問] 關閉特定excel檔案

pointchi

帖子
18 
主題
5 
精華
0 
積分
73 
點名
1  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2024-9-12 
11# 跳轉到 »
發表於 2021-11-21 22:20 | 只看該作者
回復 10# 准提部林
版大您好，
我將您的語法貼至我的內容，如下:

Sub step01()
        
    a = Cells(13, 5)
    If Len(a) >= 28 Then
        Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 5).Font.Size = 35
        Worksheets("raw").Cells(13, 5).Font.FontStyle = "粗體"
    Else

        Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 5).Font.Size = 48
        Worksheets("raw").Cells(13, 5).Font.FontStyle = "粗體"
    End If  

    Dim linkbook As Workbook
    For Each linkbook In Workbooks
        If LCase(.Name) Like "link*.xls*" Then .Close 0
        Next
   
End Sub

可是出現(.Name)錯誤訊息為"不正確的引用"，是否因為我原本的VBA語法哪裡有錯誤，導致後續的異常。

TOP

samwang

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

看了准大回覆，套用他的回覆，應該可以符合您的需求了，請測試看看，謝謝

Dim wb As Workbook
For Each wb In Workbooks
    If LCase(wb.Name) Like "link*.xls*" Then wb.Close 0
Next

TOP

pointchi

帖子
18 
主題
5 
精華
0 
積分
73 
點名
1  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2024-9-12 
13#
發表於 2021-11-22 22:30 | 只看該作者
回復 12# samwang


    感謝版大與S大，成功了~
    接下來我再來研究開頭的Link(N-1).xls檔案複製至作業主檔TEST1的Raw標籤頁

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
12
返回列表 上一主題