Příspěvky uživatele
< návrat zpět
Dobrý den,
mám makro, které uloží soubor a zároveň jeho kopii na serveru ( disk H ). Potřeboval bych zajistit, aby k přepsání souboru na serveru došlo pouze v případě, že aktuální sešit je novější než soubor na serveru. V opačném případě soubor neukládat a vypsat hlášku "Na serveru je novější verze".
Sub abk()
If Sheets("Setup").Range("B12") Then Exit Sub
Application.ScreenUpdating = False
Awb = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
On Error Resume Next
MkDir "H:\Jupiter"
On Error GoTo 0
On Error GoTo chyba
ActiveWorkbook.SaveAs Filename:="H:\Jupiter\" & ActiveWorkbook.Name, _
FileFormat:=xlExcel12, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=Awb, _
FileFormat:=xlExcel12, CreateBackup:=False
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
chyba:
MsgBox "Záloha nebyla provedena"
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Řeším konzolové aplikace ve freebasicu. Narazil jsem na problémy s češtinou. Vyrobil jsem si na to pomůcku, která by mohla být užitečná. Proto ji sem šoupnu.
Re: Třídy klávesnice
Dík moc funguje to perfektně. Asi budu muset ještě hodně studovat, abych pochopil jak to funguje, ale použít se to dá.
Dík moc,
zatím jsem neměl čas to vyzkoušet. Ozvu se jak to dopadlo
Chybička se vloudila.
Dobrý den,
potřeboval bych pomocí VBA přepínat klávesy caps lock a mumlock a možnost detekce stavu těchto kláves.
Dík, je to perfektní, možno zamknout.
Asi Takhle
Úplně jednoduše
copy - paste special - link
v češtině to bude asi
kopírovat - vložit jinak - vložit propojení
rozhodně to však nedoporučuji používat
Díky moc mi to pomohlo. Myslím že když složku nenazvu excel, office apod, že to tak nebezpečné není
Potřebuji z excelu spustit visio a předat mu hodnoty, obráceně to nepotřebuji.
Pro Opičák moc děkuji, funguje to perfektně. těm parametrům nerozumím. Jakto udělat, když těch stringů potřebuji několik ?
Pro eLCHa taky děkuji, ale DDE mi připadá ještě větší hrůza než dočasný soubor.
Dobrý den,
potřeboval bych zpřístupnit proměnnou v MS excel, konkrétně typ string v MS Visiu. Proměnná Public je přístupná pouze v dané aplikaci Uměl bych to v Excelu uložit do souboru, který si ve Visiu opět načtu, ale zdá se mi to trošku neohrabané. Nevíte někdo o lepším řešení.
Dík
Dobrý den,
Mám poměrně rozsáhlý sešit s více než 8000 řádky VBA kódu. Lze nějakým způsobem zjistit makra. která nejsou odnikud volána, abych mohl kód trochu pročistit ?
Sehnat font, který má azbuku v rozsahu kódu 0 - 255, ale to už si vygoogli.
Pravděpodobně je azbuka zapsána unicode, což znamená, že jeden znak je zapsán ve dvou bajtech a celá tabulka může mít až 65535 znaků. Tento formát CSV nepodporuje. Možná, že ruský excel má nějakou konverzi.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články