Příspěvky uživatele

alebo InStrRev
Range("B1") = Left(jmenoSouboru, InStrRev(jmenoSouboru, ".") - 1)

Pár vecí ma hneď napadá...

Takže v "název listu" je názov kopírovaného listu v zdroji alebo je to názov, ako sa premenuje ten 1. zdrojový nakopírovaný list (akokoľvek sa bude bude volať, ale vždy 1.), vložený v konsolidačnom súbore?

Keď sa bude kopírovať celý list, ako nový list do konsolidačného súboru, znamená to, že sa najskôr musia z konsolidačného súboru zmazať všetky ostatné listy okrem "zadání"?

Čo ak príde ku kolízii názvov listov?

Treba teda zachovať rôzne vzorce, orámovania a formáty?
To pôjde jedine makrom, a aj to iba postupným otváraním súborov.
Alebo stačí iba nakopírovať hodnoty (bez vzorcov, formátov, orámovaní) do predformátovaných stĺpcov ? (*s tým súvisí ďalšia otázka)

Je rozsah stĺpcov (teda šírka dát) vždy rovnaký, a sú stĺpce rovnako pomenované s rovnakým typom dát?

BAT bude rýchlejší, jasne to v poslednej vete píšem, ale tu sa jedná o mizivé počty, spomína 5 ks. Čo znamená, že najzdĺhavejšia časť, ktorá musí prebehnúť v oboch prípadoch, je vytvorenie zoznamu prechádzaním buniek (napr. Intersect zo Selection a/alebo SpecialCells). Pochybujem, že stačíte 2x mrknúť pri takom počte foldrov

Ale BAT bude vždy rýchlejší, to áno.

No hej, ale reálny rozdiel/prínos bude aký? Aj tak si makrom musí urobiť zoznam z vybranej oblasti, a keď už makro beží, rovno sa názov môže poslať ako parameter do MkDir. Namiesto toho aby som si niekde uložil zoznam a potom ho nakopíroval do BAT (alebo makrom vytvoril BAT súbor). Aký bude časový rozdiel vykonávania operácie (spomínaných 5 foldrov)? 0,01 sek v prospech BAT?

Vložte prílohy s príkladmi rôznorodosti zdrojových súborov a z nich požadovaného výsledku. Nejako to zautomatizujeme ...

Dospel som k tomu, že makrom to cez Msxml2.XMLHTTP, zo serverov ako Google a Msn nepôjde. Načíta totiž kód stránky s nastavením Cookies, a nie to čo dotazujeme. Powerquery to zatiaľ dokáže obísť, a kód stránky načíta. Dostať odtiaľ hodnoty je potom už jednoduché.
Bez makra, obnovuje sa každú 1 minútu.

Z akej stránky čerpáte ten kurz?

To by bolo asi lepšie urobiť makro alebo PowerQuery dotaz, aby ten kurz vytiahol zo stránky napr. niekam do bunky. Takto mi to príde divné...

EDIT:
Niečo ako napr.:
Function KURZ_AED_CZK() As Double
Dim a() As String

Application.Volatile

With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET", "https://www.kurzy.cz/kurzy-men/prevodnik-men/AED-CZK/", False
.Send
a = Split(Split(.ResponseText, "</span> CZK (česká koruna)")(0), ">")
End With

On Error Resume Next
KURZ_AED_CZK = Val(a(UBound(a)))
End Function

Môžete taký PDF priložiť?
Ak dám v PDF iba Table001, tak mi to načíta iba časť, ak dám Page001 tak všetko ale nezmyselne rozsekané na riadky a stĺpce.
Záleží na Vašom konkrétnom druhu PDF.

Nejaký príklad som urobil, ale tento "browser" má veľké obmedzenia (skripty, cookies, nezatvoriteľné časti stránok, nefunkčnosť...). Záleží na tom, k čomu to presne bude.

návod na YT
+ upraviť reg
na YT
ovládate makrom

Sub Pocet()
Dim Soubor As String, Hledej As String
Dim PocetVyskytu As Long

Soubor = "abc\def\ghi"
Hledej = "\"

PocetVyskytu = Len(Soubor) - Len(Replace(Soubor, Hledej, ""))
End Sub
alebo
...
PocetVyskytu = UBound(Split(Soubor, Hledej))
...

Dim Text As String, Cena As Double

Text = "objednávky činí 921,49 CZK bez DPH (1 115,10 CZK s DPH)."
Cena = Val(Replace(Split(Split(Replace(Text, " ", ""), "(")(1), "CZK")(0), ",", "."))

Normálka to filtruje...
Sub Filter()
Dim Klient As String

Klient = "Fero"
'filtrujeme tab podle 'Klient'
Worksheets("tab").ListObjects("TabHardware").Range.AutoFilter Field:=12, Criteria1:=Klient
End Sub

O ktoré parametre formátu by hlavne išlo? Iba o farbu a hrúbku písma?

Sub CommentChangeText()
Dim sOldComment As String, sNewComment As String, sFind As String, sReplace As String
Dim Cmt As Comment
Dim Bunka As Range

Set Bunka = List1.Range("A1")

sFind = 2011
sReplace = 2012

On Error Resume Next
Set Cmt = Bunka.Comment
On Error GoTo 0

If Cmt Is Nothing Then
MsgBox "Žádný komentář v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Exit Sub
End If

sOldComment = Cmt.Text
sNewComment = Replace(sOldComment, sFind, sReplace)
Cmt.Text Text:=sNewComment

If sOldComment = sNewComment Then
MsgBox "Nepřišlo ke změně komentáře v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)
Else
MsgBox "Byl nahrazen text :" & vbNewLine & sFind & vbNewLine & _
"novým textem :" & vbNewLine & sReplace & vbNewLine & _
"v buňce :" & vbNewLine & Bunka.Address(0, 0, xlA1, True)

End If

Set Cmt = Nothing
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

kontrola buniek

KT jako text do emailu

vlastní pás karet

vlastní pás karet

KT jako text do emailu

odkaz chyba

odkaz chyba