Access VBA 国税庁の法人番号簿をとりあえずAccessのテーブルにするβ

現在のところフィールド28、フリガナがインポート時スムーズに処理できません。
またこれを使用して損害をおっても当方では責任は負いません。

#国税庁からダウンロードします。
一応Unicode(UTF-8？)をダウンロードします。
最初は鳥取県など容量が小さいもので実験してもいいと思います。

#テーブル作成クエリ
便宜上東京の例を紹介します。あとは都道府県番号アンダーバー都道府県ローマ字でテーブルに名前を付けます。
仕様書は9番目からがテーブルの名称になるのでそれに従いました。
一部メモ型(長いテキストLongtext)があります。
テーブル自体は13_Tokyoという名前になります。
他の道府県はここを変えます。

```visualbasic

Sub 法人番号用テーブル作成()
Dim cDB As DAO.Database: Set cDB = CurrentDb
Dim sSQL As String, fld As DAO.Field, tdf As DAO.TableDef
Dim dRS As DAO.Recordset, aRS As ADODB.Recordset, CN As ADODB.Connection
Dim i As Long
sSQL = "Create Table [13_Tokyo]([一連番号] Long, [法人番号] Text(255) , [処理区分] Text(255) , [訂正区分] Long, [更新年月日] DateTime, [変更年月日] DateTime, [商号又は名称] Text(255) , [商号又は名称イメージID] Text(255) , [法人種別] Text(255) , [国内所在地(都道府県)] Text(255) , [国内所在地(市区町村)] Text(255) , [国内所在地（丁目番地等）] LongText, [国内所在地イメージID] Text(255) , [都道府県コード] Text(255) , [市区町村コード] Text(255) , [郵便番号] Text(255) , [国外所在地] LongText, [国外所在地イメージID] Text(255) , [登記記録の閉鎖等年月日] Text(255) , [登記記録の閉鎖等の事由] Text(255) , [承継先法人番号] Text(255) ," & vbCrLf & _
" [変更事由の詳細] LongText, [法人番号指定年月日] Text(255) , [最新履歴] Text(255) , [enName] LongText, [enPrefectureName] Text(255) , [enCityName] LongText, [enAddressOutsice] LongText,[furigana] Text(255));"
DoCmd.RunSQL sSQL
End Sub
```

###2018/04/14各都道府県ごとのテーブル作成コードです
ただし、フリガナをすてています

```visualbasic
Sub 法人番号用テーブル作成47都道府県()
Dim cDB As DAO.Database: Set cDB = CurrentDb
Dim sSQL As String, fld As DAO.Field, tdf As DAO.TableDef
Dim dRS As DAO.Recordset, aRS As ADODB.Recordset, CN As ADODB.Connection
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
For i = LBound(ar) To UBound(ar)
sSQL = "Create Table [" & Format(i + 1, "00") & "_" & ar(i) & "]([一連番号] Long, [法人番号] Text(255) , [処理区分] Text(255) , [訂正区分] Long, [更新年月日] DateTime, [変更年月日] DateTime, [商号又は名称] Text(255) , [商号又は名称イメージID] Text(255) , [法人種別] Text(255) , [国内所在地(都道府県)] Text(255) , [国内所在地(市区町村)] Text(255) , [国内所在地（丁目番地等）] LongText, [国内所在地イメージID] Text(255) , [都道府県コード] Text(255) , [市区町村コード] Text(255) , [郵便番号] Text(255) , [国外所在地] LongText, [国外所在地イメージID] Text(255) , [登記記録の閉鎖等年月日] Text(255) , [登記記録の閉鎖等の事由] Text(255) , [承継先法人番号] Text(255) ," & vbCrLf & _
" [変更事由の詳細] LongText, [法人番号指定年月日] Text(255) , [最新履歴] Text(255) , [enName] LongText, [enPrefectureName] Text(255) , [enCityName] LongText, [enAddressOutsice] LongText,[furigana] Text(255));"
DoCmd.RunSQL sSQL
Next i
End Sub
```

#CSVを解凍したフォルダにSchema.iniを作成
CSVファイルは2018年4月1日版なので20180401が入っています。
毎月変わるみたいですね。
このCSVファイルはヘッダーがありません。
コンマ区切りです。
仕様書では何か所か300字、600字の箇所があるのでMemo型を使います
とくに法人番号に影響はないのですが、型が合わないと切り捨てられます。

```Schema.ini
[13_tokyo_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)
```
＃＃ 2018/04/14追加FuriganaなしSchema
全国47都道府県の入っSchema.txtを作成します。

本当はANSIで作った方が良いです。

```visualbasic
Sub MakeShcema47()
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
Dim sr As ADODB.Stream: Set sr = New ADODB.Stream
Dim buf As String
sr.Charset = "UTF-8"
sr.LineSeparator = adCRLF
sr.Type = adTypeText
sr.Mode = adModeReadWrite
sr.Open
For i = 0 To UBound(ar)
buf = buf & "[" & Format(i + 1, "00") & "_" & ar(i) & "_all_20180401.csv]" & vbCrLf & "MaxScanrows = 0" & vbCrLf & _
"Format = CSVDelimited" & vbCrLf & _
"ColNameHeader = False" & vbCrLf & _
"FirstRowHasNames = True" & vbCrLf & _
"characterSet = Unicode" & vbCrLf & _
"col1=一連番号 long" & vbCrLf & "col2=法人番号 TEXT(255)" & "col3=処理区分 long" & vbCrLf & "col4=訂正区分 long" & vbCrLf & "col5=更新年月日 DATetime" & vbCrLf & "col6=変更年月日 DATetime" & vbCrLf & "col7=商号又は名称 TEXT(255)" & vbCrLf & "col8=商号又は名称イメージID TEXT(255)" & vbCrLf & "col9=法人種別 TEXT(255)" & vbCrLf & "col10=国内所在地（都道府県） TEXT(255)" & vbCrLf & "col11=国内所在地（市区町村） TEXT(255)" & vbCrLf & "col12=国内所在地（丁目番地等） TEXT(255)" & _
vbCrLf & "col13=国内所在地イメージID TEXT(255)" & vbCrLf & "col14=都道府県コード TEXT(255)" & vbCrLf & "col15=市区町村コード TEXT(255)" & vbCrLf & "col16=郵便番号 TEXT(255)" & vbCrLf & "col17=国外所在地 Memo" & vbCrLf & "col18=国外所在地イメージID TEXT(255)" & vbCrLf & "col19=登記記録の閉鎖等年月日 TEXT(255)" & vbCrLf & "col20=登記記録の閉鎖等の事由 TEXT(255)" & vbCrLf & "col21=承継先法人番号 TEXT(255)" & vbCrLf & "col22=変更事由の詳細 Memo" & vbCrLf & "col23=法人番号指定年月日 TEXT(255)" & vbCrLf & "col24=最新履歴 TEXT(255)" & _
vbCrLf & "col25=enName TEXT(255)" & vbCrLf & "col26=enPrefectureName TEXT(255)" & vbCrLf & "col27=enCityName Memo" & vbCrLf & "col28=enAddressOutside Memo" & vbCrLf
Next i
sr.WriteText buf, adWriteLine
sr.SaveToFile "C:\hoge:\Schematxt.txt"
sr.Close
End Sub
```
#インポート
しかし振り仮名は入りません。(2018/04/14しかし、フリガナを捨てるとインポートもスムーズ)
このため、現在はウィザードを使っています。
なのでまずテーブルを作ります。
つぎにダウンロードしたZipファイルを解凍します。
フォルダの中にSchema.iniを作ります。
アクセスで外部データテキストインポートウィザードを起動します。
左下に「設定」というのがあるので押します。
コードページをユニコード(UTF-8)にします。(文字化けした場合はShift-Jisにします)
Schemaの設定をここで変えられるみたいです。
「フィールドの情報」で一番下にfuriganaが見えていないときはfuriganaを足します。これをやらないとフィールド28がないのでエラーになり読み込めません。
OKを押します。
そのままOKを押していくと完成します。

#都道府県ごとのテーブルから取り出す関数
VBAは使用可能にしてください。
クエリの中で使える組み込み関数として用いることができます。
東京の例です。この程度なら別にVBAを使わなくてもよさそうですが、DLookUpのエラー処理が難しいのでVBAを使いました。
各県ごとに作ります。
ちょっと面倒ですが、だからと言って100万件以上あるテーブルをまとめるのもどうでしょうか。

##法人番号を検索するための関数

```visualbasic
Function strSerchCpName(corporateName As String) As String
Dim buf As String
Dim icnt As Long
buf = Replace(Replace(Replace(Replace(corporateName, "　", "", 1, -1, vbTextCompare), "（株）", "株式会社", 1, 1, vbTextCompare), "（有）", "有限会社", 1, 1, vbTextCompare), "(株)", "株式会社", 1, -1, vbTextCompare)
icnt = InStrRev(buf, "代表取締役", -1, vbTextCompare)
If icnt <> 0 Then
buf = Mid(buf, 1, icnt - 1)
ElseIf InStrRev(buf, "代表", -1, vbTextCompare) <> 0 Then
buf = Mid(buf, 1, InStrRev(buf, "代表", -1, vbTextCompare) - 1)
End If
Debug.Print buf
strSerchCpName = buf
End Funciton

```

### 47都道府県の関数を作るマクロです。(2018/04/14追加)

```visualbasic

Sub makeFunction()
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
Dim sr As ADODB.Stream: Set sr = New ADODB.Stream
Dim buf As String
sr.Charset = "UTF-8"
sr.LineSeparator = adCRLF
sr.Type = adTypeText
sr.Mode = adModeReadWrite
sr.Open
For i = LBound(ar) To UBound(ar)
Dim bu1 As String: bu1 = "Function DlookupCorporation" & Format(i + 1, "00") & "(corporatename As String)" & vbCrLf
Dim bu2 As String: bu2 = "Dim varNum" & vbCrLf & "On Error Resume Next" & vbCrLf
Dim bu3 As String: bu3 = "varNum = DLookup(""[法人番号]"", """ & Format(i + 1, "00") & "_" & ar(i) & """, """ & "[" & Format(i + 1, "00") & "_" & ar(i) & "]![商号又は名称] ="""""" & strSerchCpName(corporatename) & """""""")" & vbCrLf & "If Err.Number = 0 And IsNull(varNum) = False And IsEmpty(varNum) = False And varNum <> """" Then" & vbCrLf & "DlookupCorporation" & Format(i + 1, "00") & " = varNum" & vbCrLf & "Else" & vbCrLf & "DlookupCorporation" & Format(i + 1, "00") & " = """"" & vbCrLf & "End If" & vbCrLf & "End Function" & vbCrLf
buf = buf & bu1 & bu2 & bu3 & vbCrLf
Next
sr.WriteText buf, adWriteLine
sr.SaveToFile "C:\hoge\CorporateNumberSerchFunctionString.txt"
sr.Close
End Sub
```

## まとめて検索する関数
東京都大分だけ検索する。
同盟の会社があれば大分の最初にヒットした門を優先
以下の関数と法人用番号テーブルを作成しておいて一気に検索することができる。

```visualbasic
Function strRetNum(strSerchCpName as string) As string
If DlookupCorporation44(buf) <> "" Then
strRetNum = DlookupCorporation43(buf)
Exit Function
ElseIf DlookupCorporation13(buf) <> "" Then
strRetNum = DlookupCorporation13(buf)
Exit Function
End If
End Function
```


##東京用の関数

```visualbasic
Function DlookupCorporation13(corporatename As String)
Dim varNum
On Error Resume Next
varNum = DLookup("[法人番号]", "13_Tokyo", "[13_Tokyo]![商号又は名称] =""" & corporatename & """")
If Err.Number = 0 And IsNull(varNum) = False And IsEmpty(varNum) = False And varNum <> "" Then
DlookupCorporation13 = varNum
Else
DlookupCorporation13 = ""
End If
End Function
```

#Schema.iniと関数
##20180414追加
アクセスのカレントデータベースに47都道府県の各テーブルを作成するコード

```visualbasic

Sub 法人番号用テーブル作成47都道府県()
Dim cDB As DAO.Database: Set cDB = CurrentDb
Dim sSQL As String, fld As DAO.Field, tdf As DAO.TableDef
Dim dRS As DAO.Recordset, aRS As ADODB.Recordset, CN As ADODB.Connection
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
For i = LBound(ar) To UBound(ar)
sSQL = "Create Table [" & Format(i + 1, "00") & "_" & ar(i) & "]([一連番号] Long, [法人番号] Text(255) , [処理区分] Text(255) , [訂正区分] Long, [更新年月日] DateTime, [変更年月日] DateTime, [商号又は名称] Text(255) , [商号又は名称イメージID] Text(255) , [法人種別] Text(255) , [国内所在地(都道府県)] Text(255) , [国内所在地(市区町村)] Text(255) , [国内所在地（丁目番地等）] LongText, [国内所在地イメージID] Text(255) , [都道府県コード] Text(255) , [市区町村コード] Text(255) , [郵便番号] Text(255) , [国外所在地] LongText, [国外所在地イメージID] Text(255) , [登記記録の閉鎖等年月日] Text(255) , [登記記録の閉鎖等の事由] Text(255) , [承継先法人番号] Text(255) ," & vbCrLf & _
" [変更事由の詳細] LongText, [法人番号指定年月日] Text(255) , [最新履歴] Text(255) , [enName] LongText, [enPrefectureName] Text(255) , [enCityName] LongText, [enAddressOutsice] LongText,[furigana] Text(255));"
DoCmd.RunSQL sSQL
Next i
End Sub
```

##全国47都道府県の各検索用ユーザー定義関数を作成するコード

C:\hoge\llll.txtにユーザー定義関数を作成する。
このうち必要なものをアクセスのデータベースにコピーする。

```visualbasic

Sub makeFunction()
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
Dim sr As ADODB.Stream: Set sr = New ADODB.Stream
Dim buf As String
sr.Charset = "UTF-8"
sr.LineSeparator = adCRLF
sr.Type = adTypeText
sr.Mode = adModeReadWrite
sr.Open
For i = LBound(ar) To UBound(ar)
Dim bu1 As String: bu1 = "Function DlookupCorporation" & Format(i + 1, "00") & "(corporatename As String)" & vbCrLf
Dim bu2 As String: bu2 = "Dim varNum" & vbCrLf & "On Error Resume Next" & vbCrLf
Dim bu3 As String: bu3 = "varNum = DLookup(""[法人番号]"", """ & Format(i + 1, "00") & "_" & ar(i) & """, """ & "[" & Format(i + 1, "00") & "_" & ar(i) & "]![商号又は名称] ="""""" & strSerchCpName(corporatename) & """""""")" & vbCrLf & "If Err.Number = 0 And IsNull(varNum) = False And IsEmpty(varNum) = False And varNum <> """" Then" & vbCrLf & "DlookupCorporation" & Format(i + 1, "00") & " = varNum" & vbCrLf & "Else" & vbCrLf & "DlookupCorporation" & Format(i + 1, "00") & " = """"" & vbCrLf & "End If" & vbCrLf & "End Function" & vbCrLf
buf = buf & bu1 & bu2 & bu3 & vbCrLf
Next
sr.WriteText buf, adWriteLine
sr.SaveToFile "C:\hoge\llll.txt"
sr.Close
End Sub
```

```visualbasic

Sub MakeShcema47()
Dim i As Long
Dim ar, ia As Long: ar = Split("hokkaido,aomori,iwate,miyagi,akita,yamagata,fukushima,ibaraki,tochigi,gunma,saitama,chiba,tokyo,kanagawa,niigata,toyama,ishikawa,fukui,yamanashi,nagano,gifu,shizuoka,aichi,mie,shiga,kyoto,osaka,hyogo,nara,wakayama,tottori,shimane,okayama,hiroshima,yamaguchi,tokushima,kagawa,ehime,kochi,fukuoka,saga,nagasaki,kumamoto,oita,miyazaki,kagoshima,okinawa", ",")
Dim sr As ADODB.Stream: Set sr = New ADODB.Stream
Dim buf As String
sr.Charset = "UTF-8"
sr.LineSeparator = adCRLF
sr.Type = adTypeText
sr.Mode = adModeReadWrite
sr.Open
For i = 0 To UBound(ar)
buf = buf & "[" & Format(i + 1, "00") & "_" & ar(i) & "_all_20180401.csv]" & vbCrLf & "MaxScanrows = 0" & vbCrLf & _
"Format = CSVDelimited" & vbCrLf & _
"ColNameHeader = False" & vbCrLf & _
"FirstRowHasNames = True" & vbCrLf & _
"characterSet = Unicode" & vbCrLf & _
"col1=一連番号 long" & vbCrLf & "col2=法人番号 TEXT(255)" & "col3=処理区分 long" & vbCrLf & "col4=訂正区分 long" & vbCrLf & "col5=更新年月日 DATetime" & vbCrLf & "col6=変更年月日 DATetime" & vbCrLf & "col7=商号又は名称 TEXT(255)" & vbCrLf & "col8=商号又は名称イメージID TEXT(255)" & vbCrLf & "col9=法人種別 TEXT(255)" & vbCrLf & "col10=国内所在地（都道府県） TEXT(255)" & vbCrLf & "col11=国内所在地（市区町村） TEXT(255)" & vbCrLf & "col12=国内所在地（丁目番地等） TEXT(255)" & _
vbCrLf & "col13=国内所在地イメージID TEXT(255)" & vbCrLf & "col14=都道府県コード TEXT(255)" & vbCrLf & "col15=市区町村コード TEXT(255)" & vbCrLf & "col16=郵便番号 TEXT(255)" & vbCrLf & "col17=国外所在地 Memo" & vbCrLf & "col18=国外所在地イメージID TEXT(255)" & vbCrLf & "col19=登記記録の閉鎖等年月日 TEXT(255)" & vbCrLf & "col20=登記記録の閉鎖等の事由 TEXT(255)" & vbCrLf & "col21=承継先法人番号 TEXT(255)" & vbCrLf & "col22=変更事由の詳細 Memo" & vbCrLf & "col23=法人番号指定年月日 TEXT(255)" & vbCrLf & "col24=最新履歴 TEXT(255)" & _
vbCrLf & "col25=enName TEXT(255)" & vbCrLf & "col26=enPrefectureName TEXT(255)" & vbCrLf & "col27=enCityName Memo" & vbCrLf & "col28=enAddressOutside Memo" & vbCrLf
Next i
sr.WriteText buf, adWriteLine
sr.SaveToFile "E:\Schematxt.txt"
sr.Close
End Sub
```

##九州
###Schema.iniで九州の適当なところと東京を組み合わせる
Schema.iniと各都道府県の法人番号のCSVファイルは同じディレクトリ（フォルダー）にある。

```schema.ini
[44_Oita_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)

[43_kumamoto_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)

[45_miyazaki_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)

[13_tokyo_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)


[46_kagoshima_all_20180401.csv]
MaxScanrows=0
Format=CSVDelimited
ColNameHeader=False
FirstRowHasNames=True
CharacterSet= Unicode
col1=一連番号 long
col2=法人番号 text(255)
col3=処理区分 long
col4=訂正区分 long
col5=更新年月日 DATetime
col6=変更年月日 DATetime
col7=商号又は名称 text(255)
col8=商号又は名称イメージID text(255)
col9=法人種別 text(255)
col10=国内所在地（都道府県） text(255)
col11=国内所在地（市区町村） text(255)
col12=国内所在地（丁目番地等） text(255)
col13=国内所在地イメージID text(255)
col14=都道府県コード text(255)
col15=市区町村コード text(255)
col16=郵便番号 text(255)
col17=国外所在地 Memo
col18=国外所在地イメージID text(255)
col19=登記記録の閉鎖等年月日 text(255)
col20=登記記録の閉鎖等の事由 text(255)
col21=承継先法人番号 text(255)
col22=変更事由の詳細 Memo
col23=法人番号指定年月日 text(255)
col24=最新履歴 text(255)
col25=enName text(255)
col26=enPrefectureName text(255)
col27=enCityName Memo
col28=enAddressOutside Memo
col29=furigana text(255)
```