|
ウッシ さん
早速のご教示有り難うございます。
Err.Clear なんて使い方もできるんですね。
勉強不足を痛感しています。
>この処理の場合、「On Error 〜」は使わないくてもいいと思います。
>こんな感じで、
>
>Sub test1()
> Dim openfaile As String
> Dim bk As Workbook
> Dim r As Range
>
> For Each r In Range("A2", Range("A65536").End(xlUp))
> If Not IsEmpty(r.Value) Then
> openfaile = "C:\デスクトップ\" & r.Value & ".xls"
> If Len(Dir(openfaile)) = 0 Then
> MsgBox "残念!" & openfaile & "は見つかりません"
> Else
> Set bk = Workbooks.Open(FileName:=openfaile)
> bk.ActiveSheet.Range("B1").Value = "あ"
> bk.Save
> bk.Close
> End If
> End If
> Next
>End Sub
こちらは、これからゆっくりと解読して学習させていただきます。
どうも有り難うございました。
|
|