主题：如何通过‘单击菜单’向多文件列添加指定文件

一次选择多个文件，可以设计一个按钮，代码为：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.InitialDirectory  = "c:\data"
If dlg.ShowDialog = DialogResult.OK Then
    Tables("表A").Current("第一列") = String.Join(vbcr,dlg.FileNames)
End If

可以指定初始文件夹，但是不能固定文件夹。