Sub ki032()
Const phn1 As String = "c:\windows\temp" '仮の保存場所

'ダイアログ表示
     fff = Application.GetOpenFilename(Title:="HTMLタグをチェックするファイル指定")
     If fff = "False" Then
        MsgBox "ファイルを１個指定して下さい"
        Exit Sub
     End If
'拡張子
    i = 0
      i = InStr(1, fff, ".", 1)
      If i > 0 Then
         ext = Mid(fff, i + 1)
      End If
      If InStr(1, ext, "htm", 1) = 0 Then
          MsgBox "拡張子「html」or「htm」以外は指定出来ません"
          Exit Sub
      End If
      
  FileCopy fff, phn1 & "\htmlcheck.csv"
  Workbooks.Open Filename:=phn1 & "\htmlcheck.csv"
  
End Sub