µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¦p¦ó¨Ï¥ÎVBA¤@Áä¥t¦s·sÀÉ?
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¦p¦ó¨Ï¥ÎVBA¤@Áä¥t¦s·sÀÉ?
n7822123
µoµu®ø®§
¥[¬°¦n¤Í
n7822123
(ªüÀs)
·í«eÂ÷½u
UID
20045
©«¤l
406
¥DÃD
8
ºëµØ
0
¿n¤À
453
ª÷¿ú
453
ÂI¦W
0
§@·~¨t²Î
WINDOWS 7
³nÅ骩¥»
2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
202 ¤p®É
µù¥U®É¶¡
2015-2-7
³Ì«áµn¿ý
2021-7-31
¡@¼ÊºÙ:
ªüÀs
¤¤¾Ç¥Í
©«¤l
406
¥DÃD
8
ºëµØ
0
¿n¤À
453
ÂI¦W
0
§@·~¨t²Î
WINDOWS 7
³nÅ骩¥»
2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2015-2-7
³Ì«áµn¿ý
2021-7-31
1
#
¸õÂà¨ì
»
µoªí©ó 2019-6-21 13:41
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
1#
RCRG
³o¬O¤å~~~~
«ü©w½d³òCopy¥X¨Ó¥t¦sÀɮסAÀx¦s®æÄæ¦ì&¤u§@ªí¦WºÙ¨S§ïÅÜ
Sub EX()
iPath$ = "C:\Users\user\Desktop\" '«ü©w¸ô®|
NewName$ = Format(Now, "yyyymmddhhmmss") & CStr([¤u§@ªíC!K3])
Set ibook = ActiveWorkbook
With Workbooks.Add: ibook.Activate
[¤u§@ªíA!A2:F56].Copy .Sheets(1).[A2]: .Sheets(1).Name = "¤u§@ªíA"
[¤u§@ªíB!A2:F50].Copy .Sheets(2).[A2]: .Sheets(2).Name = "¤u§@ªíB"
.SaveAs iPath & NewName: .Close True
End With: Set ibook = Nothing
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U
TOP
ÀR«ä¦Û¦b :
°µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·