- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 246
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 1# dennis
¥Î³Ìª½Ä±±o¼gªk¡A½Æ»s/¶K¤W/¦sÀÉ- Sub ex()
- d = Date + 7 - Weekday(Date, 2) '¬P´Á¤éªº¤é´Á
- For i = 2 To Sheets.Count
- Sheets(i).UsedRange.Copy 'קï½Æ»s¦ì¸m
- Set Wd = CreateObject("Word.Application")
- Set Doc = Wd.Documents.Add
- Wd.Selection.PasteExcelTable False, False, False
- Doc.SaveAs "D:\" & Format(d + i - 1, "mmdd") & "¦æµ{.doc" '¦s¦¨WORDÀÉ
- Wd.Quit
- Next
- End Sub
½Æ»s¥N½X |
|