質問: Application.GetOpenFilename() とするとf-nameにはオープンしたファイルのパスを含めたファイル名が代入されます。 これをそのまま Workbooks(f-name).close とすると、パス部分が余分なのかエラーになります。 そこで、このf-nameからファイル名(ブック名)だけ切り出す方法があれば教えてください。 もしくはこのオープンからクローズまでの流れとして良いやり方があれば教えてください。
回答: Excel97の場合は、最後の『\』を探しにいく必要があると思います。下記は処理例です。 キャンセルした時のf-nameは別途処理してください。 Public Function myFileName(flName As String) Dim L As Integer For L = Len(flName) To 1 Step -1 If Mid(flName, L, 1) = "\" Then myFileName = Right(flName, Len(flName) - L) Exit For End If Next End Function