MS Excel

Ahoj.

Zkoušel jsem externí zdroj pro KT a laboroval jsem s "Microsoft.ACE.OLEDB". Níže uvedený kod v Off 2007 nefunguje. Nakonec jsem problém našel v počtu řádku. Pokud místo 1048576 napíšu jen 65536, pak je kod funkční. Nevíte jak přinutit Off aby respektoval celých 1048576 řádků z tabulky ? Tabulku jsem zkoušel ve formátu .xlsm a .xlsb. R.

Office 2007 + Win 7/32 bit

Sub Test_v2()
Dim c As ADODB.Connection
Dim Rs As Recordset
Dim Book As String
Set c = New ADODB.Connection
c.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.FullName & _
";Extended Properties=""Excel 12.0;HDR=Yes;"";"
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = c
Rs.Open "SELECT * from [Capacity$B5:AS1048576] " & _
" UNION SELECT * from [Flats orders$B5:AS1048576]"
Debug.Print Rs.Fields.Item(2)
Rs.Close
Set Rs = Nothing
End Sub

Zaslat odpověď >

Strana: « předchozí 1 2

daal(8.1.2014 12:45)#017109

Takže na otázku "Co je cílem Vašeho kódu? Součit data ze dvou tabulek (listů) a předat je do KT?" Stačilo odpovědět ano a bylo vše jasné. Jaký nástroj používáte pro stažení dat z MySQL do listu?

Pokud nelze vytvořit union přímo na serveru, tak
http://www.contextures.com/xlPivot08.htmlcitovat

AL(8.1.2014 12:58)#017110

@Roman:
K poslednému odstavcu; skús pozrieť do:
http://blog.contextures.com/archives/2013/09/19/create-pivot-table-or-excel-table-from-multiple-files/ alebo http://www.contextures.com/xlPivot08.html..
edit: daal bol rýchlejší

citovat

RomanNTA(8.1.2014 22:16)#017128

@daal
Pro načtení dat používám ...
Worksheets(cDBSheet).QueryTables.Add(Connection:=cConnectionDB, Destination:=.Range("A1")).CommandText = strSql ... @AL:
První odkaz je stejný postup který jsem zvolil. Je to obšlehnuté podle nápovědy ve VBA. Jeho stažený příklad mi funguje i doma na Off2007 :). Ten druhý odkaz http://www.contextures.com/xlPivot08.html je postup v nápovědě Excelu a našel jsem ho i na tomto webu. Pro mě je nevhodný/nepoužitelný a nebo jej neumím správně napsat/použít. Pokud se všechny data stupidně "sečtou" a nerespektují se textové položky, které se sčítat nedají a vypadne z toho počet, pak je to pro mě nepoužitelné.
Oba postupy myslím znám a zkoušel jsem je.
Jdu se podívat na to proč jeho demo funguje a moje né. Asi bude problém mezi židlí a klávesnicí.citovat

AL(9.1.2014 2:11)#017129

no, mne bolo hneď podozrivé, že by som zrovinka Tebe mohol nejako poradiť, mám za to, že v tejto problematike si o dosť ďalej, než ja, tak neostáva, než držať palce, aby si ten problém nakoniec zlomil..citovat

RomanNTA(9.1.2014 10:05)#017130

Určitě se mýlíš. Obvykle stačí nějaký jiný pohled/ nápad a řešení se najde. Zatím to dodělám ve třech listech a udělám v tom tmp skrytý list do kterého nakopíruji pod sebe data a ze kterého budu cucat pivot tabulky. Je to lepší než nic a za cenu cca dvojnásobné velikosti souboru. Necháme železo nažrat :)citovat

Strana: « předchozí 1 2

Téma: Microsoft.ACE.OLEDB - Jen 65536 řádků.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje