MW211 EXIT

devlog
ExcelVBA/ファイルにデータがあるかチェック
2013年12月10日
「C:\data\excel.xls」ってファイルを判定する場合を例にする。

まず、ファイル自体があるかの判定は「Dir()」関数を使う。
この関数は、ファイルが存在すればファイル名を返すので
返り値が空文字であることでファイル不存在を確認できる。
┌──────────────────────────────────────┐
│If Dir("C:\data\excel.xls") = "" Then                                       │
│    Msgbox "ファイルが存在しない"                                           │
│End If                                                                      │
└──────────────────────────────────────┘

続いてファイルサイズの判定には「FileLen()」関数を使う。
この関数は、ファイルサイズを返すので、ずばり「0」であれば空っぽと判定できる。
┌──────────────────────────────────────┐
│If FileLen("C:\data\excel.xls") = 0 Then                                    │
│    Msgbox "ファイルが空っぽ"                                               │
│End If                                                                      │
└──────────────────────────────────────┘
分類:ExcelVBA