• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

MS office 2016 pro
Excel 2016 MSO 32 bit
Win 10

sekne se to nyní i v tom původním

Set Zprava = Outapp.CreateItem(olMailItem)

Private Sub Send_mail_Click()
'On Error Resume Next
Dim Outlook As Outlook.Application
Dim Zprava As Object
Dim PDF_path As String
'PDF_path = ActiveWorkbook.Path & "\logfile.txt" '"\Objednávka.pdf"
PDF_path = "C:\EXCEL\logfile.txt" '"\Objednávka.pdf"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_path _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Set Outlook = New Outlook.Application
Set Zprava = Outlook.CreateItem(olMailItem)
Set myAttachments = Zprava.Attachments
On Error GoTo ERR1
myAttachments.Add PDF_path, olByValue, 1, ""
With Zprava
.To = Range("b1") 'adresát
.Subject = Range("b2") 'předmět
.Body = Range("b3") 'obsah
.CC = Range("b4") 'kopie mailu
.BodyFormat = olFormatPlain 'format mailu
.Display 'zobrazit okno
.Send 'odeslat
End With
GoTo konec
ERR1:
MsgBox "e-mai nebyl odeslán, něco je špatně"
MsgBox PDF_path
konec:
End Sub

Omlouvám se

Dobrý den. Dlouho jsem využívala k odesílání mailu i s přílohou outlook. Nyní používám pro připojení Edge. Nevím si rady, nejde mi odeslat přes VBA ani už i ten outlook....
Děkuji za pomoc

Celé je to špatně, bo když změníš buňku na DDD nic se neděje

Děkuji všem za radu!
A protože to bez makra nejde, obešla jsem to přes komentáře, které se otevřou v dané buňce vždy, když je aktivována přes TAB (odemčená).
Úprava je v sešitě s makrem a pak zkopírovány data včetně komentářů do sešitu bez maker, zamšený list.

Tabulka je zamčená a pomocí TAB přeskakuje postupně na odemčené buňky. Připraven výsledek s rozepsanými daty podrobně a na základě indexu dané pozice aktuální buňky či její hodnoty atd.
Jenže bez makra nemohu zadat pozici activecell v listu. Existuje řešení, např.class ale hlavně bez makra. Děkuji

Tabulka je zamčená a pomocí TAB přeskakuje postupně na odemčené buňky. Připraven výsledek s rozepsanými daty podrobně na základě indexu dané pozice aktuální buňky či její hodnoty atd.
Jenže bez makra nemohu zadat pozici activecell v listu. Existuje řešení, např.class ale hlavně bez makra. Děkuji

S velkou prosbou se obracím na všechny o pomoc s problémem, jak zjistit BEZ MAKRA aktuální pozici aktivní buňky ( řádek, sloupec ) v daném listě!
Děkuji

Máte pravdu, zbytečná komplikace.
Otevření zdrojového sešitu a načtení cca 3000 dat do dim trvalo 0,5s včetně zavření!!
Děkuji

Dobrý den.
Žádám vás o pomoc při řešení připojení - načtení dat z jiného sešitu na pozadí, bez otevření zdrojového sešitu.
Klasické propojení v listu mám
'=MAXA('C:\Excel\[data01.xlsb]List1'!A:A)
Potřebovala bych však vytvořit čerpání dat ve VBA
např. SUBTOTAL, MATCH ....
Nedaří se mi nastavit cestu k zdroj.datům ve VBA.
Děkuji za pomoc

Díky.
Žádný kód, jen si buď dokument vytisknu nebo prohlédnu a klasicky zavřu přes X křížek v okně. Bohužel dokument zmizí, ale nikoliv zmiňované menu.
Děkuji za váš čas a budu ráda, pokud by otevírání fun govalo přímo z VBA nikoli s dvojklikem na dokument, to samé při uzavření.
Budu se těšit na odpověď

Je právě to ořechové!!!!!
Zrovna to jsem potřebovala.
Mnohokrát děkuji a doporučuji ostatním programátorům si tento prográmek stáhnout.
Jinak, KLOBOUK DOLŮ, Mr.El Mosquito
Děkuji mnohokrát

POZOR!
Má to však háček. Snad kvůli paměti se mi sice zvolený soubor otevře, ale po zavření tam stále zůstává jakoby záhlaví WORDu, Acrobat reader atd.
Marně se jej snažím uzavřít, je to nejspíš v grafice, ale nevím si s tím rady.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse