打开存储在单元格中的值的文件

Question

好的标题有点含糊不清，但我想做的是以下内容： 我有一列文件名，我想用vba打开它们。我假设它会像我下面的东西，但我错过了一些东西。文件数量可以更改，因此我无法使用明确的范围。

For each cl in workbookC.worksheets("sheet1").range("A"). If cl.value <> "" then. Open (filename="cl.value"). End if. Next cl

Answer 1

以下代码应该有效。请注意，我建议不仅要确保单元格不是空白，还要在尝试打开之前检查文件是否存在使用FileSystemObject。

Dim sourceWorksheet
Set sourceWorksheet = workbookC.Worksheets("sheet1")

Dim row
For row = 1 To 10       'rows containing filenames
    If sourceWorksheet.Cells(row, 1).Value <> "" Then
        Dim xlwb
        Set xlwb = Workbooks.Open(sourceWorksheet.Cells(row, 1).Value)
            'do stuff
        xlwb.Close
    End If
Next