0

わかりました、タイトルは少しあいまいですが、私がやろうとしていることは次のとおりです: ファイル名の列があり、それらすべてを vba を使用して開きたいです。以下のようなものになると思いますが、何かが欠けています。ファイルの数は変わる可能性があるため、明確な範囲を使用することはできません。

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

1 に答える 1

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
于 2013-05-13T23:01:20.800 に答える