古いEXCELのVBA

-

 Officeを64bitに移行して使い始めてはや数年、

1995年くらいからちょっとずつ作ってきたEXCELのVBA(.xls)をしばらく使っていなかったが、久々に使うことにした。シート自体は書き込みできるのでデータのストレージとしては使っていたが、処理系は置いたままだった。で一念発起して修正を加えようと思った

結果から言うと動かすだけなら起動時にでるエラーの箇所の「Declare」を「Declare PtrSafe」に変更するだけ。例えば

Declare  Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"  (ByVal nDrive As String) As Long

    ↓

Declare PtrSafe Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

 で取りあえず動いた。わりと、かんたんに修正が終わった。

でついでに.xlsから.xlsmにしておこうと思ったら悲劇が。オブジェクトの「CommandButton3」の数字部分がむちゃくちゃに、ボタン押しても他の機能が発動。

これ全部修正するの面倒くさいぞ。

ってなって,取りあえず。.xlsのままで利用、少しだけ延命できた。

コメント

コメントを投稿

このブログの人気の投稿

Windows10デフォルトゲートウェアに0.0.0.0が追加される

-
ルーターの設定いじっていて、結果クライアントのIPアドレスをなんやかんやといじっていたら突然特手のアドレスと通信できなくなった・・・・。困った。 ローカルネット内のIPはOK、デフォルトゲートウェイを介して接続するネットワークもOK,ところがデフォルトゲートウェイでルーティングしている別ネットワークだけNG でもNGなのは1台の端末だけ？？？？他のDHCPや固定IPの端末もちゃんとルーティングされる。つまり、この一台の問題。 まずはipconfig リースの有効期限. . . . . . . . . . .: 2017年12月5日 11:24:50 デフォルト ゲートウェイ . . . . . . . : 0.0.0.0 　　　　　　　　　　　　　　　　　　　　　　192.168.0.254 !?デフォルトゲートウェイ0.0.0.0ってなんやねん、正しいデフォルトゲートウェイも設定されているけど。 route print （あまりにも久々のwindows系のコマンドにprint routeとか打ってしまう）(改行おかしくって読みにくいけど） ネットワーク宛先 ネットマスク　ゲートウェイ インターフェイス メトリック 0.0.0.0 　　　　0.0.0.0 　リンク上 　　　 192.168.0.50　　　 281 0.0.0.0 　　　　0.0.0.0 　192.168.0.254 192.168.0.50 　　  25  0.0.0.0に投げている、それも長微妙なメトリックス281　他のメトリックスが281や331なので、多分微妙に優先されている。 「0.0.0.0 デフォルトゲートウェイ」で調べてみるとWindows7くらいからちょくちょくおこっているよう。 ここ 　や　 ここ 　で教えてもらいました。 多分ネットワーク設定で手動でデフォルトゲートウェイとかしていたせいで設定が残っていたのか。 管理者権限で「route delete」コマンドでデフォルトゲートウェイを削除し route delete 0.0.0.0 mask 0.0.0.0 正しいデフォルトゲートウェイを追加 route add 0.0.0.0 mask 0.0.0.0 192.168.0.254
続きを読む

iOS VLC でSMB共有できなかった点について

-
 iOS版 VLCでずっとNAS上のファイルを再生したいたのだが、なにかのタイミングでNASにアクセスできなくなった。認識はできるがアカウントとパスが通らない。NASはAS4004Tでタイミング的にはGuestアカウントが有効になっていたのを無効にした時点が怪しい。まあ、NASの設定的には接続の最低設定がSMB2で上位がSMB3になっているので大丈夫だと思っていた。 ちなみにiOS版のVLCがSMB2に対応したのは Ver.3.1.8(2019.4.11)の時点でである。なので大丈夫だと思っていたのだが、どうも違った。 結果としてiOS版VLCのバージョンアップされて接続可能となった。 3.2.13（2020年10月22日） · Add support for SMBv3 · Fix authentication regression with SMBv2 servers · Fix login to Box.com
続きを読む

無線LANルータの選択肢が、NEC Aterm　静的ルーティングできない問題

-
2020.1.16「  楽天BIGでNEC Aterm WG2600HSを買った．(2)　静的ルーティングができない 」からの問題Atermで静的ルーティングできない問題の現状 WX6000HP　2020年 1月23日　静的ルーティング可　価格.com平均　3万円 WX3000HP　2020年 5月中旬　静的ルーティング 不可　 価格.com平均　1万円 WG2600HP3　2018年 7月 5日　静的ルーティング可　価格.com平均　1万円 WG2600HP4　2020年10月 8日　静的ルーティング 不可　 価格.com平均　9千5百円 WG2600HS2　2020年10月 8日　静的ルーティング 不可　 価格.com平均　7千7百円 WG2600HS　2019年 1月24日　静的ルーティング 不可 WG1900HP2　2018年 7月 5日　静的ルーティング 不可 WG1800HP4　2018年10月11日　静的ルーティング 不可 －－－－－－－－－ここ以下、有線のルーティング性能が微妙 WG1200HP4　静的ルーティング 不可 WG1200HP3　静的ルーティング 不可 WG1200HS4　静的ルーティング 不可 WG1200HS3　静的ルーティング 不可 静的ルーティングができるのってWX6000HPとWG2600HP3しかなくって、実質最上位のWX6000HPのみか、これからAtermは選択肢から外れるな。 家庭用回線用のルータ選び難しくなるな NTT回線の場合 V6プラスの対応が必要となるとASUSのルータは対象外になる。その他のNETGEARもあんまり選択肢がない。ホームゲートウェイをルーターにしてしまうこともできる AU回線の場合 ルーターがついてくるので、ルーターがいらない。2段ルーターになってしまう。 となると、無線LANルーターは無線子機としてネットワークにぶら下げるだけか。
続きを読む