| |
こんにちは
直すとしたらこんな感じです。
Sub test()
Dim openfile
Range("A1").Activate
On Error GoTo errmsg
1: ActiveCell.Offset(1, 0).Activate
If ActiveCell = "" Then
Exit Sub
Else
openfile = ActiveCell.Text
Workbooks.Open( _
FileName:="C:\ﾃﾞｽｸﾄｯﾌﾟ\" & openfile & ".xls" _
).ActiveSheet.Range("B1").Value = "あ"
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 1
End If
errmsg:
MsgBox "残念！" & openfile & "は見つかりません"
Err.Clear
GoTo 1
End Sub
この処理の場合、「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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
