< návrat zpět

MS Excel

Téma: sešity rss

Zaslal/a Niffki 4.11.2010 7:15

Zdravím, začínám se učit makra při práci se sešity.

Workbooks("prehled.xlsm").Close

proč mi toto nefunguje? Sešit přehled mám otevřený :-(

Zaslat odpověď >
icon Poki(4.11.2010 8:58)#002993
Poki
To je zvlastni, ten prikaz by mel fungovat, jestli tedy je opravdu ten sesit otevreny a jestli je jeho nazev takovy, jak je uvedeny...citovat
Niffki(4.11.2010 10:20)#002995
avatar
jj že, ale nejde.

pokud zadám třeba workbooks("prehledy").sheets("list1").range("A") = (jiný sešit a buňka) tak to fungujecitovat
icon Poki(4.11.2010 10:41)#002998
Poki
a nemuze to byt tim, ze jednou napises "prehled" a podruhe "prehledy" - mas skutecne to jmeno souboru spravne?citovat
Niffki(4.11.2010 11:33)#003004
avatar
mělo být tam prehled .. mám to tak spravně... no už o moc neřeším, jsem to udělal jinak...citovat
Niffki(4.11.2010 13:47)#003006
avatar
Tak mě ješte napadá.

Prosím tě jak bych mohl napsat kod, který mi zkontroluje jestli ve složce "C:\ahoj\pondělý" není už složka "práce".

Pokud tam již bude tak at mi to hodí msgbox akdyž tam nebude tak jí vytvoří.

MkDir znám...

díki moc :)citovat
icon Poki(4.11.2010 14:28)#003007
Poki
zkus tohle: Sub slozka()
Dim fso
Dim Folder As String
Folder = "C:\ahoj\pondělí\práce"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Folder) Then
MsgBox "Tato složka již EXISTUJE", vbInformation, Folder
Else
MsgBox "Tato složka NEEXISTUJE ....... hned ji vytvořím :-)", vbInformation, Folder
fso.createfolder (Folder)
End If
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje