15. marts 2004 - 09:13Der er
18 kommentarer og 1 løsning
Hjelp til elegant vba-kode for å overføre data
Hver måned får jeg 13 csv-filer med data; a.csv, b.csv, c.csv, …
7 av csv-filene har innbyrdes samme antall rader. ca 720, varierer fra måned til måned. De andre 6 csv-filene har også innbyrdes samme antall rader, ca 60. varier fra mnd til mnd. Antall kolonner kan være forskjellig fra fil til fil, men en fil har samme antall kolonner hver måned.
Ved hjelp av vba-kode blir alle disse data lagt til 13 tabeller. Så langt er alt greit. J
Så skal data fra disse tabellene overføres til 164 tabeller. Tabellene skal ha fra 1 til 10 kolonner.
Dette har jeg nå løst ved hjelp av en Select Case setning inne i en For Next setning. Men en Select Case setning med 164 ”caser” er mye arbeid.
Er det en mer elegant måte å løse problemet på? Tabeller i Array? Bruk av pointer?
Ps! Min løsning med Select Case fungerer utmerket, så jeg er kun ute etter en enklere, mer elegant løsning!
Har satt antall points til 30, men en god løsning får 60 ;-)
Select Case vIndexTabTil(j) Case 1 vTabDriftTime = vTempTab Case 111 vDriftSub1Pwr1 = vTempTab Case 112 vDriftSub1Pwr2 = vTempTab Case 113 vDriftSub1Pwr3 = vTempTab Case 114 vDriftSub1Pwr4 = vTempTab
Nej jeg har ikke et triks til at fange en hel kolonne, i en variabel
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.