"sheeet1"¬°¤£©T©w¦r¦ê¤Î¼Æ¦r,¦p¦ó¥t¦s·sÀÉ
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
"sheeet1"¬°¤£©T©w¦r¦ê¤Î¼Æ¦r,¦p¦ó¥t¦s·sÀÉ
°²³]§Ú¦³¤TÓ¤u§@ªí¬° "sheet1"; "sheet2"; "sheet3" (¦ý³o¤TÓ¤u§@ªí¦WºÙ¤£¬O©T©w¦r¦ê¤Î¼Æ¦r,·|Åܧ󦨨ä¥L¦WºÙ)
¥t¦s·sÀÉ«á¦Û°Ê¤À¶}¦¨¤TÓÀɮרåH³o¤TÓ¤u§@ªí©R¦W
¸Ó¦p¦ó³B²z?? |
|
|
|
|
|
|
- ©«¤l
- 128
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥|¤t¦¨³£ÊT崃
- µù¥U®É¶¡
- 2010-9-13
- ³Ì«áµn¿ý
- 2017-5-12
|
Sub test()
Dim xlSht As Worksheet, sFile As String
For Each xlSht In Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name))
With xlSht
sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
If Dir(sFile) <> "" Then Kill sFile
.Copy
ActiveWorkbook.SaveAs sFile
End With
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
¦sÀɸô®|ק令 ActiveWorkbook.SaveAs Filename:="E:\test\"
¥X²{¿ù»~°T |
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
|
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
|
|
|
|
|
|