µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ½Ð°Ý¦p¦ó¥ÎÀx¦s®æ·íÀɦW(VBA)
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
½Ð°Ý¦p¦ó¥ÎÀx¦s®æ·íÀɦW(VBA)
¤p¸ô¦èªk
µoµu®ø®§
¥[¬°¦n¤Í
¤p¸ô¦èªk
·í«eÂ÷½u
UID
25051
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ª÷¿ú
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
¦b½u®É¶¡
28 ¤p®É
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
¤¤¾Ç¥Í
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2018-8-7 11:58
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
½Ð°Ý¦p¦ó¥ÎÀx¦s®æ·íÀɦW(VBA)
¦pÃD~·Q½Ð°Ý¦U¦ì«e½ú~§Ú·Q¥ÎVBA¤À§OÀx¦s¼ÆÓÀÉ®×~¨ºn¦p¦ó¥H¦UÓÀɮפ¤¨ä¤¤¤@Ó©T©wªºÀx¦s®æ·íÀɦW~
¼Ó¥D¼ö©«
·Q½Ð±Ð¦³Ãö²Öp¬Û¥[¤Î¬Û´îªº¨ç¼Æ°ÝÃD
·Q½Ð±Ð¬O§_¦³¤ñ¸û²³æªº§@ªk
¬d¸ß¤½¦¡°ÝÃD½Ð±Ð
Ãö©ó¶}µo¤Hû¥\¯à
·Q½Ð±Ð¦U¦ì«e½ú~¤@ÓVBAªº°ÝÃD
×¥¿¤½¦¡½Ð±Ð
·Q½Ð±Ð¦U¦ì¤j¤j¤@Ó¤½¦¡°ÝÃD
¦¬ÂÃ
¤À¨É
a5007185
µoµu®ø®§
¥[¬°¦n¤Í
a5007185
(ªü¦õ)
·í«eÂ÷½u
¤W¯ZµL²á¥´©Ç¥h
UID
29479
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ª÷¿ú
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
¦b½u®É¶¡
71 ¤p®É
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
¡@¼ÊºÙ:
ªü¦õ
¡@ÀY»Î:
¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
2
#
µoªí©ó 2018-8-7 12:52
|
¥u¬Ý¸Ó§@ªÌ
ActiveWorkbook.SaveAs Filename:=filepath & "/" & range("A1")
½Æ»s¥N½X
TOP
¤p¸ô¦èªk
µoµu®ø®§
¥[¬°¦n¤Í
¤p¸ô¦èªk
·í«eÂ÷½u
UID
25051
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ª÷¿ú
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
¦b½u®É¶¡
28 ¤p®É
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
¤¤¾Ç¥Í
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
3
#
µoªí©ó 2018-8-7 15:58
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
2#
a5007185
·PÁ«e½úªº«ü¾É~·Q¦A½Ð±Ð~¦pªG§Ún«ü©wÀx¦s¨ì¬YÓ¯S©wªº¦a¤è(Ä´¦pC¼ÑªºAAAÀɮק¨)¸Ó¦p¦ó°µ!!·PÁÂ
TOP
a5007185
µoµu®ø®§
¥[¬°¦n¤Í
a5007185
(ªü¦õ)
·í«eÂ÷½u
¤W¯ZµL²á¥´©Ç¥h
UID
29479
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ª÷¿ú
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
¦b½u®É¶¡
71 ¤p®É
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
¡@¼ÊºÙ:
ªü¦õ
¡@ÀY»Î:
¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
4
#
µoªí©ó 2018-8-7 16:56
|
¥u¬Ý¸Ó§@ªÌ
Filepath = "C:/AAA"
TOP
¤p¸ô¦èªk
µoµu®ø®§
¥[¬°¦n¤Í
¤p¸ô¦èªk
·í«eÂ÷½u
UID
25051
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ª÷¿ú
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
¦b½u®É¶¡
28 ¤p®É
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
¤¤¾Ç¥Í
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
5
#
µoªí©ó 2018-8-7 17:08
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
4#
a5007185
¤U¸ü
(46.86 KB)
2018-8-7 17:06
¤£¦n·N«ä~¥i¬O·|¥X²{¿ù»~!!½ÐÀ°¦£×¥¿¿ù»~
TOP
a5007185
µoµu®ø®§
¥[¬°¦n¤Í
a5007185
(ªü¦õ)
·í«eÂ÷½u
¤W¯ZµL²á¥´©Ç¥h
UID
29479
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ª÷¿ú
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
¦b½u®É¶¡
71 ¤p®É
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
¡@¼ÊºÙ:
ªü¦õ
¡@ÀY»Î:
¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
©«¤l
108
¥DÃD
1
ºëµØ
0
¿n¤À
113
ÂI¦W
0
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2016
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
»OÆW
µù¥U®É¶¡
2017-9-7
³Ì«áµn¿ý
2019-2-27
6
#
µoªí©ó 2018-8-7 17:30
|
¥u¬Ý¸Ó§@ªÌ
ActiveWorkbook.SaveAs Filename:="C:\User\Eternity\Desktop\·s¸ê®Æ§¨ (3)\" & Range("F1")
½Æ»s¥N½X
§A¸Õ¸Õ¬Ý¡A
¨ä¹ê§ÚFilePath¥Nªí¦r¦êÅܼƤè«K§A§ïÀɮצì¸m¡C
TOP
¤p¸ô¦èªk
µoµu®ø®§
¥[¬°¦n¤Í
¤p¸ô¦èªk
·í«eÂ÷½u
UID
25051
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ª÷¿ú
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
¦b½u®É¶¡
28 ¤p®É
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
¤¤¾Ç¥Í
©«¤l
32
¥DÃD
8
ºëµØ
0
¿n¤À
71
ÂI¦W
0
§@·~¨t²Î
WINDOWS7
³nÅ骩¥»
..
¾\ŪÅv
20
µù¥U®É¶¡
2016-6-20
³Ì«áµn¿ý
2020-10-30
7
#
µoªí©ó 2018-8-7 19:20
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
6#
a5007185
«D±`·PÁÂ~¤w¥i¶¶§Q°õ¦æ~¬Ù¤U¤p§Ì¤£Â_«½Æ°Ê§@ªº®É¶¡~{:2_37:}
TOP
faye59
µoµu®ø®§
¥[¬°¦n¤Í
faye59
(温©_)
·í«eÂ÷½u
ij½×ªÌ
UID
30039
©«¤l
104
¥DÃD
5
ºëµØ
0
¿n¤À
110
ª÷¿ú
110
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
Office2007
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
116 ¤p®É
µù¥U®É¶¡
2017-11-14
³Ì«áµn¿ý
2019-4-30
¡@¼ÊºÙ:
温©_
¡@ÀY»Î:
ij½×ªÌ
¤¤¾Ç¥Í
©«¤l
104
¥DÃD
5
ºëµØ
0
¿n¤À
110
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
Office2007
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2017-11-14
³Ì«áµn¿ý
2019-4-30
8
#
µoªí©ó 2018-8-9 07:21
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
7#
¤p¸ô¦èªk
§Ú¬O³o¼Ë§ïªº¡A¥i¥H°Ñ¦Ò¬Ý¬Ý¡C
Dim xlsmApp As New Excel.Application
Dim Fs , Date1 As String,Fss As Long
Fs = Dir("\\¸ê®Æ§¨¸ô®|\") 'Ū¨ú¸ô®|¥Ø¥þ³¡ÀɮצWºÙ
Do Until Fs = "": If Fs = Date1 & ".xlsx" Then Fss = 1'Àɮפw¦s¦bFss=1
Fs = Dir
Loop
If Fss <> 1 Then
xlsmApp.Visible = False
xlsmApp.Workbooks.Add
xlsmApp.Workbooks(1).SaveAs ("\\¸ê®Æ§¨¸ô®|\" & Date1 & ".xlsx") 'Date1¦r¦êÀɦW¡A§Ú°µ¬°¤é´ÁÅܼƫØÀÉ¡A§A¥i¥H§ï¦¨Range("F1")«ü©wÀx¦s®æ
xlsmApp.Quit
Set xlsmApp = Nothing
End If
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C
TOP
ÀR«ä¦Û¦b :
¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ùȤ]¨S¦³¡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¯»µ·