PC-HELP.CZ

Ahoj, můžete mi někdo poradit jak napsat ve VBA něco jako: "Když existuje soubor ("C:\Excel.xls") kopíruj buňku A1 do buňky A2"
Nefunguje mi podmínka ověření existence souboru.

Dá se to zapsat mnoha způsoby. Nejjednodušší je tento:

Sub makro()
If Dir("C:\Excel.xls") <> "" Then
Range("a2") = Range("a1")
End If
End Sub

OK, díky