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

[µo°Ý] Excel¤u§@ªí³æ»PAccess¸ê®Æ®wªºVBA¤¬°Ê°ÝÃD

¦^´_ 26# JEAN
³o¸Ì¡A§Ú¤w¦A¥[¤J¤@­Ó·sªº¤u§@ªí³æ Sheets("¾÷²¼µn¿ý")¡A¦b¦¹ªí³æ¤º
"¾÷²¼µn¿ý" ¥u³æ¯Â³B²z¸ê®Æ·s¼W¡B§ó·s¡B§R°£¡B­«¸mµ¥¿é¤J§@·~¡A¬ÛÃöªº
¸ê®ÆÀx¦s§@·~«h¥þ¥æ¥Ñ Access ¾÷²¼°O¿ý©ú²Óªí.mdb ¸ê®Æ®w¦s¨ú¬ö¿ý¡C
¦Ü©ó­ì Sheets("data") ªº¬ö¿ý«h¨ÌµM«O¯dµ¹¤u§@ªí³æ "¾÷²¼§@·~"¡A
§@¬°Âù¦VÀx¦s½d¨Ò¤§¥Î¡C¤]´N¬O»¡¡B¤u§@ªí³æ "¾÷²¼µn¿ý" ©Î³\´N¬O
©pªº»Ý¨D (µ{¦¡½X¦b¨ä"¾÷²¼µn¿ý"¥»¨­¤u§@ªí³æ¤º)¡A©p¥i¥H±N¥¦»P
"¾÷²¼§@·~"¤º¤§µ{¦¡½X¬Û¤¬¤ñ¸û¡A«K¥i»â·|¨âªÌ¤§¶¡³B²z¤Wªº®t²§¡A
¶i¦Ó¥i§@¬°©p­Ó¤H»â°ì¤W¤§±´°Q¤Î¬ã¨s¡C

TOP

¦^´_ 26# JEAN
¶¶§ÇÀ³¥ý±q ThisWorkbook ªºµ{¦¡½X¬Ý°_¡AµM«á¦A¤À§O¥hÁA¸Ñ
Sheets("¾÷²¼§@·~")¡B¥H¤Î Sheets("¾÷²¼µn¿ý") ¤ºªºµ{¦¡½X¡A
©pªº­«ÂI¥i¥H¥ý©ñ¦b ("¾÷²¼µn¿ý") ¤W¡C ²z¸Ñ«á¦A¦æ¥hÅé·|
("¾÷²¼§@·~")¡B¦p¦¹©pªº¶i®i¤~·|¶¶§Q¡C³Ì«á¤~¥hÁA¸Ñ "¼Ò²Õ"
¸Ì¦p¦ó³B¸Ì ComboBox ¤º¦p¦óÀ³¥Î·Æ¹«ºu¶bªº¹B§@(Hook)¡B
¥H¤Î¦p¦óÄÀ©ñ (UnHook)¡C¦Ü©ó¸ê®Æ®wµ²ºc«O«ù¤£ÅÜ(Mdf¡BAccdb)¡C
³Ì«á¡B¯¬©p¤@¦|­·¶¶¡I
2014¦~¾÷²¼°O¿ý.rar (123.68 KB)

TOP

¦^´_ 34# JEAN
½Ð°Ý©p¬O­n°õ¦æ MDF ¸ê®Æ®w¡B§í©Î¬O ACCDB ¸ê®Æ®w¡H
¦]³o¨âºØ¸ê®Æ®wªºÅX°Êµ{¦¡¬O¤£¦Pªº¡C
For Access MDF (2003)¡G
  1.     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
  2.                           ThisWorkbook.Path & Application.PathSeparator & "¾÷²¼°O¿ý©ú²Óªí.mdb" & ";"
½Æ»s¥N½X
For Access Accdb (2007¡B2010)¡G
  1.     '  For Microsoft.ACE.OLEDB.12.0,you need Microsoft Office 12.0 Access Database Engine to be installed.
  2.     .ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;" & "Data Source=" & _
  3.                          ThisWorkbook.Path & Application.PathSeparator & "¾÷²¼°O¿ý©ú²ÓªíÀÉ®×.accdb" & ";"
½Æ»s¥N½X
·í©p­n¨Ï¥Î Accdb ¸ê®Æ®w®É¡A©pµ{¦¡½XªºÅX°Êµ{¦¡«K­n±Ò°Ê For Access Accdb¡B¤Ï¤§¥çµM¡C

TOP

¦^´_  c_c_lai


    ±z¦n: ¤½¥qªº¹q¸£¬O¥Îoffice 2007ªº    ¤£¹LexcelÀx¦sªº¤è¦¡¬O2003   ¦]¬°¨ä¥L¤H¬O ...
JEAN µoªí©ó 2013-12-30 12:25

¦]¬°¬Ý¨ì©pªþ¥óªºÀɮ׫¬ºA¬O .accdb ¤~·|¦³¦¹¤@°Ý¡C
MDF ¬O Access 2003 ªºÀx¦sÀɪº¦sÀÉÃþ«¬¡A
ACCDB «h¬O Access 2007¡B2010 ªºÀx¦sÀɪº¦sÀÉÃþ«¬¡C
¦b  Excel 2007¡B2010 ªºÀô¹Ò¤U¥i¥H¦s¨ú 2003¡B¤Î¨ä (2003) ¥H¤Wª©¥»
ªº¸ê®Æ®w¡C¤]´N¬O»¡¦]¬°¶Q¤½¥q¨ä¥L¤H§¡¨Ï¥Î 2003 ª©¥»ªº Office,
ÁöµM©pªº¬O Office 2007¡A ¦b¦¹±ø¥ó±¡ªp¤U¡A §A«K¥i¥H¦Ò¶q¥þÅ駡
¨Ï¥Î mdf ªºÀɮסC´N¤£­n¨Ï¥Î accdb «¬ºAªº¸ê®Æ®wÀɮסA§_«h¨ä¥L
¨Ï¥Î 2003 ª©¥»ªº¦P¨Æ³£µLªk¨Ï¥Î¡A¤Ó¬ð¥Xªºªí²{¤]¬O¤£¦nªº¡C
¦p¦¹¸Ñ»¡¥i§_¸Ñ¨M¤F©pªº§x´b¡H ¦¹®ÉÅX°Ê¤è¦¡«h­n¥Î¡G

  1.        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
  2.                           ThisWorkbook.Path & Application.PathSeparator & "¾÷²¼°O¿ý©ú²Óªí.mdb" & ";"
½Æ»s¥N½X

TOP

¦^´_ 34# JEAN
­ì¥»»yªk¦b 2010 °õ¦æ OK¡A¬°ÁקK§xÂZ½Ð­×¥¿¦p¤U¡G

TOP

¦^´_ 36# JEAN
2014¦~¾÷²¼°O¿ý.xls §Úµyµy­×¥¿¦p¤U¡G


2014¦~¾÷²¼°O¿ý.rar (153.35 KB)

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-12-30 17:52 ½s¿è

¦^´_ 40# JEAN
©p¬O¨Ï¥Î 39# ªº "2014¦~¾÷²¼°O¿ý.xls" °õ¦æÁÙ¦³°ÝÃD¶Ü¡H
§ÚÁÙÆZ¦n©_ªº¡A¿ù»~°T®§¬°¦ó¡H  ¸ê®Æ®w¥Ø«e©p¬O¨Ï¥Î
"¾÷²¼°O¿ý©ú²Óªí.mdb"¡BÁÙ¬O "¾÷²¼°O¿ý©ú²ÓªíÀÉ®×.accdb"¡H
©p´ú¸Õªº¹q¸£Àô¹Ò¬O¦b Office 2003¡B¥ç©Î Office 2007¡H
Excel ª©¥»®t²§©Ê¯u¦³¨º»ò¤j¶Ü¡H¡H¡H

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD