|
Keinさん
ちゃんと動作しました。他にもいろいろ応用出来そうです。
ありがとうございました!!
▼Kein さん:
>Sub 集計ファイルに出力()
> Dim WB As Workbook
> Dim Ck As Boolean
> Dim 行 As Long, 列 As Long
> Dim モデル名 As String
> Dim mybtn As Integer
>
> 行 = Range("K65536").End(xlUp).Row
> 列 = ActiveCell.Column
> モデル名 = ActiveCell.Value
> mybtn = MsgBox("モデル " & モデル名 & " を出力します")
> If mybtn = 2 Then Exit Sub
> For Each WB In Workbooks
> If LCase(WB.Name) = モデル名 & ".xls" Then
> Ck = True: Exit For
> End If
> Next
> Application.ScreenUpdating = False
> If Ck = False Then
> Workbooks.Open ThisWorkbook.Path & "\" & モデル名 & ".xls"
> ThisWorkbook.Activate
> End If
>
>概ね、このような書き出しでよいと思います。他にはエラートラップするやり方も
>ありますが。
|
|