Excel VBA 質問スレ Part52

[480 デフォルトの名無しさん 2018/03/24(土) 02:40:55.22]

Withをネストして内側から外側を参照するにはどうすればいいの？
最悪それ自身のオブジェクトを変数に保持できればいいけどできないよね？

>>456を例にとると（この場合ネストするメリットは何もないけど）
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　Dim obj As Object
　　Set obj = .
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(obj.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか
Dim N As Integer
　With CreateObject("Scripting.FileSystemObject")
　　With .GetFolder(ThisWorkbook.Path)
　For Each ff In .Files
　If LCase(..GetExtensionName(ff.Path)) = "xls" Then N = N + 1
　Next
　　End With
End With
とか