2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« インターネットからファイルをダウンロードする。 | トップページ | テキストファイルを文字順/数値順にソートするバッチファイル »

2007年4月26日 (木)

システムエラーコードからメッセージテキストを取り出す。

Excelがあれば、Win32APIのFormatMessage()を呼び出して、
システムエラーコードからメッセージテキストを取り出せます。
ExcelのApplication.ExecuteExcel4Macro()メソッドを利用します。

Set Application=CreateObject("Excel.Application")
Text="&H80070000"
Do
  Code=InputBox(Code,"Enter System Error Code",Text)
  If Code="" Then Exit Do
  If IsNumeric(Code) Then
    Code2=Code
    Text=Application.ExecuteExcel4Macro("CALL(""kernel32"",""FormatMessageA"",""5JJJJCJJ"",4096,0," & CLng(Code) & ",0,""" & Space(128) & """,128,0)")
  Else
    Text=Code2
  End If
Loop

« インターネットからファイルをダウンロードする。 | トップページ | テキストファイルを文字順/数値順にソートするバッチファイル »