ACE Pro vba cho em hỏi Phương pháp Cách lấy Tên file từ Path (2 người xem)

[cuongtokyo0240]

Hiện tại em đang viết chương trình lấy tên file từ path trên VBA áp dụng cho access
khi bấm vào nút đó sẽ lấy ra tên File ra TextBox đồng thời lấy luôn cả đường dẫn Path
Vậy Cho em hỏi Bây giờ em muốn lấy tên file từ Path thì làm thế nào vậy ace chỉ giúp em với

Dưới đây là chương Trinh lấy Path ra textbox em
Private Sub button_Click()
With Application.FileDialog(msoFileDialogOpen)
.Title = "ファイルの選択"
.Filters.Clear
.Filters.Add "すべてのファイル", "*.*"
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
.InitialFileName = CurrentProject.Name
If .Show = -1 Then
Me!FILE_PATH = .SelectedItems(1)
Me!FILE_NAME = ?
End If
End With
End Sub

 

[be_09]

Hiện tại em đang viết chương trình lấy tên file từ path trên VBA áp dụng cho access
khi bấm vào nút đó sẽ lấy ra tên File ra TextBox đồng thời lấy luôn cả đường dẫn Path
Vậy Cho em hỏi Bây giờ em muốn lấy tên file từ Path thì làm thế nào vậy ace chỉ giúp em với

Dưới đây là chương Trinh lấy Path ra textbox em
Private Sub button_Click()
With Application.FileDialog(msoFileDialogOpen)
.Title = "ファイルの選択"
.Filters.Clear
.Filters.Add "すべてのファイル", "*.*"
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
.InitialFileName = CurrentProject.Name
If .Show = -1 Then
Me!FILE_PATH = .SelectedItems(1)
Me!FILE_NAME = ?
End If
End With
End Sub

Bạn hỏi bài có 2 vấn đề sai:
1/ Hỏi về Access hay Excel.
2/ Hỏi về code thì phải viết bài trong Box Lập trình.
Sao có cái vụ chơi tiếng Nhật vào nữa?

 

[cuongtokyo0240]

Bạn hỏi bài có 2 vấn đề sai:
1/ Hỏi về Access hay Excel.
2/ Hỏi về code thì phải viết bài trong Box Lập trình.
Sao có cái vụ chơi tiếng Nhật vào nữa?

1-em hỏi về vba cho access anh ạ
2- cái tiếng nhật nó chỉ là đặt tên thôi anh à . nó không liên quan gì đâu ạ

 

[Hau151978]

1-em hỏi về vba cho access anh ạ
2- cái tiếng nhật nó chỉ là đặt tên thôi anh à . nó không liên quan gì đâu ạ

Mình mù tịt Access bạn sửa lại cho phù hợp với VB Acces nhé.
Sau khi chọn file thì .SelectedItems(1) sẽ lưu chuỗi chứa đường dẫn và file được chọn. Ví dụ như sau:

Dim s As String, i As Long
s= .SelectedItems(1)
i= InStrRev(s, "\")
FileName= Right(s, Len(s) - i)
FilePath= Left(s, i)

 

[befaint]

Cứ động đến file/folder thì nghĩ ngay tới FileSystemObject cho tiện...

 

[VetMini]

Nếu ta nghĩ rằng filename là cái phần sau dấu chéo trái "\" cuối cùng trong filepath thì có ít nhật là vài cách lấy nó ra
Cách 1:
dummy = Split(filepath, "\")
filename = dummy(Ubound(dummy))
Cách 2:
filename = Trim(Right(Replace(filepath, "\", Space(50)), 50))

Ếch với pờ rồ, rõ chán.

 

[cuongtokyo0240]

Nếu ta nghĩ rằng filename là cái phần sau dấu chéo trái "\" cuối cùng trong filepath thì có ít nhật là vài cách lấy nó ra
Cách 1:
dummy = Split(filepath, "\")
filename = dummy(Ubound(dummy))
Cách 2:
filename = Trim(Right(Replace(filepath, "\", Space(50)), 50))

Ếch với pờ rồ, rõ chán.

công nhận là cũng nhiều cách lấy ra thật a à . lấy chuỗi sau dấu \ băng hàm Mid ( chuỗi, bắt đầu [độ dài ] )
Private Sub Button_Click()
Dim FileName As Long
With Application.FileDialog(msoFileDialogOpen)
.Title = "ファイルの選択"
.Filters.Clear
.Filters.Add "すべてのファイル", "*.*"
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
.InitialFileName = CurrentProject.Name
If .Show = -1 Then
Me!FILE_PATH = .SelectedItems(1)
FileName = InStrRev(Me!FILE_PATH, "\")
Me!FILE_NAME = Mid(Me!FILE_PATH, FileName + 1)
End If
End With
End Sub

Bài đã được tự động gộp: 24/6/18

Mình mù tịt Access bạn sửa lại cho phù hợp với VB Acces nhé.
Sau khi chọn file thì .SelectedItems(1) sẽ lưu chuỗi chứa đường dẫn và file được chọn. Ví dụ như sau:

Dim s As String, i As Long
s= .SelectedItems(1)
i= InStrRev(s, "\")
FileName= Right(s, Len(s) - i)
FilePath= Left(s, i)

dùng hàm mid cũng dc anh à