Const dsn = "orcl" ' dsn Const user = "SCOTT" ' user Const pass = "tiger" ' pass Sub import() Dim conn As Object Dim rec As Object Dim tableName As String Dim strSQL As String DoCmd.SetWarnings False Set conn = CreateObject("ADODB.Connecti…

Const dsn = "orcl" ' dsn Const user = "SCOTT" ' user Const pass = "tiger" ' pass Sub import() Dim conn As Object Dim rec As Object Dim tableName As String Dim strSQL As String DoCmd.SetWarnings False Set conn = CreateObject("ADODB.Connecti…

前提条件 Oracle Instant Client がインストールされていること。 インストール手順↓ Excel 2007 + Oracle Instant Client で Oracleデータベースにアクセスしてみる - ablog 手順 tnsnames.ora の設定を行う C:\Program Files\instantclient_10_2\tnsnames.…