Příspěvky uživatele

Moc děkuji, já si vubec nevšimnul, že tam přiloha není. Nahrávám znovu.

A Ano někde to je jen o *, ale jen u PLU s fontem Free 3 of 9. To je easy, ale ty další už není sranda.

Zdravím všechny, mám velkou prosbu. Posílám náhled na VBA (v souboru), kde z čísla tvořím barcode a to mi funguje jak má. Jen bych to ted potřeboval otočit a z barcodu, udělat zpět číselnou hodnotu a ať koukám na net a hledám na googlu, tak sem vubec nic nenašel. Nejsem v tom VBA zase tak dobrý a tohle už je na mě opravdu lvl, který sám nedám. PLS není tu někdo kdo by uměl poradit? V příloze je tabulka s kompletním VBA co mám, kde jsou i kontroly atd. Ted jen přidat další část, kde by to šlo obráceně. Moc díky za pomoc....

Krásný den všem,

vím, že to sem moc nepatří, tak snad mě neukamenujete.

Řeším problém, jak do automatické odpovědi dostat datum od kdy a do kdy jsem mimo kancelář. Dle nastavení počátečního času a koncového času!

Jelikož to mám v několika jazycích, tak následně musím vše neustále upravovat a dle mě to jít musí, ale otázka je jak.

Na to jsem zatím nepřišel.

V příloze obrázek, a o ten datum 19.2.2018 my právě jde.

Moc díky.

Zdravím pánové.
mám jen spíš lehčí dotazy. Na ten první jsem odpověď našel, ale ne uplně to co bych chtěl. Ovšem stačí a funguje, jde mi jen pokud to někdo již řešil, tak jestli se podělí. Další dotaz je horší a nějak nejsem schopen napsat i v Googlu tak aby to našlo co chci, hledá to furt nesmysly :-(.

1:
Potřeboval jsem někam přidat měsíc s rokem aktuálním a chtěl jsem první písmeno u měsíce velké. Hledal jsem dlouho a nenašel, ale našel jsem jak to přidat přes funkci, díky které to funguje. Vzorec :
=VELKÁ2(HODNOTA.NA.TEXT(DNES();"mmmm rrrr")) ve VBA ActiveCell.FormulaR1C1 = "=PROPER(TEXT(TODAY(),""mmmm""))"

Otázka je jestli tohle nejde udělat tak jak jsem chtěl původně přes:
Range("I10").Value = Format(Date, "mmmm")

2
Posílám přes jednoduché makro přílohy, tady vše funguje a dovedu nastavovat dle potřeby, proto ty odkazy a mám tam i moře podmínek, ne možná elegantně, ale funguje vše jak má. Ovšem, potřeboval bych odeslat i email, který se neukládá v doručené poště a jen jednoduše to vypnout v MS Otlooku není možné. Mimo toho jednoho to jinak ukládat potřebuji.

Jde o finanční odměny, kdy samozřejmě by neměli zůstat v PC žádnné stopy. Tabulka je zaheslovaná, ale formulář co posílam ne a nejde kvůli importu heslo přidat.

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.createitem(olMailItem)
' podpis v html
With otlNewMail
.display
End With
signature = otlNewMail.htmlbody
' text zpravy v html, přidá se po zadání příkazu .htmlbody
textzpravy = zaklad.Sheets("Info & Nastavení").Range("C37").Value + "<br>" + zaklad.Sheets("Info & Nastavení").Range("C40").Value + " " + Format(Date, "mmmm yyyy.")
With otlNewMail
.To = zaklad.Sheets("Info & Nastavení").Range("C20").Value
.CC = zaklad.Sheets("Info & Nastavení").Range("C22").Value
.Subject = zaklad.Sheets("Info & Nastavení").Range("C30").Value + " - " + Format(Date, "mmmm yyyy.")
.htmlbody = "<html><body>" & textzpravy & signature 'vlastní email + podpis
.Attachments.Add ActiveWorkbook.FullName 'přidá přílohu
' buď zobrazí nebo odešle
.display ' or .send
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing

Nemá někdo zkušenosti ? Koukal jsemi na nastavovaní, třeba důvěrný email pošlu, stejne všechno možné okolo jde nastavit, ale na tohle jsem nepřišel.

Zdravím,
tak jsem zjistil, že to na mém PC funguje, ale nikomu jinému na PC to nejde. A vůbec nechápu proč. Viditelně je problém tady: (obr.-3)
Do Until .readyState = 4
DoEvents
Loop
-> změněno na tohle, u mě šlape, na jíném PC jde, ale divně. Při krokování to hodí hlášku, jinak se to tváří, jako že to jde a chybu to hodí dál. Ovšem v druhé tabulce to chybu hodí rovnou... (obr.-4)
Do While objIE.busy
DoEvents
Loop

Druhý problém je v tomto, pokud se mi povede to změnou vyřešit to nad tím, tak skončím hned na dalším :
Set a = fs.CreateTextFile("\soubor.txt", True)
a.WriteLine (.Document.Body.innerhtml)
a.Close
A tohle taky, u mě normálně šlape. Na jiném to píše chybu hned na prvním řádku (obr.-1). Tu jde opravit, pokud změním na ..\Desktom\soubor.txt. Ovšem pak to hodí chybu (obr.-2) hned na dalším řádku a tady jsem v koncích.

No katastrofa a vůbec si s tím nevím rady a ani kolegové. Je to možná v nastavení, ale jak přijít na to kde ? Přikládám ještě obrázek všech hlášek.

A MÁŠ MÉ VELIKÉ DÍKY.

Tak ten druhý příklad bylo přesně to co jsem potřeboval. Funguje 100 procentně. Sice jsem tam pozměnil pár věcí, ale to je možná tím jak to mám já psané. Nejsem moc profesionál, ale vzhledem k tomu jaký sem amatér, to asi nebude tak zlé na mě. Ovšem občas jsem v koncích a pak díky bohu za tohle fórum.

Přesně jak to mám psané a proč:

Sub test ()
Dim Shell, DesktopPath
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
ChDir DesktopPath

Tohle tam je kvůli správné cestě.

Dim objIE As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Visible = True
.navigate "vlastní odkaz"
Do Until .readyState = 4
DoEvents
Loop

Set a = fs.CreateTextFile("\soubor.txt", True)- uloží se na plochu
a.WriteLine (.Document.Body.innerhtml)
a.Close

objIE.Quit
End With

Respektivě to je jen část kódu, ono to samozřejmě pokračuje...

Každopádně ještě jednou moc děkuji za pomoc.

Taky nejde, i když tohle je aspoň něco co jsem určitě nezkoušel, tak možná se aspoň blížím k cíli.

Píše to chybu viz. obrázek.

Tak teď nechápu, zkoušel jsem to, ale to nic neuloží ? Zobrazíš jen zprávu s tím textem, to mi nepomůže.

Já potřebuji ten web uložit, v IE stačí dát ulož jako a ono to hned nabídne uložení jako něco.txt soubor. Jenže nejde mi to udělat automaticky přes makro

No je to blbé, ale je to tak.

Jsou to firemní stránky, ze speciálního programu, který se generují na intranetu. Výsledek je txt soubor a ten si pak jednoduše převedu do excelu.

Jen jsem do teď musel generovat ten soubor ručně, teď jsem přišel na toto, ale nemohu přijít na to zatracení uložení souboru.

Jinak to vše funguje perfektně.

Zdravím pánové,
mohu jen poprosit o menčí pomoc. Chtěl bych uložit otevřenou stránku z IE do souboru TXT. Vše šlape, až na to uložení. Zkouošel jsem všechno možné co jsem na netu našel a stále dokola mi to píše chybu:
Object doesn´t support this property of method.

Sub soubor()
Rem Reference to "Microsoft Internet Controls" is being used.
Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Visible = True
.navigate "odkaz"
Do Until .readyState = 4
DoEvents
Loop

.SaveAs ("D:\test.txt")

objIE.Quit
End With

Set objIE = Nothing
End Sub

Můžete poradit co dělám špatně nebo kde je chyba ?

TAK SUPER. Ještě sjem tam měl jednu chybu, ale už vím kde je problém.

Moc díky, chyběla mi tam právě toto:
Dim MyBook As String
MyBook = ActiveWorkbook.Name

Tím jsem si to jméno nastavil v době, kdy byl aktivní ten soubor a né, až později, kdy jsem dělal v jiném. A proto to házelo tu chybu.

Ještě jednou moc díky, to bylo přesně to co potřebuju. Poradit, ale ne zas moc, abych musel na to přijít aspoň trochu já.

Tak sorry, já asi psal v době, kdy jsem tam viděl jen jednu větu.

Bohužel, zkusil jsem a výsledek je tohle Run-time error 1004. Application-defined or object-defided error.

A ["&ActiveWorkbook.Name&"] takhle mě to nepustí napsat, musím zapsat takto [" & ActiveWorkbook.Name & "].

? Tak teď nevím.

Možná sem špatně napsal. Potřebuji tu proměnou v tom vzorci :
"=IF(ISERROR(VLOOKUP(RC[-2],[prevadec.xlsm]TL!R2C1:R150C5,3,FALSE)),""!"",(VLOOKUP(RC[-2],[prevadec.xlsm]TL!R2C1:R150C5,3,FALSE)))"
Jde o ten název prevadec.xlsm, který bych potřeboval měnit, podle aktuálního názvů souboru. Mě napadlo asi toto, ale to nefunguje :
"=IF(ISERROR(VLOOKUP(RC[-2],[" + Activeworkbook.name + "]TL!R2C1:R150C5,3,FALSE)),""!"",(VLOOKUP(RC[-2],[" + Activeworkbook.name + "]TL!R2C1:R150C5,3,FALSE)))" Skusil jsem i:
" & Activeworkbook.name & "

Zdravím všechny,
mám na vás prosbičku. potřebuji dosazovat do vzorce vždy název souboru, který samozřejmě není vždy stejný. U všeho ostatního, jsem to zvládnul, ale při vytváření vždy musím dosadit jeden vzoreček, který mi v tabulce něco vyhledá a pak jej později zruším a použiju data. A problém je, jak jinak zadat tento vzorec, ale sproměnou názvů souboru ? Jedná se o změnu tohoto [prevadec.xlsm] na cokoliv jiního, dle názvu sešitu. Nemělo by se jednat o nic těžkého a na internetu se pár napadů našel, ale bohužel mi ani jeden nefunguje a netuším proč.

ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-2],[prevadec.xlsm]TL!R2C1:R150C5,3,FALSE)),""!"",(VLOOKUP(RC[-2],[prevadec.xlsm]TL!R2C1:R150C5,3,FALSE)))"

Poradí někdo ?

V makru názvy řeším takto, tím jsem se jim vyhnul a vše funguje, bohužel u tohodle ne a ne přijít na řešení. prřitom je mi jasné, že je jednoduché

.
Set Prevadec = ActiveWorkbook
Prevadec.Activate

Všem moc díky za radu...

MÁM TO A FUNGUJE NA 100 PROCENT :-).

Jinak pro ostatní, pokud by to někdy někdo potřeboval, tak nakonec to je takto:

Dim sPath As String, sDB As String
Dim ws As Worksheet, lo As ListObject
Dim sNewConn As String

sPath = ThisWorkbook.Path
sDB = ThisWorkbook.Name

sNewConn = "ODBC;DSN=Excel Files;"
sNewConn = sNewConn & "DBQ=" & sPath & "\" & sDB & ";"
sNewConn = sNewConn & "DefaultDir=" & sPath & ";"
sNewConn = sNewConn & "DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"

For Each ws In ThisWorkbook.Worksheets
For Each lo In ws.ListObjects
lo.QueryTable.Connection = sNewConn
Next
Next

Mám to v Sub Auto_Open a díky tomu se mi to hned mění podle potřeby. Nakonec přidám jen pár dalších věcí, které při otevírání chci zadat.

Teda, ale že mi trvalo než jsem to našel.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje