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

[µo°Ý] Access vba ¦³¿ìªk°µ "¥t¦s·sÀÉ"¹À!?

[µo°Ý] Access vba ¦³¿ìªk°µ "¥t¦s·sÀÉ"¹À!?

·Q½Ð°Ý¤j¤j­Ì¡AAccessªºVBA ¦³¨S¦³¿ìªk»s°µ"¥t¦s·sÀÉ"¨Ó·s¼W¥X·sªº.accdbÀÉ©O?
§Úªºµ{¦¡»Ý­n¥Î".accdbÀÉ"°µ¬°inputData¡A§Ú¨C°õ¦æ¤@¦¸µ{¦¡»Ý­n¤@­ÓDataÀÉ¡A
¨C¦¸ªºDataÀɳ£¬O§Q¥Î­ì¦³ªºDataÀɧó·s³¡¤À¸ê®Æªí¨Ã¥t¦s¥X¤@­Ó·sªº.accdbÀÉ¡C
¸ê®Æªí©w´Á§ó·sªº³¡¤À¤w¸g§Ë¦n¡A·Q½Ð°Ý¦³¨S¦³¤j¤j¥i¥H´£¨Ñ§Ú¤è¦V¥h«Ø¥ß¥t¦s·sÀɪº°Ê§@¡C

§Ú§ä¨ìµª®×¤F¡A¥ÎFileCopy¥h½Æ»s.accdbÀÉ¡A
¤£¹L¹J¨ì¤FÅv­­¤£¨¬ªº°ÝÃD¡A¦³¤j¤j¦³¹J¹L¹À?!

TOP

§ï¥Î Win32 API, °µ¥H¤U CopyFileA ªº«Å§i§Y¥i¡C
Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, ByVal NewFileName As String, ByVal FailIfExists As Long) As Long

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD