- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 25# skyutm
½Ð°Ý§A°õ¦æµ{¦¡«á¦³±N¦¹ÀÉ®×Ãö³¬,µM«á¦b¥´¶}¬Ý¬Ý,¦¹Àɮר̵M¬O¦³¥¨¶°¦s¦b¶Ü?
¦A¸Õ¸Õ¬Ý- Sub Ex() '½m²ß¸Õ¸Õ¬Ý ¬¡¶Ã¯,¤u§@ªí: ¶·¬Ò¨S¤WÂꪺª¬ºA
- Workbooks(1).Sheets(1).Copy ' Sheets(1) ½Ð¥ý»s§@VBA¥¨¶°
- 'Workbooks("TEST").Sheets("TEST").Copy ' Sheets(1) ½Ð¥ý»s§@VBA¥¨¶°
- With ActiveWorkbook
- Application.DisplayAlerts = False
- .SaveAs "d:\µL¥¨¶°.xlsx", FileFormat:=51 ' xlExcel8
- '** °ÆÀɦW:xlsx ¬°µLVBA¥¨¶° ªº¬¡¶Ã¯
- Application.DisplayAlerts = False
- .Close
- End With
- Workbooks.Open ("d:\µL¥¨¶°.xlsx")
- End Sub
½Æ»s¥N½X |
|