Help us understand the problem. What is going on with this article?

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

More than 1 year has passed since last update.

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

国税庁からダウンロードします。

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

テーブル作成クエリ

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

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各都道府県ごとのテーブル作成コードです

ただし、フリガナをすてています

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で作った方が良いです。

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万件以上あるテーブルをまとめるのもどうでしょうか。

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

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追加)

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

まとめて検索する関数

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

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

東京用の関数

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都道府県の各テーブルを作成するコード

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にユーザー定義関数を作成する。
このうち必要なものをアクセスのデータベースにコピーする。

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
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)
Q11Q
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Comments
No comments
Sign up for free and join this conversation.
If you already have a Qiita account
Why do not you register as a user and use Qiita more conveniently?
You need to log in to use this function. Qiita can be used more conveniently after logging in.
You seem to be reading articles frequently this month. Qiita can be used more conveniently after logging in.
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
ユーザーは見つかりませんでした