MS Excel

Prosím o radu.
Potrebuji pomocí VBA ověřit, zda v určité složce existuje určitý soubor. Pokud ano, tak ho spustit v příslušné aplikaci (v mém případě DWG v AutoCadu), pokud je aplikace (AutoCad)již spuštena, tak soubor v této aplikaci zobrazit a znovu ji nezpouštět. Pokud soubor ve složce není, tak tuto složku otevřít v průzkumníku.

Děkuji.

Zaslat odpověď >

Poki(6.5.2010 23:51)#001624

Zdravim,
ten ten existence souboru je v poradku, ale tim otevrenim dokumentu si nejsem jisty...
Sub jeOPEN()

Dim fso
Dim Soubor As String
Dim Cesta As String
Dim DwgName As String
DwgName = Cesta & Soubor

Soubor = "jmeno.dwg"
Cesta = "d:\"

Set fso = CreateObject("scripting.filesystemobject")

If Not fso.FileExists(DwgName) Then
MsgBox Soubor & " nebyl nalezen.", vbInformation, "Soubor nenalezen"
Exit Sub
End If

Set acadApp = GetObject(, "AutoCAD.Application")

If Err Then
Set acadApp = CreateObject("AutoCAD.Application")
Err.Clear
End If

Set aCadDoc = acadApp.activedocument
If aCadDoc.FullName <> DwgName Then
aCadDoc.Open DwgName
End If

End Subcitovat

Jeza.m(7.5.2010 9:33)#001625

Zkusím přidat ještě jeden příklad:
Public Sub spustit()
Dim soubor As String
soubor = "D:\CPR.mdb"

If Dir(soubor) <> "" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run (soubor)
Else
MsgBox "Soubor nenalezen", vbCritical, "Chyba"
End If
End Sub
jinak třeba se bude hodit:
http://www.david-zbiral.cz/vb.htm
S pozdravem
M@citovat

paveku(7.5.2010 12:08)#001627

Díky za rady. Bohužel na PC, kde to potřebuji způsobuje řádek Set fso = CreateObject("scripting.filesystemobject") chybové hlášení Run-time error '429': AxtiveX component can't create object. Na jiném PC to nedelá. Nevíte někdo, co by mohlo být špatně. Kontroloval jsem references a tam je vše stejné.
Použil jsem radu od Jeza.m a to funguje.
Jen bych ještě potřebal variantu, když není AutoCad spuštěn, tak jeho otevření.
Díky.citovat

paveku(7.5.2010 20:58)#001628

Tak jsem to zkusil i na jiném PC. Kontrola na existenci souboru funguje v obou případech.
Otevření souboru v AutoCadu dle kodu od Pokiho bohužel nefunguje.
Ještě jsem narazil na jeden způsob otevření souboru, který funguje. Do modulu se vloží:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

a pro oteření se použije-

ShellExecute Application.hwnd, "open", DwgName, vbNullString, vbNullString, 0

Ještě bych uvítal radu dle výše uvedeného dotazu.
Díkycitovat

Téma: existence souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje