0

こんにちは、複数のワークブックを開くコードを思いつきました。コードは

Sub OPEN_hari()
Dim r As Long
For r = 1 To 10
    Workbooks.Open Filename:=Sheet2.Cells(r, 1).Value
Next r
End Sub

ただし、ここでの問題は、ワークブック ファイルのパスが 3 つのセル ((1,1) (2,1) (3,1)) しかない場合、"" ファイルを開くことができないというエラー メッセージがスローされることです。このマクロを作成して、言及されているファイルのみをエラー メッセージなしで開くにはどうすればよいですか。私はこれの初心者なので、どんな助けも大歓迎です

4

1 に答える 1

1

必要なものを取得するには、次の 2 つの方法があります。

  1. 無限ループを実行して、セルが空であることを確認します。

    Dim i as Long: i = 0 

While Not IsEmpty(Sheet1.Cells(i + 1, 1)) 'assuming the value is in Column A
    'your code
    i = i + 1 
Wend

  2. 使用された行数を取得しますが、セルが使用された可能性がありますが、現在はデータがない可能性があるため、チェックを含めています。

    Dim ur as Long: ur = Sheet1.UsedRange.Rows.Count
Dim i as Long

For i = 0 to (ur - 1)
     If LenB(Sheet1.Cells(i + 1, 1).Value) > 0 then
        'your code
     End If 
Next i
于 2013-04-02T18:24:41.687 に答える