Question

我有一些代码会将存储在文件夹中的文件逐个添加到组合框中，但是当我运行代码并使用组合框时，所有名称都会显示其文件扩展名（.accdb）。有没有办法解决这个问题？谢谢你的帮助。

这是我用来将项目添加到组合框中的代码。

 Private Sub Form_Load()

Dim FSOtry As FileSystemObject
Dim SourceFolder As Folder
Dim FileItem As File

Set FSOtry = New FileSystemObject
Set SourceFolder = FSOtry.GetFolder("C:\Users\melhani\Downloads\backendDBS")

For Each FileItem In SourceFolder.Files
    comboTry.AddItem (FileItem.Name)

    Next FileItem

End Sub

Answer 1

将comboTry.AddItem (FileItem.Name)更改为：

comboTry.AddItem Left(FileItem.Name, InStrRev(FileItem.Name, ".") - 1)

Answer 2

你可以使用这个花哨的表达：

comboTry.AddItem (StrReverse(Split(StrReverse(FileItem.Name), ".", 2)(1)))

更新组合框vba访问中的项目名称

2 个答案: