Příspěvky uživatele

Toto by Vám malo fungovať:
Private Sub Workbook_Open()
Dim CS As String, Cesta As String, Poz1 As Long, Poz2 As Long

On Error GoTo CHYBA
With ThisWorkbook
Cesta = .Path & "\zdrojová data.xls"
With .Connections("zdrojová data").OLEDBConnection
CS = .Connection
Poz1 = InStr(1, CS, "Source=") + 6
Poz2 = Len(CS) - InStr(Poz1, CS, ";Mode=") + 1
CS = Left$(CS, Poz1) & Cesta & Right$(CS, Poz2)
.Connection = CS
.Refresh
End With
End With
Exit Sub

CHYBA:
MsgBox ("Chyba pri aktualizácii zdrojovej tabuľky :" & vbNewLine & Cesta)
End Sub

Pribalte ukážkové súbory, aby bolo vidieť štruktúru. Toto vyzerá na PowerQuery.

Doupravte si podľa seba...
Function OdstranHovadiny(Hodnota As String, Nahrad As String, Optional Odporucane = False) As String
Dim i As Byte, arrN
arrN = Array(Chr(255), "/", ":", "*", "?", "„", "<", ">", "|", "#", "%", "&", "{", "}", "\")
For i = 0 To IIf(Odporucane, UBound(arrN), 9)
Hodnota = Replace(Hodnota, arrN(i), Nahrad)
Next i
OdstranHovadiny = Hodnota
End Function

Sub pokus()
MsgBox (OdstranHovadiny("abc˙d&e?f\gh ij%", "-") & vbNewLine & OdstranHovadiny("abc˙d&e?f\gh ij%", "-", True))
End Sub

? Len keď nastavíte výšku na 30, tak sa Vám nevojde aj ten text aj Zac+Kon.

Ešte som mrkol na ten PSP1 z odkazu, pozrite si toto makro. Ale je to naprd, lebo je to nekorigované OCR z nekvalitného skenu a s dosť chybami. Vypisuje to aj slová napr. za dvojbodkou, iné významy, za lomítkom, ale pritom vynecháva prípony s pomlčkou, menšie ako 3 znaky, skratky s bodkou na konci, text v zátvorkách, dvojslovné a duplicitné slová.
Link

Sub postup()
Dim Radek As Long, Posledny As Long, Text1 As String
Radek = ActiveCell.Row
Posledny = Worksheets("report").Cells(Rows.Count, 11).End(xlUp).Row
If Posledny < Radek Then Exit Sub
If Posledny = Radek Then
Text1 = Worksheets("report").Cells(Posledny, 11)
Else
Text1 = Join(WorksheetFunction.Transpose(Worksheets("report").Cells(Radek, 11).Resize(Posledny - Radek + 1).Value2), "")
End If
MsgBox Text1
End Sub

Takto je to bez cyklu, a s ošetrením situácie, že bude označený riadok za posledným riadkom.

Príklad s For:
Sub NeviemCo()
Dim Radek As Long, Posledny As Long, i As Long, Spoj As String
Radek = 2
With Worksheets("Hárok1")
Posledny = .Cells(Rows.Count, 1).End(xlUp).Row
For i = Radek To Posledny
Spoj = Spoj & .Cells(i, 1).Value2 'Nejaký Váš kód
Next i
End With
MsgBox Spoj 'Výsledok
End Sub

Veľa bude záležať na tom, čo presne chcete, čo robíte v cykle, ako sú usporiadané dáta a pod.

=SUBSTITUTE(SUBSTITUTE(TRIM(D6);" "&CHAR(10);CHAR(10));CHAR(10)&" ";CHAR(10))
=DOSADIT(DOSADIT(PROČISTIT(D6);" "&ZNAK(10);ZNAK(10));ZNAK(10)&" ";ZNAK(10))
Určite ste uviedol ten "ASDAS" správne ?

U mňa víťazí metóda 3, teda polia. Čas 9 s.
Porovnaj Zdroj s DB.xlsm (8 MB)

Metódu 4 nepoužívať ! To som len začal včera v noci špekulovať s filtrom, ale vzhľadom na dosiahnutý čas cez polia, je to zbytočné.

Nevidel som ešte riešenie od mepexg, tak si to prípadne porovnajte.

EDIT: Tak som testol makro na dátach od mepexg, trvá tam až 3:30 ale dá správne hodnoty, pritom PQ iba 0:20. Takže keď sa dopiluje nevracanie záznamov DB bude to dokonalé riešenie podstatne odolnejšie voči chybám ako makro.

Makro tu síce nikto nespomínal, ale jedno mi urobí tento modelový súbor
21121 nových hľadá medzi 213841 v DB, nenájde 7301
za 7 min, druhé za 3 min, a tretie makro za cca 20 s. Ešte nad tým zajtra podúmam, a snáď dodám, keď prídem dom...

No tak ešte pár úprav. Na stiahnutie prázdny zošit (kvôli veľkosti) ako príloha, a tieto ďalšie hotové ako linky:
Nacitaj Slovenský slovník Azet (plný).xlsm
Slovenský pravopis.txt
Slovník slovenského jazyka.txt
Synonymický slovník.txt
Slovník cudzích slov.txt
Nacitaj Slovenský slovník Azet (všetko).zip

Kód je vlastne každému na 2 veci, keď je to už stiahnuté, uvádzam ho len pre prípad, že sa chce niekto s tým hrať či hľadať chyby.

Slovníky majú množstvo duplicít medzi sebou, ale to už nechám na Vás.

Na Excel 2003 by sa to muselo ešte upraviť na rozdelenie na viac stĺpcov, a to sa mi nechce.
Po malej úprave makra si môžete stiahnuť všetky 4 slovníky. Sledujte StatusBar. Snáď je to správne, ale kontrolovať to nebudem :)

EDIT: Upravené aj pre Excel 2003. No počíta sa maximálne s 2 stĺpcami. Vyskúšajte.

Pr.

Urobil som Vám radšej makro na výcuc slov zo Slovenského slovníku na AZET-e. Je to 70K slov. Makro nechajte dobehnúť, zobrazia sa v stĺpci A.

Skúste ešte toto, vylúčenie 3 po sebe idúcich samohlások/spoluhlások, príliš som to netestoval - ide hokej ...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje