excelマクロでファイルのサイズ判定して開きたい

指定したファイルのサイズが50kb以上の場合のみ開くというマクロを作りたいのですが、どうやってファイルのサイズを取得するのかわかりません。どなたか分かる方教えてください。

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/04/21 13:49

Excel2003までの場合：

Sub macro2()
　Dim FSO As Object
　Dim myFile As Object
　Dim s As String

　Set FSO = CreateObject("Scripting.FileSystemObject")
　s = "c:\test\指定のブック.xls"
　Set myFile = FSO.GetFile(s)

　If myFile.Size / 1024 >= 50 Then
　　Workbooks.Open Filename:=s
　End If
　Set myFile = Nothing
　Set FSO = Nothing
End Sub

この回答へのお礼

正に思っていた通りに出来ました。本当にありがとうございました。

お礼日時：2011/04/21 14:42

No.2 回答者： yy_kd 回答日時： 2011/04/21 13:52

FileのFullPathを　Bookpath　とするとサイズは

SZ=FileLen(bookpath)
で求められます。

この回答へのお礼

ありがとうございました。勉強になりました。

お礼日時：2011/04/21 14:43