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

A 回答 (2件)

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
    • good
    • 0
この回答へのお礼

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

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

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


SZ=FileLen(bookpath)
で求められます。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング