Hsieh

¦^´_ 1# dennis
¥Î³Ìª½Ä±±o¼gªk¡A½Æ»s/¶K¤W/¦sÀÉ

1. Sub ex()
   
2. d = Date + 7 - Weekday(Date, 2) '¬P´Á¤éªº¤é´Á
   
3. For i = 2 To Sheets.Count
   
4. Sheets(i).UsedRange.Copy '­×§ï½Æ»s¦ì¸m
   
5.   Set Wd = CreateObject("Word.Application")
   
6.       Set Doc = Wd.Documents.Add
   
7.       Wd.Selection.PasteExcelTable False, False, False
   
8.       Doc.SaveAs "D:\" & Format(d + i - 1, "mmdd") & "¦æµ{.doc" '¦s¦¨WORDÀÉ
   
9.       Wd.Quit
   
10. Next
    
11. End Sub

½Æ»s¥N½X