Select e.Book.TempLate Case "一周派工表模板" Dim Sheet As XLS.Sheet = e.Book.Sheets(0) Dim ids As String For Each r As Row In Tables("派工表").GetCheckedRows ids = ids & "," & r("_Identify") Next Sheet(3,10).Value = "<_Identify in (" & ids.trim(",") & ")>" End Select