MS Excel

Dobrý den,

chtěl bych poprosit o pomoc ve věci generování skriptu SQL pro naplnění spojovací tabulky.

Problém vystihuje přiložený soubor, kde na listě Zadání jsou hodnoty ve sloupcích a na řádcích (neomezené množství). V případě, že v průsečíku sloupců a řádků je "o", jsou si hodnoty přiřazeny a tyto dvojice se mají následně plnit do oné spojovací tabulky.

Vlastní plnění je naznačeno na listě Výsledek, kde jsou ve dvou sloupcích každé dvě přiřazené hodnoty, tyto by měly být následně v buňce E2 sloučeny do finálního skriptu (zde je opět naznačen princip sloučení, tentokrát pouze pro dvě dvojice.

Děkuji mnohokrát za jakýkoliv nápad!

Zaslat odpověď >

Jeza.m(24.1.2018 16:26)#039199

Má být výsledkem jeden insert se spoustou hodnot, nebo to může být spousta insertů (SQL zkousne obojí).

Příklad viz. níže. Před spuštěním je potřeba smazat hodnoty z listu výsledek.

Public Sub MakeInserts()
Dim wsi As Worksheet
Dim wso As Worksheet
Dim rdo As Single

Set wsi = List1
Set wso = List2

For rdi = 2 To wsi.UsedRange.Rows.Count
For sli = 2 To wsi.UsedRange.Columns.Count
If wsi.Cells(rdi, sli) = "o" Then
rdo = wso.UsedRange.Rows.Count + 1
wso.Cells(rdo, 1) = wsi.Cells(rdi, 1)
wso.Cells(rdo, 2) = wsi.Cells(1, sli)
wso.Cells(rdo, 5) = "INSERT INTO cn_xy (SLOUPEC1, SLOUPEC2) VALUES('" & wsi.Cells(rdi, 1) & "', '" & wsi.Cells(1, sli) & "')"
End If
Next
Next

End Sub

M@citovat

noob(24.1.2018 19:19)#039201

Ahoj M@e,

adresně Ti děkuji za odpověď.

V pravdě by bylo pro moje potřeby super, aby to bylo v jednom skriptu.

Pokusil jsem se rozchodit ten Tvůj VBA skriptík (který můj mozek ani po opakované analýze nepobral

), vypsal mi však pouze jednu dvojhodnotu. Přikládám v příloze a rád bych se tedy ujistil, že dělám vše tak, jak bych měl.

Ošetřuje toto řešení i libovolně rozměrné pole (X sloupců a Y řádek)?

Ještě jednou mockrát děkuji!

P.S. Musel jsem to uložit pouze v XLSX, očividně zde nelze přidávat přílohy s podporou maker (chápu). Mohl bych to packovat, leč výsledek je viditelný i ve standardním dokumentu.

Příloha: xlsx

39201_priklad_v2.xlsx (9kB, staženo 29x)

citovat

Jeza.m(25.1.2018 9:18)#039210

Posílám přílohu.
+ jsem na konec přidal i all in one Insert.

M@

Příloha: zip

39210_39198_priklad_v1.zip (15kB, staženo 34x)

citovat

noob(1.2.2018 1:10)#039288

Jeza.m napsal/a:

Posílám přílohu.
+ jsem na konec přidal i all in one Insert.

M@Příloha: 39210_39198_priklad_v1.zip (15kB, staženo 4x)

Děkuji mockrát, tohle je přesně to, co jsem potřeboval. S drobnými úpravami budu nyní úspěšně používat, velmi si vážím Tvé pomoci.

Nezbývá, než se rozloučit a popřát mnoho úspěchů ve všem, co kdy budeš v životě provádět.

Děkuji,

N.citovat

Téma: Generování skriptu SQL pro naplnění spoj. tab.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje