mdbをテã‚ストã«å¤‰æ›ã™ã‚‹ãƒ„ールã‚ã‚Šã¾ã™ã‹ï¼Ÿ - OKWAVEエクセルvbaã§csv変æ›ã§ãるコードを書ã„ã¦ã¿ã¾ã—ãŸã€‚ ツール→å‚ç…§è¨å®šã§ Microsoft ActiveX Data Object 2.x Library Microsoft Scripting Runtime ã«ãƒã‚§ãƒƒã‚¯ã‚’入れã¦ãŠã„ã¦ãã ã•ã„。 ã‚ã¨ã‚³ãƒžãƒ³ãƒ‰ãƒœã‚¿ãƒ³ã‚’一ã¤ä½œã‚Šãã®ã‚¯ãƒªãƒƒã‚¯æ™‚ã®ã‚¤ãƒ™ãƒ³ãƒˆã«ä»¥ä¸‹ã‚’書ãåŠ ãˆã€Œï½ï½„ｂファイルåã€ã€ã€Œãƒ†ãƒ¼ãƒ–ルåã€ã€ã€Œå‡ºåŠ›ãƒ•ã‚¡ã‚¤ãƒ«åã€ã‚’é©å®œæ›¸ãæ›ãˆã¦ã‚³ãƒžãƒ³ãƒ‰ãƒœã‚¿ãƒ³ã‚’押ã™ã¨ï¼£ï¼³ï¼¶å¤‰æ›ã§ãã‚‹ã¨æ€ã„ã¾ã™ã€‚　（コマンドボタンã®ã‚ャプションãŒæŠ½å‡ºä¸ã‹ã‚‰çµ‚了ã«å¤‰ã‚ã‚Œã°ãƒ•ã‚¡ã‚¤ãƒ«ã¯å‡ºæ¥ä¸ŠãŒã£ã¦ã„ã¾ã™ï¼‰ Private Sub CommandButton1_Click() Dim Con As New ADODB.Connection Dim Rst As New ADODB.Recordset Dim strMDBName As String Dim strSQL
{{#tags}}- {{label}}
{{/tags}}