Excel 中上級編 Win32 API 関係

TOP PAGE


 Windows がセットアップされているパスを取得
 Windows がセットアップされているパスを取得したい時はありませんか?
 Windows にはWin32 API という関数がありますのでこの機能を使います。

サンプル GetWindowsDir ダウンロード GetWindowsDir.lzh 11 KB

標準モジュールを挿入して作成してこのサンプルソースを貼り付けてください。
ボタンを作成して実行モジュールをGetWindowsDirに関連付けてください。

簡単な方法は
WPass = Environ("WINDIR")
でも、取得できます。

ただし、このファイルによる起こった、いかなる障害、損失などについて、管理人は、いっさい責任を 負わないこととします。
Win32 API 関数の取り扱いについては特に注意してください。
誤って使用するとWindows 自体が不安定になります。

 使用可能なドライブのシリアルナンバーを取得
 使用可能なドライブのシリアルナンバーを取得したい時はありませんか?
 VBAだけでは取得できませんが Windows にはWin32 API という関数がありますのでこの機能を使います。

サンプル GetDriveSerial ダウンロード GetDriveSerial.lzh 13 KB

標準モジュールを挿入して作成してこのサンプルソースを貼り付けてください。
ボタンを作成して実行モジュールをGetDriveSerialに関連付けてください。

ただし、このファイルによる起こった、いかなる障害、損失などについて、管理人は、いっさい責任を 負わないこととします。
Win32 API 関数の取り扱いについては特に注意してください。
誤って使用するとWindows 自体が不安定になります。

 使用可能なプリンター名を列挙する
 使用可能なプリンター名を列挙したい時はありませんか?
 VBAだけでは取得できませんが Windows にはWin32 API という関数がありますのでこの機能を使います。

サンプル EnumPrinter ダウンロード EnumPrinter.lzh 15 KB

標準モジュールを挿入して作成してこのサンプルソースを貼り付けてください。
ボタンを作成して実行モジュールをEnumPrinterに関連付けてください。

ただし、このファイルによる起こった、いかなる障害、損失などについて、管理人は、いっさい責任を 負わないこととします。
Win32 API 関数の取り扱いについては特に注意してください。
誤って使用するとWindows 自体が不安定になります。

 同上の機能を拡張
 使用可能なプリンターを全部表示してそこから選択することにより通常使うプリンタにして印刷プロパティを変更すると印刷に入ります。

サンプル PrinterChange ダウンロード PrinterChange.lzh 19 KB

標準モジュールを挿入して作成してこのサンプルソースを貼り付けてください。
ボタンを作成して実行モジュールをMainに関連付けてください。

エラー処理等は行っていませんので適宜改良してください。

ただし、このファイルによる起こった、いかなる障害、損失などについて、管理人は、いっさい責任を 負わないこととします。
Win32 API 関数の取り扱いについては特に注意してください。
誤って使用するとWindows 自体が不安定になります。