Access恧恂悋ē؋åŗ¦VBA悒ä½æć£ć¦ēµ„ć‚“ć§ć„ććØåæ…ćšć¶ć¤ć‹ć‚‹å£ćŒć€ŒExcelćƒ‡ćƒ¼ć‚æć®ć‚¤ćƒ³ćƒćƒ¼ćƒˆć€ć§ć™ć€‚ć‚‚ćØ悂ćØAccessęœ¬ä½“ć«ć‚‚ć‚¤ćƒ³ćƒćƒ¼ćƒˆę©Ÿčƒ½ćÆć¤ć„ć¦ć„ć¾ć™ćŒć€ęÆŽå›žć‚¤ćƒ³ćƒćƒ¼ćƒˆć‚’ę‰‹å‹•ć§č”Œć‚ćŖ恄ćØ恄恑ćŖ恄ē‚¹ćØ态ē“°ć‹ćŖćƒ‡ćƒ¼ć‚æć®å¤‰ę›ć‚„ę”ä»¶åˆ¤å®šćŖć©ć‚’å«ć‚ć‚‹ćØē“ ē›“恫ä½æ恈ćŖć„ć‚·ćƒ¼ćƒ³ć‚‚å¤šć„ć§ć™ć€‚

今回ćÆAccess恧Excelćƒ‡ćƒ¼ć‚æć‚¤ćƒ³ćƒćƒ¼ćƒˆę–¹ę³•ć‚’ć„ćć¤ć‹ē“¹ä»‹ć—ćŸć„ćØę€ć„ć¾ć™ć€‚åˆ©ē”Øé »åŗ¦ćÆ少ćŖć„ć‹ć‚‚ć—ć‚Œć¾ć›ć‚“ćŒć€ć‚·ć‚¹ćƒ†ćƒ ę§‹ēƉäøŠćÆēµ¶åÆ¾ć«åæ…要恫ćŖ悋悂恮ćŖć®ć§ć€ćć®å‘Øč¾ŗę©Ÿčƒ½ć¾ć§å«ć‚ć¦å…¬é–‹ć—ć¾ć™ć€‚

é›£ę˜“åŗ¦ļ¼š

今回ä½æē”Øć™ć‚‹ćƒ‡ćƒ¼ć‚æćƒ¼ćƒ™ćƒ¼ć‚¹ćƒ•ć‚”ć‚¤ćƒ«ē­‰

ä»Šå›žć®Access恫ćÆ2ēØ®é”žć®ćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ē”Øę„ć—ć¦ć‚ć‚Šć¾ć™ć€‚passionćƒ†ćƒ¼ćƒ–ćƒ«ćÆIDåˆ—ćŒę•°å€¤åž‹ćŖ恮恧Excel恮IDåˆ—ć¾ć§å«ć‚ć¦ć‚¤ćƒ³ćƒćƒ¼ćƒˆåÆčƒ½ć€‚passion2ćƒ†ćƒ¼ćƒ–ćƒ«ćÆIDåˆ—ćŒć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼åž‹ćŖ恮恧CSVć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć‚’恙悋äŗ‹ć§IDåˆ—ć ć‘é£›ć°ć—ć¦ć‚¤ćƒ³ćƒćƒ¼ćƒˆåÆčƒ½ć§ć™ć€‚

Accessęœ¬ä½“ć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆ

Excelćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹

Accessęœ¬ä½“ę©Ÿčƒ½ć‚’ä½æć£ć¦ć®ć‚¤ćƒ³ćƒćƒ¼ćƒˆę‰‹é †ć§ć™ć€‚ę‰‹å‹•ć§Excelćƒ•ć‚”ć‚¤ćƒ«ć‚’éøć³ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć®ćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ęŒ‡å®šć—å–ć‚Šč¾¼ć‚€ć ć‘ćŖć®ć§ć™ćŒć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒćØć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć®ćƒ†ćƒ¼ćƒ–ćƒ«ę§‹ęˆćÆåŒć˜ć§ć‚ć‚‹åæ…č¦ę€§ćŒć‚ć‚‹ć®ćØć€ćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰ć®åž‹ć‚‚äø€č‡“ć•ć›ć¦ćŠćåæ…č¦ćŒć‚ć‚‹ć®ć§ę³Øꄏ恧恙怂äø»ćŖē”Ø途ćÆ定型ēš„ćŖćƒ‡ćƒ¼ć‚æć®å–ć‚Šč¾¼ćæćŒę®†ć©ć€‚ē“°ć‹ćŖčŖæę•“ćÆå‡ŗę„ćŖć„ć®ć§ćƒ†ćƒ¼ćƒ–ćƒ«ć«Insertć™ć‚‹ć ć‘ć®ę©Ÿčƒ½ć«ćŖć‚Šć¾ć™ć€‚

ā€»Excelć®å “åˆć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ćŒē„”恄恮恧ę³Øꄏ恌åæ…č¦ć§ć™ć€‚ćƒ‡ćƒ¼ć‚æć®åž‹ć‚’ć—ć£ć‹ć‚Šåˆć‚ć›ć¦ćŠćåæ…č¦ćŒć‚ć‚Šć¾ć™ć€‚

  1. passionćƒ†ćƒ¼ćƒ–ćƒ«ć«importsheet.xlsx恮passionć‚·ćƒ¼ćƒˆć®ćƒ‡ćƒ¼ć‚æć‚’ćć®ć¾ć¾å–ć‚Šč¾¼ćæć¾ć™ć€‚
  2. 外éƒØćƒ‡ćƒ¼ć‚æć‚æćƒ–ć‚’é–‹ćć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆćØćƒŖćƒ³ć‚Æ恮äø­ć«ć‚ć‚‹Excelć®ć‚¢ć‚¤ć‚³ćƒ³ć‚’ć‚ÆćƒŖ惃ć‚Æ恙悋
  3. ćƒ€ć‚¤ć‚¢ćƒ­ć‚°ćŒå‡ŗć¦ćć‚‹ć®ć§ć€å‚ē…§ć‚’ć‚ÆćƒŖ惃ć‚Æ恗态importsheet.xlsxć‚’ęŒ‡å®šć—ć¾ć™ć€‚
  4. ć€Œćƒ¬ć‚³ćƒ¼ćƒ‰ć®ć‚³ćƒ”ćƒ¼ć‚’ę¬”ć®ćƒ†ćƒ¼ćƒ–ćƒ«ć«čæ½åŠ ć™ć‚‹ć€ć«ć¦ć€Accesså†…ć®passionćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ęŒ‡å®šć™ć‚‹ļ¼ˆä»Šå›žćÆpassionćƒ†ćƒ¼ćƒ–ćƒ«ļ¼‰
  5. OK惜ć‚æćƒ³ć‚’ć‚ÆćƒŖ惃ć‚Æć—ć¦ę¬”ć«é€²ć‚€
  6. Excel恮äø­čŗ«ćŒćƒ—ćƒ¬ćƒ“ćƒ„ćƒ¼ć•ć‚Œć‚‹ć€‚ćć®ć¾ć¾ę¬”ćøé€²ć‚€ć‚’ć‚ÆćƒŖ惃ć‚Æ恙悋
  7. 完äŗ†ć‚’ć‚ÆćƒŖ惃ć‚Æ恗恦ēµ‚äŗ†

図ļ¼šćƒ†ćƒ¼ćƒ–ćƒ«ć«å–ć‚Šč¾¼ć‚€ćƒ€ć‚¤ć‚¢ćƒ­ć‚°

CSVćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹

Excelćƒ•ć‚”ć‚¤ćƒ«ä»„äøŠć«åˆ©ē”Øé »åŗ¦ćŒé«˜ć„ć®ćŒCSVćƒ•ć‚”ć‚¤ćƒ«ć®ć‚¤ćƒ³ćƒćƒ¼ćƒˆć€‚ä»–ć®ć‚·ć‚¹ćƒ†ćƒ ć‹ć‚‰åćå‡ŗć—ćŸćƒ‡ćƒ¼ć‚æ悒Accessć‚„é€£ęŗå…ˆć®ćƒ‡ćƒ¼ć‚æćƒ™ćƒ¼ć‚¹ćƒ•ć‚”ć‚¤ćƒ«ćŖć©ć«å–ć‚Šč¾¼ć‚€ē‚ŗć«éžåøøć«ć‚ˆćä½æć„ć¾ć™ć€‚ExcelćØé•ć£ć¦csvćƒ•ć‚”ć‚¤ćƒ«ć®å “åˆćÆć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć®å‡¦ē†ćŒć‚ć‚Šć¾ć™ć€‚ć“ć®å®šē¾©ćÆå–ć£ć¦ćŠćäŗ‹ćŒć§ćć¾ć™ć€‚å–ć‚Šč¾¼ćæꉋ順ćÆ仄äø‹ć®é€šć‚Šć€‚

  1. passionćƒ†ćƒ¼ćƒ–ćƒ«ć«importsheet.csvć®ćƒ‡ćƒ¼ć‚æć‚’ćć®ć¾ć¾å–ć‚Šč¾¼ćæć¾ć™ć€‚
  2. 外éƒØćƒ‡ćƒ¼ć‚æć‚æćƒ–ć‚’é–‹ćć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆćØćƒŖćƒ³ć‚Æ恮äø­ć«ć‚ć‚‹ćƒ†ć‚­ć‚¹ćƒˆćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚ÆćƒŖ惃ć‚Æć—ć¾ć™ć€‚
  3. ćƒ€ć‚¤ć‚¢ćƒ­ć‚°ćŒå‡ŗć¦ćć‚‹ć®ć§ć€å‚ē…§ć‚’ć‚ÆćƒŖ惃ć‚Æ恗态importsheet.csvć‚’ęŒ‡å®šć—ć¾ć™ć€‚
  4. ć€Œćƒ¬ć‚³ćƒ¼ćƒ‰ć®ć‚³ćƒ”ćƒ¼ć‚’ę¬”ć®ćƒ†ćƒ¼ćƒ–ćƒ«ć«čæ½åŠ ć™ć‚‹ć€ć«ć¦ć€Accesså†…ć®passionćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ęŒ‡å®šć™ć‚‹ļ¼ˆä»Šå›žćÆpassion2ćƒ†ćƒ¼ćƒ–ćƒ«ļ¼‰
  5. åŒŗåˆ‡ć‚Ščؘ号ćÆćƒ‡ćƒ•ć‚©ćƒ«ćƒˆć®ć€ŒåŒŗåˆ‡ć‚ŠčØ˜å·ä»˜ćć€ć®ć¾ć¾ć§OK
  6. ꬔćø悒ć‚ÆćƒŖ惃ć‚Æć—ć¾ć™ć€‚
  7. å…ˆé ­č”Œć‚’ćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰ćØ恗恦ä½æć†ć«ćƒć‚§ćƒƒć‚Æć‚’å…„ć‚Œć¾ć™ļ¼ˆcsvć«å…ˆé ­č”Œć®ćƒ‡ćƒ¼ć‚æćŒå…„ć£ć¦ć‚‹å “åˆļ¼‰
  8. 恓恓恧čØ­å®šć‚’ć‚ÆćƒŖ惃ć‚Æć—ć¾ć™ć€‚
  9. ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć®ē”»é¢ćŒå‡ŗć¦ćć¾ć™ć€‚
  10. äæå­˜ćƒœć‚æćƒ³ć‚’ęŠ¼ć™ćØć“ć®å®šē¾©ć‚’å–ć£ć¦ćŠćäŗ‹ćŒåÆčƒ½ć§ć™ć€‚ę–°č¦ć«ćƒ†ćƒ¼ćƒ–ćƒ«ćØć—ć¦å–ć‚Šč¾¼ć‚€å “åˆćÆć€ćƒ‡ćƒ¼ć‚æåž‹ć®ęŒ‡å®šć‚„ć‚¤ćƒ³ćƒ‡ćƒƒć‚Æć‚¹ć®ęŒ‡å®šćŖć©ćŒćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰ć®ęƒ…å ±ć«å‡ŗć¦ćć¾ć™ć€‚ļ¼ˆä»Šå›žćÆImportsheet ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ćØć—ć¦åå‰ć‚’ä»˜ć‘ć¾ć—ćŸļ¼‰
  11. ć‚¤ćƒ³ćƒćƒ¼ćƒˆć‚’ć‚¹ć‚­ćƒƒćƒ—ć—ćŸć„åˆ—ćÆ惁悧惃ć‚Æć‚’å…„ć‚Œć‚‹ćØć‚¹ćƒ«ćƒ¼ć—ć¦ćć‚Œć¾ć™ć€‚ä»Šå›žćÆIDåˆ—ćŒć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼ć§ć‚ć‚‹ć®ć§ć€ćƒć‚§ćƒƒć‚Æć‚’å…„ć‚Œć¾ć™ć€‚
  12. OK惜ć‚æćƒ³ć‚’ć‚ÆćƒŖ惃ć‚Æ恗恦态ꬔćøć‚ÆćƒŖ惃ć‚Æ恙悋ćØć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒå§‹ć¾ć‚Šć¾ć™ć€‚
  13. 完äŗ†ć‚’ć‚ÆćƒŖ惃ć‚Æ恙悋ćØć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒå®Œäŗ†
  14. ćƒ‡ćƒ¼ć‚æ型ćŖć©ćŒäøäø€č‡“ć ć£ćŸć‚Šć—ćŸå “åˆć«ćÆć€å¤±ę•—ć—ćŸćƒ”ćƒƒć‚»ćƒ¼ć‚øćØćć®å†…å®¹ćŒč”Øē¤ŗ恕悌悋恓ćØćŒć‚ć‚Šć¾ć™ć€‚
  15. ć‚µćƒ³ćƒ—ćƒ«ć§ćÆäŗˆć‚ä½œć£ć¦ćŠć„ćŸć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ē¢ŗčŖćØ恄恆ć‚Æć‚ØćƒŖć§ä½œęˆęøˆćæć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć®ēŠ¶ę…‹ć‚’ē¢ŗčŖć§ćć¾ć™ć€‚

図ļ¼šCSVćÆć‚¤ćƒ³ćƒćƒ¼ćƒˆę‰‹é †ćŒå¤šć„

図ļ¼šć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ē”»é¢

VBAć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆ

ę‰‹å‹•ć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆćÆć‚ćć¾ć§ć‚‚ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒćØć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆćŒć‚¬ćƒƒćƒćƒŖćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰ćØåž‹ćŒäø€č‡“ć—ć¦ć„ć‚‹å “åˆć«ćÆä½æćˆć¾ć™ć€‚ć—ć‹ć—ć€å®Ÿå‹™ć®äø–ē•Œć§ćÆ仄äø‹ć®ć‚ˆć†ćŖ問锌ē‚¹ćŒåøøć«ć‚ć‚Šć¾ć™ć€‚

  1. ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒć®ćƒ‡ćƒ¼ć‚æćØć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć®ćƒ†ćƒ¼ćƒ–ćƒ«ćŒäø€č‡“恗恦恄ćŖ恄äŗ‹ćÆ非åøøć«å¤šć„
  2. ć¾ćŸć€ćƒ†ćƒ¼ćƒ–ćƒ«ć®åž‹ć‚‚äø€č‡“恗恦恄ćŖ恄äŗ‹ć‚‚é »ē¹ć«ć‚ć‚‹
  3. ćć‚‚ćć‚‚ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒćÆć‚³ćƒ¼ćƒ‰ć§ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆćÆć‚³ćƒ¼ćƒ‰åć§ć‚ć‚‹äŗ‹ćŒå¤šć„ļ¼ˆå•†å“ID恗恋ćŖćå•†å“åć—ć‹ē›øꉋ恫悂ē„”恄ļ¼‰
  4. ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒćÆé™ć‚‰ć‚ŒćŸęƒ…å ±ć—ć‹ćŖćć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć§ćƒ‡ćƒ¼ć‚æć‚’č£œå®Œć—ć¦ć‚ć’ć‚‹åæ…č¦ćŒć‚ć‚‹
  5. ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒć®ć‚³ćƒ¼ćƒ‰ćØć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć§ć®ć‚³ćƒ¼ćƒ‰å¤‰ę›ćŒåæ…要

ćŖ恩ćŖć©ć€‚ć“ć‚Œć‚‰ćÆVBA悒ä½æć£ć¦DAOćŖć©ć§å‡¦ē†ć‚’恗ćŖć‘ć‚Œć°ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹äŗ‹ćÆå‡ŗę„ć¾ć›ć‚“ć€‚

Docmd.Transfer悒ä½æć£ćŸäŗ‹ä¾‹

VBAć§ę‰‹å‹•ć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆćØåŒć˜äŗ‹ć‚’č”Œć„ćŸć„å “åˆć«ē”Øę„ć•ć‚Œć¦ć‚‹Access専ē”Øć®ćƒ”ć‚½ćƒƒćƒ‰ć§ć™ć€‚Excelćƒ•ć‚”ć‚¤ćƒ«ć®å “åˆć«ćÆDocmd.TransferSpreadsheet态CSVćƒ•ć‚”ć‚¤ćƒ«ć®å “åˆć«ćÆDocmd.TransferText恌恝悌恞悌ē”Øę„ć•ć‚Œć¦ć„ć¾ć™ć€‚ćŸć ć—ē“°ć‹ć„ęŒ‡å®šćÆå‡ŗę„ćŖ恄恮恧äø€ę‹¬é€£ē¶šå–ć‚Šč¾¼ćæćØć„ć£ćŸē”Ø途ćŖć©ć§åˆ©ē”Øć—ć¾ć™ć€‚ćƒ•ć‚”ć‚¤ćƒ«åć®ęŒ‡å®šćŒåæ…要ćŖ恮恧态FileDialogćŖ恩悒ēµ„ćæåˆć‚ć›ć¦å‡¦ē†ć‚’恙悋åæ…č¦ćŒć‚ć‚Šć¾ć™ć€‚

Excelćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹

Excelćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹å “åˆć«åˆ©ē”Øć—ć¾ć™ć€‚

  • FileDialogć§ćƒ•ć‚”ć‚¤ćƒ«ć‚’ęŒ‡å®šć—ć¦ćƒ‘ć‚¹ć‚’å–å¾—ć•ć›ć¦ć„ć¾ć™ć€‚
  • Scripting Runtimeć«ć¦åˆęœŸćƒ•ć‚©ćƒ«ćƒ€ć‚’ćƒ‡ć‚¹ć‚Æćƒˆćƒƒćƒ—ć«ęŒ‡å®šć•ć›ć¦ć„ć¾ć™
  • ćƒ•ć‚”ć‚¤ćƒ«ćŒéøꊞ恕悌悋ćØstrpath恫åÆ¾č±”ć®xlsxćƒ•ć‚”ć‚¤ćƒ«ć®ćƒ‘ć‚¹ćŒę ¼ē“ć•ć‚Œć¾ć™ć€‚
  • Docmd.TransferSpreadsheetć«ć¦å–ć‚Šč¾¼ćæć¾ć™ć€‚ę§‹ę–‡ćÆ仄äø‹ć®é€šć‚Šć€‚
  • ćŸć ć—ć“ć®ę§‹ę–‡ć‚’ä½æć£ćŸć‚±ćƒ¼ć‚¹ć®å “åˆć€ćƒ†ćƒ¼ćƒ–ćƒ«å“ć®ID恌ć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼ć§ć€å°šäø”Excelćƒ•ć‚”ć‚¤ćƒ«å“ć«ć‚‚IDåˆ—ćŒć‚ć‚‹å “åˆć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒć‚Øćƒ©ćƒ¼ć«ćŖć‚Šć¾ć™ļ¼ˆć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼åˆ—ćÆć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒå‡ŗę„ćŖ恄恟悁ļ¼‰
  • ć‚µćƒ³ćƒ—ćƒ«ćƒ•ć‚”ć‚¤ćƒ«å†…ć§ćÆ态ćƒŖćƒœćƒ³ć‹ć‚‰å‘¼ć³å‡ŗć—ć¦ć‚‹ć®ć§ć€é–¢ę•°ć®å¼•ę•°ć«control As IRibbonControlćŒå…„ć£ć¦ć„ć¾ć™ćŒć€é€šåøøćÆäøč¦ć§ć™ć€‚

꧋ꖇćÆ仄äø‹ć®ć‚ˆć†ćŖꄟ恘恧恙怂

  • Excelć®ćƒćƒ¼ć‚øćƒ§ćƒ³ęŒ‡å®šćÆacSpreadsheetTypeExcel9ćæćŸć„ć«ęŒ‡å®šć—ć¾ć™ćŒć€ēœē•„åÆčƒ½
  • å…ˆé ­č”Œć‚’åˆ—åć«ć™ć‚‹ę™‚ćÆtrueć®å€¤ć‚’å…„ć‚Œć¦ćŠććØ态Excel恮1č”Œē›®ćÆćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰åćØåˆ¤ę–­ć—ć¾ć™
  • å–ć‚Šč¾¼ćæć‚·ćƒ¼ćƒˆåćÆć‚·ćƒ¼ćƒˆå!ćØć„ć†å…·åˆć«ć€Œļ¼ć€ć‚’ęœ€å¾Œć«ęŒ‡å®šć—ć¾ć™

CSVćƒ•ć‚”ć‚¤ćƒ«ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹

CSVćƒ•ć‚”ć‚¤ćƒ«ē­‰ć‚’ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹å “åˆć«åˆ©ē”Øć—ć¾ć™ć€‚äŗˆć‚ä½œęˆć—ć¦ćŠć„ćŸć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć‚’利ē”Ø恙悋äŗ‹ć‚‚åÆčƒ½ć§ć™ć€‚

  • FileDialogć§ćƒ•ć‚”ć‚¤ćƒ«ć‚’ęŒ‡å®šć—ć¦ćƒ‘ć‚¹ć‚’å–å¾—ć•ć›ć¦ć„ć¾ć™ć€‚
  • Scripting Runtimeć«ć¦åˆęœŸćƒ•ć‚©ćƒ«ćƒ€ć‚’ćƒ‡ć‚¹ć‚Æćƒˆćƒƒćƒ—ć«ęŒ‡å®šć•ć›ć¦ć„ć¾ć™
  • ćƒ•ć‚”ć‚¤ćƒ«ćŒéøꊞ恕悌悋ćØstrpath恫åÆ¾č±”ć®csvćƒ•ć‚”ć‚¤ćƒ«ć®ćƒ‘ć‚¹ćŒę ¼ē“ć•ć‚Œć¾ć™ć€‚
  • Docmd.TransferTextć«ć¦å–ć‚Šč¾¼ćæć¾ć™ć€‚ę§‹ę–‡ćÆ仄äø‹ć®é€šć‚Šć€‚
  • ćŸć ć—ć“ć®ę§‹ę–‡ć‚’ä½æć£ćŸć‚±ćƒ¼ć‚¹ć®å “åˆć€ćƒ†ćƒ¼ćƒ–ćƒ«å“ć®ID恌ć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼ć§ć€å°šäø”Excelćƒ•ć‚”ć‚¤ćƒ«å“ć«ć‚‚IDåˆ—ćŒć‚ć‚‹å “åˆć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒć‚Øćƒ©ćƒ¼ć«ćŖć‚Šć¾ć™ļ¼ˆć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼åˆ—ćÆć‚¤ćƒ³ćƒćƒ¼ćƒˆćŒå‡ŗę„ćŖ恄恟悁ļ¼‰ć€‚ćŖć®ć§ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć‚’ä½æć£ć¦IDåˆ—ć‚’ć‚¹ć‚­ćƒƒćƒ—ć™ć‚‹čØ­å®šć‚’åˆ©ē”Øć—ć¦ć„ć¾ć™ć€‚
  • ć‚µćƒ³ćƒ—ćƒ«ćƒ•ć‚”ć‚¤ćƒ«å†…ć§ćÆ态ćƒŖćƒœćƒ³ć‹ć‚‰å‘¼ć³å‡ŗć—ć¦ć‚‹ć®ć§ć€é–¢ę•°ć®å¼•ę•°ć«control As IRibbonControlćŒå…„ć£ć¦ć„ć¾ć™ćŒć€é€šåøøćÆäøč¦ć§ć™ć€‚

꧋ꖇćÆ仄äø‹ć®ćØ恊悊恧恙怂

  • acImportDelimć§ć‚«ćƒ³ćƒžåŒŗåˆ‡ć‚Šć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆć—ć¾ć™ć€‚
  • ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©åć®ęŒ‡å®šćÆēœē•„åÆčƒ½ć§ć™ć€‚ä»Šå›žćÆåÆ¾č±”ć®ćƒ†ćƒ¼ćƒ–ćƒ«ćŒć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼ćŖć®ć§ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå®šē¾©ć§IDåˆ—ć‚’ć‚¹ć‚­ćƒƒćƒ—ć™ć‚‹čØ­å®šćŒå…„ć£ć¦ć„ć¾ć™ć€‚
  • å…ˆé ­č”Œć‚’åˆ—åć«ć™ć‚‹ę™‚ćÆtrueć®å€¤ć‚’å…„ć‚Œć¦ćŠććØ态csv恮1č”Œē›®ćÆćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰åćØåˆ¤ę–­ć—ć¾ć™

ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ä½æć£ćŸäŗ‹ä¾‹

ć“ć‚Œć¾ć§ć®ę‰‹ę³•ćÆćŸć å˜ē“”ć«åŒć˜å½¢å¼ć®ćƒ•ć‚”ć‚¤ćƒ«ć‚’åŒć˜å½¢å¼ć®ćƒ†ćƒ¼ćƒ–ćƒ«ć«ćŸć ęµć—č¾¼ć‚€ć ć‘ć§ć€éžåøø恫č‡Ŗē”±åŗ¦ćŒćŖć„ę§‹ę–‡ć§ć™ć€‚å®Ÿē”Øć§ćć‚‹ć‚·ćƒ¼ćƒ³ćÆ割ćØé™ć‚‰ć‚Œć¦ćć¾ć™ć€‚ä»Šå›žęē¤ŗć—ćŸå•é”Œē‚¹ć‚’ć‚ÆćƒŖć‚¢ć™ć‚‹ć«ćÆ恓恮꧋ꖇ恧ćÆ力äøč¶³ć§ć™ć€‚ćć“ć§Excel悄CSVćƒ•ć‚”ć‚¤ćƒ«ć«åÆ¾ć—ć¦ć€ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’č²¼ć‚Šć€ć‚Æć‚ØćƒŖäøŠć‚„VBAäøŠć§å‡¦ē†ć‚’ę–½ć™äŗ‹ć§č‡Ŗē”±åŗ¦ć®é«˜ć„ć‚¤ćƒ³ćƒćƒ¼ćƒˆć‚’č‡Ŗå‹•åŒ–ć™ć‚‹äŗ‹ćŒåÆčƒ½ć«ćŖć‚Šć¾ć™ć€‚ć„ćć¤ć‹ć®ę³Øꄏē‚¹ć‚‚ć‚ć‚‹ć®ć§ć€ćć‚Œć‚‰ć‚’čøć¾ćˆć¦ę§‹ēÆ‰ć™ć‚‹åæ…č¦ćŒć‚ć‚Šć¾ć™ć€‚

今回ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć®åå‰ćÆm_passionćØć„ć†åå‰ć§ä½œęˆć—ć¾ć™ć€‚

ć‚Æć‚ØćƒŖć‚’åˆ©ē”Øć—ćŸę–¹ę³•

ć‚³ćƒ¼ćƒ‰ć‚’ä½œęˆć™ć‚‹å‰ć«ć€Excelćƒ•ć‚”ć‚¤ćƒ«ćø恮ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ä½œęˆć—ć¦ćŠćć€ä½œęˆć—ćŸćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‹ć‚‰passionćƒ†ćƒ¼ćƒ–ćƒ«ćøć®ć€Œčæ½åŠ ć‚Æć‚ØćƒŖ怍悒ē”Øę„ć—ć¦ćŠć„ć¦ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆć™ć‚‹ę–¹ę³•ć§ć™ć€‚čæ½åŠ ć‚Æć‚ØćƒŖć®åå‰ćÆ怌xlsxćƒ‡ćƒ¼ć‚æčæ½åŠ ć€ćØć„ć†åē§°ć§ä½œć£ć¦ć‚ć‚Šć¾ć™ć€‚ćŸć ć—ę³Øꄏē‚¹ćØ恗恦态

  • ä½œę„­å¾Œć«ćÆćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ćÆåæ…ćšå‰Šé™¤ć—ę®‹ć•ćŖć„ć‚ˆć†ć«ć—ćŖ恄ćØć€ę¬”å›žćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ä½œęˆę™‚ć«ćƒ†ćƒ¼ćƒ–ćƒ«åćŒćƒćƒƒćƒ†ć‚£ćƒ³ć‚°ć—ć¦ć—ć¾ć„ć¾ć™ć€‚
  • ćƒ‡ćƒ¼ć‚æć®å¤‰ę›ć‚„čæ½åŠ ē­‰ćŖ恩恮ē“°ć‹ć„ä½œę„­ćÆć‚Æć‚ØćƒŖå†…ć®ćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰ć§č”Œć‚ć›ć‚‹ć‚ˆć†ć«ć—ć¾ć™ć€‚
  • IDåˆ—ćŒć‚Ŗćƒ¼ćƒˆćƒŠćƒ³ćƒćƒ¼ć§ć‚ć‚‹ćŖ悉恰态ć‚Æć‚ØćƒŖå†…ć§ID列ćÆć‚¤ćƒ³ćƒćƒ¼ćƒˆåÆ¾č±”ć‹ć‚‰å¤–ć—ć¦ćŠćć¾ć™ć€‚

  • FileDialogć§å–å¾—ć—ćŸćƒ•ć‚”ć‚¤ćƒ«ćƒ‘ć‚¹ć«åÆ¾ć—ć¦ć€Docmd.TransferSpreadsheet acLink恫恦ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ä½œęˆć—ć¾ć™ć€‚
  • å–ć‚Šč¾¼ćæć‚·ćƒ¼ćƒˆåćÆć‚·ćƒ¼ćƒˆå!ćØć„ć†å…·åˆć«ć€Œļ¼ć€ć‚’ęœ€å¾Œć«ęŒ‡å®šć—ć¾ć™
  • ćƒŖćƒ³ć‚Æć§ä½œęˆć™ć‚‹ćƒ†ćƒ¼ćƒ–ćƒ«åćØ恗恦m_passionć‚’ęŒ‡å®šć™ć‚‹
  • Docmd.Setwarning悒true恫恙悋ćØ态ć‚Æć‚ØćƒŖčæ½åŠ ę™‚ć®å•ć„åˆć‚ć›ć‚’ć‚Ŗćƒ•ć«ć™ć‚‹ć“ćØ恌åÆčƒ½ć§ć™ć€‚åæ…ćšå‡¦ē†ćŒēµ‚ć‚ć£ćŸć‚‰falseć«ć—ć¾ć—ć‚‡ć†ć€‚
  • ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ä½œęˆć—ćŸć‚‰ć€Docmd.OpenQuery恫恦态äŗˆć‚ä½œć£ć¦ćŠć„ćŸxlsxćƒ‡ćƒ¼ć‚æčæ½åŠ ć®čæ½åŠ ć‚Æć‚ØćƒŖć‚’å®Ÿč”Œć—ć¾ć™ć€‚
  • ęœ€å¾Œć®å‡¦ē†ćØ恗恦Docmd.DeleteObject恫恦m_passion恮ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’å‰Šé™¤ć—ć¦ćŠćć¾ć™ć€‚

図ļ¼šä»Šå›žćÆꄵē°”単ćŖčæ½åŠ ć‚Æć‚ØćƒŖć«ć—ć¦ć‚ć‚Šć¾ć™

DAOć‚’åˆ©ē”Øć—ćŸę–¹ę³•

ć‚Æć‚ØćƒŖ悒ä½æē”Ø恗恟ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‹ć‚‰ć®ć‚¤ćƒ³ćƒćƒ¼ćƒˆćÆćŠę‰‹č»½ćŖć®ć§ć™ćŒć€ć‚Æć‚ØćƒŖå†…ć§č‰²ć€…ćØå¤‰ę›ć‚„čæ½åŠ ć®å‡¦ē†ć‚’čؘčæ°ć—ćŖ恑悌恰ćŖ悉ćŖć„ć®ć§ć€ćƒ”ćƒ³ćƒ†ćƒŠćƒ³ć‚¹ę€§ć§ćÆåŠ£ć‚Šć¾ć™ć€‚ć¾ćŸč¤‡é›‘ćŖå¤‰ę›å‡¦ē†ē­‰ć‚’ć•ć›ćŸå “åˆć«ćÆä½•ć‚’ć—ć¦ć„ć‚‹ć®ć‹č¦‹é€šć—ć‚‚ę‚Ŗ恏ćŖć‚Šć¾ć™ć€‚ćć“ć§ć€ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć«åÆ¾ć—ć¦DAOć‚’åˆ©ē”Øć—ć¦éžåøø恫ē“°ć‹ćčæ½åŠ å‡¦ē†ć‚’č”Œć†äŗ‹ćŒåÆčƒ½ć§ć™ć€‚ć¾ćŸć€SQLꖇ悒ē›“ꎄē™ŗč”Œć•ć›ć‚‹äŗ‹ć‚‚åÆčƒ½ćŖ恮恧态äŗŗć«ć‚ˆć£ć¦ćÆ非åøø恫ē®”ē†ć®ć—ć‚„ć™ć„ć‚³ćƒ¼ćƒ‰ć«ćŖć‚Šć¾ć™ć€‚

  • ć¾ćšćÆDocmd.TransferSpreadsheet acLink恫恦ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ä½œęˆć—ć¦ćŠćć¾ć™ć€‚
  • DAOć®ćƒ‡ćƒ¼ć‚æćƒ™ćƒ¼ć‚¹ęŽ„ē¶šē”Øå¤‰ę•°ć‚’å®šē¾©ć—ć¦ć€ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ˆć®passionćƒ†ćƒ¼ćƒ–ćƒ«ćØć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒć®m_passionćƒ†ćƒ¼ćƒ–ćƒ«ć‚’ćƒ¬ć‚³ćƒ¼ćƒ‰ć‚»ćƒƒćƒˆćØć—ć¦ć‚»ćƒƒćƒˆć—ć¾ć™ć€‚
  • rst恫åÆ¾ć—ć¦Do Until rst.EOFć§ćƒ¬ć‚³ćƒ¼ćƒ‰ć®ęœ€åˆć‹ć‚‰ęœ€å¾Œć¾ć§å›žć—ć¤ć¤ć€rs恫åÆ¾ć—ć¦AddNew恫恦čæ½åŠ ć—ć¾ć™ć€‚åæ…恚rst.MoveNextć‚’å…„ć‚ŒćŖ恄ćØē„”é™ćƒ«ćƒ¼ćƒ—ć«ćŖ悋恮恧ę³Øꄏ怂
  • AddNew恮éƒØåˆ†ć§rst!ćƒ•ć‚£ćƒ¼ćƒ«ćƒ‰åć§ć‚¤ćƒ³ćƒćƒ¼ćƒˆå…ƒćƒ†ćƒ¼ćƒ–ćƒ«ć®å€¤ć‚’å–å¾—ć—ć¾ć™ćŒć€ć“ć®ę™‚ć«ę§˜ć€…ćŖå¤‰ę›å‡¦ē†ć‚’č”Œć†ćØč‰Æ恄恧恗悇恆怂
  • ęœ€å¾Œć«Docmd.DeleteObject恫恦ćƒŖćƒ³ć‚Æćƒ†ćƒ¼ćƒ–ćƒ«ć‚’å‰Šé™¤ć—ć¦ćŠćć¾ć™ć€‚
  • ć¾ćŸć€dbs.close悄nothingć«ć¦åˆ©ē”Øć—ćŸå¤‰ę•°ć‚’ć‚ÆćƒŖć‚¢ć—ć¦ćŠćć¾ć—ć‚‡ć†ć€‚

SQLć‚’åˆ©ē”Øć™ć‚‹å “åˆ

ä»Šå›žć®ć‚µćƒ³ćƒ—ćƒ«ć§ćÆ态DAO悒ä½æć£ć¦ć®ć‚¤ćƒ³ćƒćƒ¼ćƒˆćÆå«ć¾ć‚Œć¦ć„ć¾ć™ć€‚ć—ć‹ć—ä»Šå›žć®ę–¹ę³•ä»„å¤–ć«ć‚‚ć€ć‚³ćƒ¼ćƒ‰ć®äø­ć§SQLć‚’å®Ÿč”Œć—ć¦ć‚¤ćƒ³ć‚µćƒ¼ćƒˆć™ć‚‹ę–¹ę³•ć‚‚ć‚ć‚Šć¾ć™ć€‚

  • strSQL恫åÆ¾ć—ć¦SQLꖇ悒꧋ēÆ‰ć—ć¾ć™ć€‚
  • db.Execute SQL恫恦SQLć‚’å®Ÿč”Œć—ć¾ć™ć€‚

関連ćƒŖćƒ³ć‚Æ

å…±ęœ‰ć—ć¦ćæ悋ļ¼š