Excel 2013からOracle 11gに接続する(OO4O)

はじめに

ExcelからOracle 11gのデータベースに接続して、データをセルに書き出すサンプルプログラムを作ってみました。

新・門外不出のOracle現場ワザエキスパートが明かす運用・管理の極意 (DB Selection)

posted with amazlet at 14.09.13

小田圭二大塚信男五十嵐建平谷敦雄宮崎博之神田達成村方仁
翔泳社
売り上げランキング: 216,008

Amazon.co.jpで詳細を見る

使用したソフト

Excel 2013
Oracle 11g

テーブルレイアウト

以下のようなテーブルを用意します。
f:id:replication:20140913214517p:plain

サンプルコード

Sub Macro1()
  Dim OraSess As Object
  Dim OraDB As Object
  Dim objRS As Object
  Set OraSess = CreateObject("OracleInProcServer.XOraSession")
  ' データベース名、ユーザID、パスワード
  Set OraDB = OraSess.OpenDatabase("orcl", "user" & "/" & "password", 0&)
  
  Dim strSql As String
  strSql = "SELECT * FROM table01 ORDER BY ID ASC"
  Set objRS = OraDB.CreateDynaset(strSql, 0&)

  ' レコードが０件でないかチェック
  If objRS.EOF = False Then
    Dim i As Integer
    i = 1
    'レコードの終わりまで繰り返し
    Cells.Clear
    Do While objRS.EOF = False

      If Not IsNull(objRS.Fields("ID").Value) Then
        ' セルにコピー
        Range("A" & i).Value = CStr(objRS.Fields("ID").Value)
        Range("B" & i).Value = CStr(objRS.Fields("NAME").Value)
        Range("C" & i).Value = CStr(objRS.Fields("FURIGANA").Value)
      End If
      
      i = i + 1

      ' カーソルを次のレコードに移動する
      objRS.MoveNext
      
    Loop
  End If
  
  ' オブジェクトの解放
  objRS.Close
  Set objRS = Nothing
  OraDB.Close
  Set OraDB = Nothing
  Set OraSess = Nothing
  
End Sub