Question

VB中怎么查找文件夹中的文件并且打开

在文件夹中有好多文件,如 件1_A, 件1_B, 件1_C, 在TEXT中输入件1,点击COMMAND键,就会自动打开件1_C这个文件,
文件夹的路径为D\123

Answer 1

假设你的那个TextBox 叫 TextBox1，则在VBA中可以写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path & TextBox1.Text & ".xlsx"   (后面根据文件的扩展名更改）

Workbooks.Open filename:=FileName

这是基本代码，其他的可以自由发挥。

以下是我常用的一段代码，作用是弹出一个文件夹选择框，选中文件夹后，可以自动依次打开所有文件，方便批量处理。如果不想打开很多，就把 FileDialog 里的参数改为 msoFileDialogFilePicker 即可，当然，后面的For...Next循环也就不需要了。

    Dim Path, filename, FName As String
    Dim FileNumber, i, m As Integer
    Dim fopen As FileDialog
    
    m = 1
    Set fopen = Application.FileDialog(msoFileDialogFilePicker)
    
    If fopen.Show = 0 Then Exit Sub
        
    Path = fopen.SelectedItems(1) & "\"
    Sheet2.Range("A:A").ClearContents
    
    '列出目录文件名
    filename = Dir(Path)
    Do Until filename = ""
    Sheet2.Cells(m, 1) = filename
    m = m + 1
    filename = Dir
    Loop
    
    FileNumber = WorksheetFunction.CountA(Sheet2.Range("A:A")) '文件总数
    
    For i = 1 To FileNumber
        Workbooks.Open filename:=Path & Sheet2.Cells(i, 1)
        Call Work
        ActiveWorkbook.Close True
    Next

Answer 2

假设那个TextBox 叫 TextBox1，则在VB中可以写：

dim FileName, Path as string
Path = "D:\123\"
FileName = Path & TextBox1.Text & ".xlsx" (后面根据文件的扩展名更改）

Workbooks.Open filename:=FileName