Skip to content

Instantly share code, notes, and snippets.

@eggist77

eggist77/getFilePathDlgExcel.vbs

Last active December 24, 2022 01:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save eggist77/5bc052f15dc8e8d1eed8d7ab8567c202 to your computer and use it in GitHub Desktop.
Save eggist77/5bc052f15dc8e8d1eed8d7ab8567c202 to your computer and use it in GitHub Desktop.
Download ZIP
hatena: 1593831099
Raw
getFilePathDlgExcel.vbs
Function getFilePathDlgExcel()
Dim excel
Set excel = CreateObject("Excel.Application")
buf = excel.GetOpenFilename("Text File,*.txt,All,*.*",1,"ファイルを選択して下さい","開く",false)
If buf <> False Then
getFilePathDlgExcel = buf
Else
WScript.Quit
End If
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment