[Excel VBA]
Dim selFile As Variant
Dim outPath As String
outPath = "f:\work\data"
Call ChDrive(Left$(outPath, 2))
Call ChDir(outPath)
selFile = Application.GetOpenFilename("ログファイル (*.log),*.log)", , "")
If selFile = False Then
Call MsgBox("ファイルが選択されませんでした", vbInformation)
Exit Sub
End If
Dim selFile As Variant
Dim outPath As String
Dim i As Integer
Dim results() As String
ReDim results(0)
outPath = ActiveWorkbook.Path
Call ChDrive(Left$(outPath, 2))
Call ChDir(outPath)
selFile = Application.GetOpenFilename("Excelファイル (*.xlsx),*.xlsx)", MultiSelect:=True)
If IsArray(selFile) Then
ReDim results(UBound(selFile))
For i = 0 To UBound(selFile) - 1
results(i) = CStr(selFile(i + 1))
Next
Else
Call MsgBox("ファイルが選択されませんでした", vbInformation)
End If
ChooseFiles = results
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.