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

Příspěvky uživatele

Ahoj, upraveno

dobrý den,
snad jsem pochopil zadání viz přílohu

dobrý den, třeba takto.
Private Sub CommandButton1_Click()

'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String

Dim rng As Range
Dim obsah As String
Dim radek As Integer, sloupec As Integer

On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)

Set rng = UsedRange
For radek = 1 To rng.Rows.Count
For sloupec = 1 To rng.Columns.Count
obsah = obsah & " " & rng.Cells(radek, sloupec).Value
Next
obsah = obsah & vbNewLine
Next

xMailBody = "Body content" & vbNewLine & vbNewLine & _
"Copy from excel sheet" & vbNewLine & vbNewLine & obsah

On Error Resume Next
With xOutMail
.To = "test@seznam.cz"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set rng = Nothing
Set xOutMail = Nothing
Set xOutApp = Nothing

End Sub

poslal jsem Vám vzkaz

poslal jsem Vám vzkaz.

pošlete ten soubor

a zkoušel jste novou verzi, kterou jsem sem nahrál, v předešlém příspěvku, jestli funguje?

tak trochu jsem to ještě předělal.

nevím přesné čím to může být. Možná zdrojové sešity nemají vždy jenom jeden list, nebo ne vždy se jmenují "Sheet0".

pokud ani teď to nebude fungovat budu potřebovat víc těch sešitů k porovnáni čím se od sebe liší. minimálně ty soubory u kterých vám to nefunguje

tak koukám mně to doma taky nefungovalo

jenom připomenu , že složka kterou jste poslal je pojmenovaná jako "Download", kde v příkazu jste měl "Downloads", takže teď nevím které je správně.

upravit když tak cestu v řadku viz níže pak už snad bude dobrý

z
cestaSesitu = "C:\Users\OVRotating\Downloads\" & Dir(Sesit)
na
cestaSesitu = "C:\Users\OVRotating\Downloads\" & Dir("C:\Users\OVRotating\Downloads\" & Sesit)

Přidal jsem nové tlačítko s novým makrem.
Pokud bude pokaždé jenom jeden soubor od každého sešitu ve složce "Download" tak by to mělo fungovat.

Ale, pokud se tam průběžné přidávají další s novým datumem a časem, tak to bude chtít řešit jinak. Někde se do sešitu bude muset ukládat názvy posledných kopírovaných souborů, aby makro vědělo které soubory již byly zkopírované. Pak je otázka jestli před kopírováním mazat již uložená data nebo je kopírovat pod ně.

Zdravím,

nevím jestli jsem správně pochopil zadání, mám pár otázek.
- všechny soubory které chcete otevřít máte v jedné složce? "C:\Users\OVRotating\Downloads"
- chcete načíst všechny soubory z této složky od poslední, která byla už načtena, nebo vždy jenom jeden soubor?
- v jakém tvaru je ten den a čas?
- je možnost sem hodit nějaký demo sešit klidně bez dat abych mohl makro upravit?
děkuji

třeba

Range("A1").Select

vložit do "Makro3" jako poslední řádek, nad "End Sub"

určitě dalo, ale bylo by lepší sem hodit ten sešit.
abych viděl jak je veliká tabulka a kolik dalších listu jsou ještě v sešite krom měsíců.
pokud jsou tabulky stejné ve všech listech stačí jeden měsíc

místo "průměru" použít spíš "součin.skalární" viz přílohu

Omlouvám se za špatně pochopené zadaní.
tak snad teď to bude lepší.

podle barvy jsem to nedal, protože se to váže na datum.(podle mě to stačí, ale můžu se mýlit )

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse