ขอโทษครับมือเผลอไปโดนโพส

[Eid]

เรียนท่านอาจารย์ทุกท่านครับ
       คือผมเปิด File Dialog ได้แล้วครับ แต่พอเลือกไฟล์แล้ว ไม่แสดงที่ Text Box ที่ชื่อ txtFolderPath
ครับ ไม่ทราบว่าผมใส่โค๊ดผิดตรงไหนครับ รบกวนด้วยครับ
โค๊ดที่ปุ่ม Browse ดังนี้ครับ
Dim f As Object
    Dim fileAddress As String
    Dim strFilter As String
   
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    If f.Show Then
        fileAddress = f.SelectedItems(1)
        strFilter = "All File (*.*)" & vbNullChar
        buff = ShowOpenFileDlg(Me.Hwnd, strFilter, "D:\Stock")
        Me.txtFolderPath = buff
    End If

[PNR]

แบบนี้หรอเปล่าครับ
ใช้ Reference ตัว Microsoft Office 16.0 Object Library  ด้วยนะครับ

โค๊ด: [Select]

Dim fd As FileDialog
Dim filePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
fd.InitialFileName = "D:\Stock"
If fd.Show = True Then
    If fd.SelectedItems(1) <> vbNullString Then
        filePath = fd.SelectedItems(1)
        FollowHyperlink filePath
        Me.txtFolderPath = filePath
    End If
Else
End If
Set fd = Nothing



[Eid]

ครับผมใช่เลยครับ แต่ผมรบกวนอีกนิดนึงครับ
คือไม่ต้องให้เปิดไฟล์ Excel Stock แต่แค่เอา Path มาใส่ที่ Textbox ก็พอครับผม
รบกวนด้วยครับ
ขอบคุณครับ

[PNR]

ครับผมใช่เลยครับ แต่ผมรบกวนอีกนิดนึงครับ
คือไม่ต้องให้เปิดไฟล์ Excel Stock แต่แค่เอา Path มาใส่ที่ Textbox ก็พอครับผม
รบกวนด้วยครับ
ขอบคุณครับ

เหลือแค่นี้ครับ

Dim fd As FileDialog
Dim filePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
fd.InitialFileName = "D:\Stock"
If fd.Show = True Then
    If fd.SelectedItems(1) <> vbNullString Then
        filePath = fd.SelectedItems(1)       
        Me.txtFolderPath = filePath
    End If
Else
End If
Set fd = Nothing