ExcelVBA(ADO)
仕事柄Excelはむっちゃ使うので、VBAでやってしまおうかとも考えたけどExcelのドラッグの特性を考えてやってみたらできたので忘れないうちに残しておく。 レコードデータは、ある人に対して現年、翌年の情報を1行で持っている。これでは比較しづらいので現…
自分用メモ(最近、思い出すレスポンスが悪い) 県内5箇所の管理住宅をOracle12c(11g超ってこと)でやってるが各管轄別に世帯情報や家賃をExcelにVBAで落とし込み、帳票の形で管理している。で、更新は各々でやってたが面倒なので(5箇所分)一発更新を考…
不動産情報の管理データベースで、 管理人がいるところと、いないところがある。 管理人の名前は名前テーブルで管理している。 管理人の部屋は管理人テーブルで管理している。 ある団地の部屋情報を呼び出すときに、その部屋の管理人まで呼び出そうとすると …
データ貼付時に200レコード目から、100レコード目から繰り返す現象について 貼り付け方(方法)かな?と文法を調べてみたが ・Range("A2").CopyFromRecordset Data:=rs ・Range("A2").CopyFromRecordset rs では違いがなかった。 手動では問題ないので、手動…
目的:Excel2016でVBAを利用し、Oracle12cからデータを取得し、Excelで加工する。 環境:Windows10(64bit) Excel2016(32bit) Oracle12c oo4oで問題なく取得できていたので、ADOに書き直して実行すると ORDER BY が効いていない。 SELECT 管轄, 団地コード, ・…
ADOを使用する場合、開発タブ(通常表示されていない)からVisual Basicを起動し 参照設定 - VBAProject でチェックを入れる Microsoft ActiveX Data Objects 6.0 Library ・・・・・・Excel2007 Microsoft ActiveX Data Objects 2.8 Library ・・・・・・Ex…
↓ Microsoft Query から OracleDDD を選ぶ ↓ サービス名 Oracle_DB ユーザー名 scott パスワード tiger ↓ ↓ で、必要に応じて抽出条件とか並べ替え(出力順)を指定し ↓ これをマクロで記録して、ソースを表示させると Sub Macro1() '' Macro1 Macro ' With …
oo4oをADOへ置きなおす。だからボタン2。 参照設定でMicrosoft ActiveX Data Objects 2.8 Libraryにチェック! Public Sub CommandButton2_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim selCmd As String'接続cn.ConnectionS…
Oracle11gで運用している○○DBと、NTT光Fletsを介して、 Windows7上のExcel2013VBAでデータを取得していた。 VBAでのDBへのアプローチはoo4oで行っていた。つまり Public Sub CommandButton1_Click() Dim oraSS As OracleInProcServer.OraSessionClass Dim or…