Coding/Script2016. 12. 20. 00:24
Excel VBA : Open file with dialog box







Sub OpenFile()
    Dim chooseFileName As Variant
    chooseFileName = Application.GetOpenFilename(FileFilter:="XML Files(*.xml), *.xml", Title:="Select XML file")

    If chooseFileName <> False Then
       Debug.Print chooseFileName
    Else
       Exit Sub
    End If
End Sub

  • MSDN Link


'Coding > Script' 카테고리의 다른 글

windows 에서 pop띄우기  (0) 2017.06.15
[PHP] 서버에 접속한 장치의 IP 얻기  (0) 2011.01.19
BASIC의 추억  (0) 2007.04.04
Posted by chobocho