ファイルの有無を調べる ― 2009/09/15 08:16
久々ExcelVBAネタです。
毎日仕事でExcelを使いまくっているKJです。
あまりにExcelばかりやっているので仕事上必要な処理は何でもExcelでできてしまうと勘違いしてしまいそうです。(決してExcelですべてが出来るわけではありません。他のツールを使ったほうが効率的なものがたくさんあります。)
さらにすべてのものがExcelでできているのではないかと変な幻想にとらわれそうな気も。(決してオムスビやCokeはExcelではできていません。)
しかし何か新しく処理しなければならないものが目の前に現れるとすべてExcelでやってしまおうとして、まずは新しいbookを開いていしまうのは事実です。Excelを3つ4つ起動して10ぐらいのbookを扱っていることもあります。そしてたまにそのまま凍るシステム。・・・がっくりうなだれて電源ボタンを押すKJ....。
Excelに侵されているのかも・・・。
さて今やっているのは、たくさんのファイルを順番に読み込んでその中のデータ一覧を作るというもの。
ファイル名は連番っぽいものなのでサクサクと大枠は出来上がったのですが、ちょっと困ったことが。ところどころその連番が抜けている場合があり、その抜けに規則性がないのです。ということでファイルの有無の確認をif文でいれてやろうと考えました。
そこで使うのがdir関数。
FileName = "\\サーバー\フォルダ\サブフォルダ\ファイル名"
' ↑実際はファイル名は変数を利用するように変形します。
If Dir(FileName) = "" Then
' ファイルがあるので読み込む処理にすすむ
Else
' ファイルがないので次のファイルのチェックを行う。
End If
ファイルの有無チェックはこんな感じですね。
さらにFor ~ Nextを組み合わせてどんどん連番ファイルを順番に処理していくようにしていきます。
明日職場でコードにこれらを組み込んでみます。
毎日仕事でExcelを使いまくっているKJです。
あまりにExcelばかりやっているので仕事上必要な処理は何でもExcelでできてしまうと勘違いしてしまいそうです。(決してExcelですべてが出来るわけではありません。他のツールを使ったほうが効率的なものがたくさんあります。)
さらにすべてのものがExcelでできているのではないかと変な幻想にとらわれそうな気も。(決してオムスビやCokeはExcelではできていません。)
しかし何か新しく処理しなければならないものが目の前に現れるとすべてExcelでやってしまおうとして、まずは新しいbookを開いていしまうのは事実です。Excelを3つ4つ起動して10ぐらいのbookを扱っていることもあります。そしてたまにそのまま凍るシステム。・・・がっくりうなだれて電源ボタンを押すKJ....。
Excelに侵されているのかも・・・。
さて今やっているのは、たくさんのファイルを順番に読み込んでその中のデータ一覧を作るというもの。
ファイル名は連番っぽいものなのでサクサクと大枠は出来上がったのですが、ちょっと困ったことが。ところどころその連番が抜けている場合があり、その抜けに規則性がないのです。ということでファイルの有無の確認をif文でいれてやろうと考えました。
そこで使うのがdir関数。
FileName = "\\サーバー\フォルダ\サブフォルダ\ファイル名"
' ↑実際はファイル名は変数を利用するように変形します。
If Dir(FileName) = "" Then
' ファイルがあるので読み込む処理にすすむ
Else
' ファイルがないので次のファイルのチェックを行う。
End If
ファイルの有無チェックはこんな感じですね。
さらにFor ~ Nextを組み合わせてどんどん連番ファイルを順番に処理していくようにしていきます。
明日職場でコードにこれらを組み込んでみます。
Pats開幕戦 GameCenterで観戦 ― 2009/09/15 09:17
仕事休みなのでNFL.com GameCenterで応援しています。
もちろんPats!を応援!
・NFL.com Bills - Patriots戦のライブ情報
http://www.nfl.com/gamecenter/2009091400/2009/REG1/bills@patriots
(↑重いですよ)
もちろんPats!を応援!
・NFL.com Bills - Patriots戦のライブ情報
http://www.nfl.com/gamecenter/2009091400/2009/REG1/bills@patriots
(↑重いですよ)