一所懸命に手抜きする

デスクワークばかりのスポーツ嫌いで50歳も過ぎ、いよいよ足腰に衰えを感じつつある昨今。

AS/400の表説明・列説明(日本語記述)をExcelで取得するVBA

AS/400のカタログ情報

 AS/400のカタログ情報には表説明・列説明が日本語でも記載可能となっています。

表の説明に特定のキーワードを含むファイルを検索するSQL
select dbname,name,label from QSYS2.SYStables where label like '%キーワード%'

です。
 ただしこのSQLAS/400本体で実行する場合には、多くのシステムでは大文字でしか入力できないはずです。
 また、私の環境ですと、画面では正しく日本語表示できないため端末画面ではSQLもSTRQRYも使えません。ODBC経由でSQLを投げることが多くなっています。皆さんも何かしらのSQLクライアントから実行する必要があるのではないかと思います。

ExcelSQLクライアントに

 使いなれたExcelSQLクライアントにできることはすでに紹介しました。
 AS400にADO接続しSQLでデータを取得するExcelVBA - 一所懸命に手抜きする
 これを使えばExcelAS400のデータをExcelシートにダイレクトに取得できます。

日本語記述に 売掛 を含むファイルを検索するSQL
select dbname,name,label from QSYS2.SYStables where label like '%売掛%'

f:id:a_habakiri:20161230222208p:plain

実行結果

 f:id:a_habakiri:20161229220420p:plain
 活用してください。