娘のパソコンが不調となったとかで見てくれと持ち込みがありました。PC は Windows Me です。業務用データのバックアップを外付けの HDD に取ろうとしてもうまくいきません。これはほぼ 10年前の製品です。
埒があきませんので、HDD を取り出してバラックの USB 接続でバックアップを取得しました。
A4 伝票をスキャンしたものが1,400枚余あります。一枚が大体 8MB ありますので相当な量となります。USBインターフェース経由だと 1時間くらいかかりました。
これを別の PC へ移行して、業務で使用できるうよにしてあります。
ここからがプログラムの作成で四苦八苦する羽目となりました。
データは、複数のフォルダーに分かれていますし、そのフォルダー内にも子フォルダーや孫フォルダーがあります。名前の付け方も半角や全角の名前がついて定まってはいません。同じタイトルのものも数十枚ダブってあります。
EXCEL のマクロ作成は5年ぶりでしょうか。Office 2000 からいっきに Office 2007 へのアップですし、最近のプログラミングの流儀はどうなっているのかと検索して、適当なものを拝借して作成にかかりました。しかし、FileSearch のオブジェクトはOffice 2007 では使用できないと知るまでに 2日間も経っていました。代替方法を検索しても本当に Office2007 でテストが済まされているのか疑問なコードがいくつもあります。別な検索文字で該当したものにトラックバックが多数ついているものがありましたので参考にさせてもらいましたが、こちらは100% Function macro が動きます。
フォルダー内のTIF ファイルを検索し、Excel ワークシート上にリストを作成します。そのリストにファイルへのハイパーリンク付けするものです。一度出来上がるとこちらのファイルのみを開いて、該当のタイトルにしたファイル名を見つけ、リンク部分をクリックすると該当文書が自動的に開きます。
いままではどこのフォルダーにあるのか検討を付けて探していたのが短時間で対応できるようになるはずです。 メデタシ!、メデタシ!
埒があきませんので、HDD を取り出してバラックの USB 接続でバックアップを取得しました。
A4 伝票をスキャンしたものが1,400枚余あります。一枚が大体 8MB ありますので相当な量となります。USBインターフェース経由だと 1時間くらいかかりました。
これを別の PC へ移行して、業務で使用できるうよにしてあります。
ここからがプログラムの作成で四苦八苦する羽目となりました。
データは、複数のフォルダーに分かれていますし、そのフォルダー内にも子フォルダーや孫フォルダーがあります。名前の付け方も半角や全角の名前がついて定まってはいません。同じタイトルのものも数十枚ダブってあります。
EXCEL のマクロ作成は5年ぶりでしょうか。Office 2000 からいっきに Office 2007 へのアップですし、最近のプログラミングの流儀はどうなっているのかと検索して、適当なものを拝借して作成にかかりました。しかし、FileSearch のオブジェクトはOffice 2007 では使用できないと知るまでに 2日間も経っていました。代替方法を検索しても本当に Office2007 でテストが済まされているのか疑問なコードがいくつもあります。別な検索文字で該当したものにトラックバックが多数ついているものがありましたので参考にさせてもらいましたが、こちらは100% Function macro が動きます。
フォルダー内のTIF ファイルを検索し、Excel ワークシート上にリストを作成します。そのリストにファイルへのハイパーリンク付けするものです。一度出来上がるとこちらのファイルのみを開いて、該当のタイトルにしたファイル名を見つけ、リンク部分をクリックすると該当文書が自動的に開きます。
いままではどこのフォルダーにあるのか検討を付けて探していたのが短時間で対応できるようになるはずです。 メデタシ!、メデタシ!
