Question

我正在尝试创建一个将.xls文件导入其他电子表格的宏。唯一的问题是这个文件直接存储在Dated文件夹中，所以每次我需要从不同的文件中提取它。有没有办法获得框，提示您要求该特定文件夹。文件名一直相同。感谢

澄清：日期文件夹是：K：......... \ 2016-01-18（示例）\“fileName.xls” 所以我需要一个框，它会以“yyyy-mm-dd”格式提示日期从上面的目的地调出正确的文件夹，然后用于拉出特定的（常量）＆＃34; fileName.xls＆＃34;

Answer 1

以下功能将执行此操作。 fileLoc是文件夹的完全限定路径，fileMain是文件名（注意，代码将通配符这个），扩展名很明显（。然后扩展名，允许再次使用通配符）：

Public Function getFileName(ByVal fileLoc As String, ByVal fileMain As String, ByVal extension As String) As String
    Dim fDialog As Object
    Set fDialog = Application.FileDialog(3) ‘File picker dialog box.
    Dim varFile As Variant
    fDialog.AllowMultiSelect = False
    fDialog.Title = "Select file for input: "
    fDialog.InitialFileName = fileLoc + "*" + fileMain + "*" + extension
    If fDialog.Show = True Then
        For Each varFile In fDialog.SelectedItems
            getFileName = varFile
        Next
    End If
End Function

您也可以使用它来导航文件夹。

使用VBA将提示的xls文件导入Excel

1 个答案: