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

[µo°Ý] EXCEL§å¦¸·s¼W¸ê®Æ¦ÜACCESS¥¢±Ñ

¦^´_ 2# yifan2599
§Aªºµ{¦¡½X ¥[¤W Debug.Print  ¦b§Y¥@¹Bºâµøµ¡,¬d¬Ý§Aªº¦¡¤l¿ù¦b­þ¸Ì
  1. strSQL = "Insert Into [DATA] Select *," & strVer & "As ª©¥» From [Excel 12.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].[ACC$" & DataAddr & "]"
  2. Debug.Print strSQL   
  3. Stop
  4. AdoConn.Execute strSQL
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD