Příspěvky uživatele
< návrat zpět
Ahoj,
v sešitu mám makro, který mi odešle sešit jako přílohu e-mailem(viz níže).Potřeboval bych to upravit tak aby se mi sešit odeslal ve formátu .pdf(teda pokud to vůbec jde)
'Uložení sešitu
Dim Adresa, Jmeno_souboru, Ulozit_jako As String
Dim Nazev As String
Nazev = Range("E4") & Range("F4") & Range("G4") & Range("H4")
Adresa = "D:\Leitz 2011\Složka zápisu\"
Jmeno_souboru = Nazev
Ulozit_jako = Adresa & Jmeno_souboru
ActiveWorkbook.SaveAs Filename:=Ulozit_jako _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Odeslání e-mailu
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "daniela.perclova@saint-gobain.com"
.CC = "marcel.tichy@saint-gobain.com"
.Subject = "Objednávka č.:" & Nazev
.Body = "Vážená paní,"
With .Attachments
.Add ThisWorkbook.FullName
End With
.Display
End With
Application.StatusBar = "Posílám e-mail!"
Set objOutlook = Nothing
Set objMail = Nothing
End Sub
Určitě lepší způsob než můj návrh. Díky za rady a držím palce v učení. Taky se budu snažit 
Koukám, že si tu dopisuji tak nějak sám 
No zkusil jsem použít selský rozum a kupodivu to funguje :
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = "D" & ":" & "\" & "Složka1" & "\" & "Složka2" & "\" & odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=nazev _
, TextToDisplay:=odkaz
Aleurčitě existuje elegantnější řešení. Tak kdyby ho někdo znal...rád se poučím!
Tak problém s příponou jsem vyřešil :
Private Sub CommandButton1_Click()
Dim odkaz As String
Dim nazev As String
Range("A1").Select
Selection.End(xlDown).Select
odkaz = ActiveCell.Value
nazev = odkaz & ".xlsx"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
nazev, TextToDisplay:= _
odkaz
End Sub
ale jaksi se nemohu dopátrat jak proměnou "nazev" začlenit do úplné cesty.... tedy D:\Složka1\Složka2\nazev.xlsx mi nefunguje 
Ahoj, tak odkaz to vytvoří, ale po kliknutí na odkaz to píše, že soubor nelze otevřít. Zřejmě je třeba mít zadaný úplný název, tedy s koncovkou.xls. A taky bych to potřeboval upravit s úplnou cestou k souboru. Soubor je totiž v jiné složce než ten s odkazem (D:\Složka1\Složka2\odkaz.xls). Poradí si s tímhle někdo?
Zdravím všechny odborníky podruhé
Potřebuji makro které mi zajistí nalezení poslední vyplněné buňky v určitém sloupci(tř.A) a do této buňky vloží odkaz na soubor.Název souboru je vždy shodný s textem v nalezené buňce. Soubor uložen třeba na C:/.
Díky za ochotu.
Problém odstraněn. Díky za nakopnutí
Zdravím všechny odborníky V přiloženém souboru odesílám sešit jako přílohu e-mailem(tlačítko "Send e-mail").
Všechno funguje až na to, že před odesláním odstraním všechny tlačítka(kromě "Send e-mail") a zamknu buňky což se daří, ale příloha v e-mailu tlačítka opět obsahuje a buňky jsou odemčené. Kdepak je zakopaný pes ??
Ahoj, tak jsem si taky vyzkoušel a obě řešení jak od RomanNTA tak od Pokiho fungují.
Tak jsem si taky dovolil nahlédnout a při testování jsem zjistil, že při ukončení výzvy zadání hesla křížkem lze vybranou buňku přepsat. Pokud se přepíše číslem, vrátí se hodnota buňky zpět. Ale písmeny lze přepsat původní záznam bez hesla.
Díky, jak jednoduché, ale kupodivu jsem tenhle kód pro otevření ext. sešitu nemohl najít.
Zdravím, potřebuji přes CommandButton otevřít jiný sešit a do něj zkopírovat nějaké hodnoty. Dejme tomu buňku A1 ze sešitu "A" do buňky A1 sešitu"B".
Cesta k sešitu "B" je: D:\Leitz 2010\Bestellung Folder 2010\B.xls. S tím kopírováním si už nějak poradím, ale nedaří se mě kód pro otevření sešitu přes tlačítko Děkuji za případné rady.
Ahoj, lze pro CommandButton přiřadit vlastnost ukotvit? To znamená,aby se mě při rolování listu neroloval zároveň s listem,tedy byl stále vidět. Díky za návrhy.
Děkuji. Fungují obě řešení.
Ahoj, v UserForm mám tlačítko, které má za úkol vyčistění všech ComboBoxů a TextBoxů, přejití na stránku "Úvod" a zavření UseForm.
Vše funguje až na vyčistění TextBoxu. Příkaz TextBox.Clear hlásí chybu.
Private Sub CommandButton2_Click()
Sheets("Úvod").Select
UserForm1.Hide
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
TextBox2.Clear
TextBox3.Clear
End Sub
Jak to opravit? Dík.
Uživatelské menu
\nMenu
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.
RSS nejnovější články