Excel VBA 質問スレ Part32
レス数が900を超えています。1000を超えると表示できなくなるよ。
0945デフォルトの名無しさん
2014/06/10(火) 03:33:00.72ID:hc4LiDN+Sub test()
Dim I As Integer
For I = 1 To 4
If Dir("C:\excel\data" & I & ".xlsx") <> "" Then
Workbooks.Open "C:\excel\data" & I & ".xlsx"
End If
Next I
End Sub
レス数が900を超えています。1000を超えると表示できなくなるよ。