住所マスタを作成する
http://blog.goo.ne.jp/frontflug/e/c59762c2997b715f689ab5aeb45a0d90
の続き
郵便番号更新の部分が、全件読み直し(SQL)で非常に遅いので
PL/SQL化したらどうだろうかと
まず、入力ファイルをテーブルに落としこむことにしました。
CREATE TABLE ZIP_DATA
( ADRSCD VARC . . . Read more
この前の投稿記事等の
住所分解コード化ツールで、住所コードマスタを使用しているのですが、
どうやって作ったかなんですが、
①．総務省トップ > 政策 > 地方行財政 > 電子自治体 > 全国地方公共団体コード
http://www.soumu.go.jp/denshijiti/code.html
と
②．国土交通省国土政策局 国土情報課 > 位置参照情報ダウンロードサービス
http . . . Read more
' http://blog.goo.ne.jp/frontflug/e/49d77d4220a1adfaf9c2da21ad7c56b8 より続く
'③郵便番号と字名での検索
If Cells(i, 5).Value "" Then
stSQL = "SELECT COUNT(*) FROM MST_ADRS3 A3"
stSQL = stSQL & " WHER . . . Read more
Option Explicit
'+------------------------------------------------------------------------------
'| 共通変数
'| 参照設定：Microsoft Activex Data Object X.X Library が必要
'+--------------------------------------- . . . Read more
' http://blog.goo.ne.jp/frontflug/e/3ae75689d27e9048f055decfb01114fa より続く
' 異体字変換
Private Function 異体字(pAdrs As String) As String
' 仕様限界：異体字が２種類以上あるときは、対応できない
Dim k As Integer '配列添字
Dim Pat1 As . . . Read more
Option Explicit
'+------------------------------------------------------------------------------
'| 共通変数
'| 参照設定：Microsoft Activex Data Object X.X Library が必要
'+------------------------------------- . . . Read more
ORACLEの文字コード、unicodeになっていることが多くて、全角・半角の判断が難しいです。
それをEXCEL VBA上の関数では簡単に変換できるので
変換前後の相違から、全角の中に半角が混在してないかの判断は簡単です。
マクロで自動化できれば、漢字項目を指定してサーチ、
業務用に作ったのですが、どこでも使えるツールです。
Option Explicit
' ADO : 全角文字検出チ . . . Read more
Sub 不要名前定義を削除する()
Const cnsTitle = "不要名前定義削除処理"
Dim nm As Name
Dim i As Integer: i = 0
On Error Resume Next ' エラーを無視。(削除件数にカウントしてしまいます)
For Each nm In ActiveWorkbook.Names
If InStr(nm.Value, "# . . . Read more
Option Explicit
' アクティブブック全シートをテキストファイルに書き出すマクロ
Sub BOOK_To_TextFile()
Const cnsTitle = "テキストファイル出力処理"
Const cnsFilter = "テキストファイル (*.txt;*.dat),*.txt;*.dat"
Dim xlAPP As Application ' Applic . . . Read more
Option Explicit' ツール>参照設定>Microsoft ActiveX Data Objects X.X Library Dim OraCn As ADODB.Connection Dim OraRs As ADODB.Recordset Dim vSQL As VariantPublic stPass As StringPrivate Function Wai . . . Read more
Option Explicit
' テキストを規定文字数内のテキストに分割するマクロ
Sub Text_To_MultiFile()
Const cnsTitle = "テキストファイル分割処理"
Const cnsFilter = "テキストファイル (*.txt;*.dat),*.txt;*.dat"
Dim xlAPP As Application ' Applicatio . . . Read more
' http://blog.goo.ne.jp/frontflug/e/29eb5ebfe6035e23da378413dd22b012 からの続き
'==============(UserForm1)============================================
Option Explicit
'+------------------------------------ . . . Read more
'===============(標準モジュール)=====================================
Option Explicit
'+------------------------------------------------------------------------------
'| 共通変数
'| 参照設定：Microsoft Activex Data . . . Read more
' http://blog.goo.ne.jp/frontflug/e/147c405d80b4dcbe630e33b8ff4bae44 からの続き
'+------------------------------------------------------------------------------
'| イベント ：ボタン「GROUP」
'+------------------- . . . Read more
'==========(標準モジュール)======================
Option Explicit
'+------------------------------------------------------------------------------
'| 共通変数
'| 参照設定：Microsoft Activex Data Object X.X Library . . . Read more