ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó­×¥¿¶×¤JÀɮ׮ɪº¥¿½T¤é´Á®æ¦¡

¦p¦ó­×¥¿¶×¤JÀɮ׮ɪº¥¿½T¤é´Á®æ¦¡

½Ð°Ý¥ÎWorkbooks.Open ¶}±ÒÀÉ®×®É, ¦ó®É¤~­n¨Ï¥Î  Local:=True
¦³®É¨Ï¥Î Local:=True ®É,  ¤é´Á®æ¦¡·|¥¿½T, ¦³®É«h­è­è¬Û¤Ï

¦p¹q¸£ªº¤é´Á®æ¦¡¬Oddmmyyyy, ¦p¦óÀˬdÀɮתº¤é´Á®æ¦¡¬O§_¬Û¦P, ¤Î§@¥X­×¥¿

½Ð«ü±Ð

§ó·s°ÝÃD, ¹q¸£¤é´Á®æ¦¡¬Oddmmmyyyy
¦p¦óÀˬd­n¶}±ÒªºÀɮפé´Á®æ¦¡¬O§_¬Û¦P
­YÀɮ׬Ommmddyyyy ®É, ¦p¦ó§@¥X­×§ï

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-2-19 22:10 ½s¿è
§ó·s°ÝÃD, ¹q¸£¤é´Á®æ¦¡¬Oddmmmyyyy
¦p¦óÀˬd­n¶}±ÒªºÀɮפé´Á®æ¦¡¬O§_¬Û¦P
­YÀɮ׬Ommmddyyyy ®É, ¦p¦ó ...
enoch µoªí©ó 2013-2-18 18:01

Æ[¬Ý WorkBooks ªº Open ¤èªk¤¤ Local °Ñ¼Æªº»¡©ú :

Local     ¿ï¾Ü©Êªº Variant¡C
True ®Ú¾Ú Microsoft Excel ªº»y¨¥Àx¦sÀÉ®× (¥]§t±±¨î¥x³]©w)¡C
False (¹w³]­È) «h®Ú¾Ú Visual Basic for Applications (VBA)
(³q±`¬°¬ü¦¡­^»y¡A°£«D°õ¦æ Workbooks.Open ªº VBA ±M®×¬Oª©ªº¥þ²y XL5/95 VBA ±M®×) ªº»y¨¥Àx¦sÀɮסC

¥i¥Hµo²{³o­Ó°Ñ¼Æ¨Ã¤£¬O«ü©w¤é´Á©Î®É¶¡­n¥H¤°»ò®æ¦¡¨Óªí¥Üªº.
©Ò¥H·Q­n¹F¦¨§A·Q­nªº¥Øªº,
À³¸Ó¬O­n±q¨ä¥L¤è­±¨ÓµÛ¤â.

§Ú¬d¤F¤@¤UÀ³¸Ó¬O¤£»Ý­n¦p§A©Ò­z­n°µ¤°»ò­×¥¿,
¦Ó¬O¥u­n©ó¨Ï¥Î®É«ü©w ¦s(©ÎÅã¥Ü)¦¨ §Ú­Ì·Q­nªº®æ¦¡´N¥i¥H¤F.
Á|¨Ò¦p¤U:
  1. Sub ex()
  2.   Dim fs, f, s
  3.   filespec = "C:\CONFIG.SYS" ' ­n¶}±ÒªºÀɮצWºÙ
  4.   Set fs = CreateObject("Scripting.FileSystemObject")
  5.   Set f = fs.GetFile(filespec)
  6.   s = UCase(filespec) & vbCrLf & vbCrLf
  7.   s = s & "Àɮ׫إß: " & Format(f.DateCreated, "mm/dd/yyyy    hh:mm") & vbCrLf
  8.   s = s & "³Ì«á¦s¨ú: " & Format(f.DateLastAccessed, "yyyy/mm/dd    hh:mm:ss") & vbCrLf
  9.   s = s & "³Ì«áÅܧó: " & Format(f.DateLastModified, "hh:mm:ss     m/d/yy")
  10.   MsgBox s, 0, "Àɮ׸ê°T"
  11. End Sub
½Æ»s¥N½X
¥H¤U¬O Excel ¤ºªº»¡©ú,§A¥i¥H°Ñ¦Ò¬Ý¬Ý :
¨Ï¥ÎªÌ¦Û­q¤é´Á/®É¶¡®æ¦¡½d¨Ò
¥H¤Uªí®æ¦C¥X¥H¨Ï¥ÎªÌ¦Û­q¤é´Á/®É¶¡®æ¦¡¨ÓÅã¥Ü December 7, 1958ªº½d¨Ò¡G

®æ¦¡           Åã¥Üµ²ªG
m/d/yy           12/7/58
d-mmm           7-Dec
d-mmmm-yy    7-December-58
d mmmm         7 December
mmmm yy       December 58
hh:mm AM/PM 08:50 PM
h:mm:ss a/p   8:50:35 p
h:mm            20:50
h:mm:ss        20:50:35
m/d/yy h:mm  12/7/58 20:50

TOP

¤£¦n·N«ä, ¥i¯àµü¤£¹F·N
·Q°Ý°ÝÃD¬O, ­ì¥»ªºÀɮפé´Á¤º®e : 3JAN2013
¦ý¶}±ÒCSVÀÉ®×®ÉÅܤF1MAR2013
¦³¿ìªk¸Ñ¨M°ÝÃD¶Ü?

TOP

¦^´_ 4# enoch
­ì¥»ªºÀɮפé´Á¤º®e : 3JAN2013 ,¦ý¶}±ÒCSVÀÉ®×®ÉÅܤF1MAR2013  
¶}±Ò CSVÀɮ׫á°õ¦æ, ¦p¤é´Á¦ì©óA1
  1. Sub EX()
  2. [A1] = DateSerial(Year([A1]), Day([A1]), Month([A1]))
  3. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD