รบกวนสอบถามครับ

[Eid]

ตามโค๊ดนี้ไม่ทราบว่าจะต้องเพิ่มอย่างไรเพื่อจะให้เปิดไปที่ ไดร์ D:\Work ครับตามที่เราต้องการ
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
If f.Show Then
      Me.txtFolderPath = f.SelectedItems(1)
End If
Set f = Nothing

[PNR]

โค้ดปรับใหม่ได้แบบนี้ครับ

โค๊ด: [Select]

Dim F As FileDialog
 Set F = Application.FileDialog(msoFileDialogFilePicker)
        F.AllowMultiSelect = False
        F.InitialFileName = "D:\Work\"
If F.Show Then
      Me.txtFolderPath = F.SelectedItems(1)
End If
Set F = Nothing
โดยต้องเพิ่มในส่วนของ Reference ใส่ตัว
Microsoft Office XX Object Libary ไว้ด้วย
โค้ดจะสามารถทำงานได้