Excel Forum

Code: Select all

Sub openFolder()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Application.ScreenUpdating = False
        fileFilterPattern = "Excel Files (*.xls; *.xlsx),*.xls;*.xlsx ,Text Files (*.txt; *.csv),*.txt;*.csv"
        fileToOpen = Application.GetOpenFilename(fileFilterPattern)
  If fileToOpen = False Then
        MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
  Exit Sub
  End If
End Sub

Code: Select all

Sub openFolder()
  Dim fileToOpen As Variant
  Dim fileFilterPattern As String
  Dim myPath As String 
  Application.ScreenUpdating = False
        myPath = "C:\Teacher" 
  If Not PathExist(myPath) Then MkDir (myPath)
        ChDir "C:\Teacher\"
        fileFilterPattern = "Excel Files (*.xls; *.xlsx),*.xls;*.xlsx ,Text Files (*.txt; *.csv),*.txt;*.csv"
        fileToOpen = Application.GetOpenFilename(fileFilterPattern)
  If fileToOpen = False Then
        MsgBox "คุณไม่ได้เลือกไฟล์ที่จะนำเข้า", vbOKOnly + vbInformation, "ยกเลิกการนำเข้าข้อมูล"
  Exit Sub
  End If
End Sub

Private Function PathExist(path_ As String) As Boolean
    On Error GoTo ErrNotExist
    Call ChDir(path_)
   PathExist = True
   Exit Function
ErrNotExist:
    PathExist = False
End Function

Private Function FileExist(filePath_ As String) As Boolean
    FileExist = Len(Dir(filePath_)) <> 0
End Function

Code: Select all

'Other code
Application.ScreenUpdating = False
ChDir ("C:\Teacher")
fileFilterPattern = "Excel Files (*.xls; *.xlsx),*.xls;*.xlsx ,Text Files (*.txt; *.csv),*.txt;*.csv"
'Other code