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

Příspěvky uživatele

tak uz som to vyriesil multy insert v mojej databaze je nastaveny na max 1000 riadkov ked som SQL vaule string naplnal len po 1000 riadkov tak to preslo dobre

pre zaujimavost kod:
For x = 1 To UBound(aValue)
aSQLvalue = aSQLvalue & " ("
For y = 0 To UBound(aValue, 2)
aSQLvalue = aSQLvalue & aValue(x, y)
If y <> UBound(aValue, 2) Then aSQLvalue = aSQLvalue & ","
Next
aSQLvalue = aSQLvalue & ")"

If Z = 999 Or x = UBound(aValue) Then
strSQL = "INSERT INTO [dbo].[" & d(3, 1) & "] (" & aSQLcolumn & ") VALUES " & aSQLvalue & ";"
cn2.Execute strSQL
aSQLvalue = ""
Z = 0
Else
Z = Z + 1
aSQLvalue = aSQLvalue & ","
End If


Application.StatusBar = aStatusBar & " Insert: " & x & " of " & UBound(aValue)
Next

ale je to stale len insert .... verim tomu ze je lepsia metoda na exportovanie dat do sql ako cez insert

... toto trvalo asi 1minutu pri 37000 riadkov

no tak experti? potrebujem to dost surne

nemusi to byt hotovi priklad staci aj link ja si to viem precitat

... ale ani na nete som exportovanie dat do sql nenasiel nejake idealne riesenie

aka je najrychlejsia cesta ako vlozit do SQLka asi 36 000riadkov?

tensto sposob sa neda vyuzit:
INSERT INTO TABLE (column-a, [column-b, ...])
VALUES ('value-1a', ['value-1b', ...]),
('value-2a', ['value-2b', ...]),
...


- String VALUES presiahne svoju kapacitu
- rychlejsie ako 30minut .. podla mna by to malo trvat asi 3min maximalne

eLCHa:
takto?
Set rData = Sheets("TAB").Cells(5, 2).CurrentRegion
rData.SpecialCells(xlTextValues).Locked = True

- popravde ja som to skusal len na 5bunkach. Neskusal som to na celom dokumente. A je aj dost mozne ze pri celom dokumente to zamrzne kedze to robi podmienku pre kazdu bunku :))))

zadaj si minimalnu a maximalnu hodnotu x a y a nebude to mrznut :)))

For x = 1 To ActiveSheet.Rows.Count
For y = 1 To ActiveSheet.Columns.Count

prepis na svoje uceli napr.

For x = 10 To 20 //riadok od 10 do 20
For y = 5 To 10 //stlpec od 5 do 10

- sry malo mato trknut ze pre cely dokument toto nebude idealne.

tak urobil som nejaky priklad je to robene na cely dokument v tvojom pripade to urcite bude stacit len na tabulku tak potom si to uprav podla seba

hacik je len v tom ze pred spustenim makra musis sheet odomknut(v mojom pripade nieje pod heslom) a potom len nastavovat pre urcite cells vlasnost "Locked" na true alebo false

... kedze vies robit s vba tak to prepisat na svoje uceli bude hracka

tak to zapis rovno do For cyklu takto:

For i = 60 To 4 Step -1
next

a "A" zmen na "B"

.. ale neskusal som to :P

ok skus toto:

hej nefungovalo to preto lebo bolo zmenene klucove slovo: "Prehlad" na "S E Z N"

btw. ako Opicak spomenul treba mat nejaku kotvu ktora sa v tom dokumente da zachytit bud to to je meno bunky alebo ze je to boldom vyznacene

tu je to opravene:

Navod:

1. vytvoris si v excelu tabulku
2. k tabulke vytvoris graf (graf sa stale nachadza v exceli)
3. das na graf ctrl + c
4. ides do powerpointu
5. pojdes na slide kde chces mat graf
6. stlacis "Paste special"
7. prepnes na "paste link"
8. vyberes "Microsoft Excel Chart Object"

a mas to hotove :) v 2010 je tato metoda zastarala

hups :))

ked chces nieco zmenit v grafe das nan pravz cuplik potom "Linked worksheet Object" / "Edit"

tu je spravna:

u mna to funguje ale to testujem na 2010 ... s 2003 dokumentami

skus:

dorobil som tam vlozit .. ostatne cupliky neviem naco presne potrebujes

vlozit funguje na style najdi Prehlad a od toho posuva sa a vytahuje udaje

takze je mozne ze to zle vytiahne ked sa v stlpci "D" bude aj inde nachadzat slovicko prehlad

keby nevyhovovalo staci napisat skusim to aj inak prerobit

na prezentacie je najlepsie powerpoint

... ted ma vela ludi vysmeje :))

ked mam poradit prelinkuj si to rovno do powerpointu .)

netusim dovod preco preprogramovavat excel k stylu powerpointu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje