読者です 読者をやめる 読者になる 読者になる

一所懸命に手抜きする

監査の仕事をしています。ITを利用し、良い意味で「手抜き」することは効率化と精度アップに役立つと思うんです。部下への引き継ぎのためにまずは諸々頭から引っ張り出そうとブログを始めました。

[ Main ]  [ 別館 ]
当ブログで取り上げられている事案やデータベース、人物等はすべてフィクションです。

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
 活用してください。

広告を非表示にする