pointchi

回復 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語法哪裡有錯誤，導致後續的異常。

samwang

回復 11# pointchi

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

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

pointchi

回復 12# samwang


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