Příspěvky uživatele

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.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje