如何浏览文件名列表,然后使用这些文件名打开工作簿?

时间:2018-07-23 08:57:23

标签: excel vba excel-vba

所以这是一些正在处理的代码。基本上,我想在活动工作表A列中包含一系列值,其中包含工作簿的名称和目录扩展名,我想循环进行以下操作:打开,执行某些操作然后关闭。

我的问题是:“为什么使用Workbooks.open函数通过引用这些值所在的单元格来打开工作簿却不起作用?”有办法吗?

Dim h As Integer
Dim filename As String
    For h = 1 To 1
        InitialFoldr$ = Sheets(start_sheet).Range("A1").Value
        filename = Range("A" & h).Value
        Workbooks.Open "filename"

    Next h

(顺便说一句,我知道必须明确引用文件名。在宏的前面,我将它们全部以一种格式列出,可以将其复制并粘贴到位置栏中,资源管理器将打开这些文件。如下所示:

C:\ Users \ Kyle.Cranfill \ Dropbox \ Samples Shipment Tracking \ 2018_06_samples装运PO_PL_Invoice_附件\ 2018_06_PL \ CC0355_PL53220_SE326 VENT_20180623_YES.xlsx

0 个答案:

没有答案