Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Fogkefe: elektromos vagy manuális?
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- weiss: Lakodalom van a mi utcánkban...
- GoodSpeed: FIFINE A6T - Gamer és Streamer állványos mikrofon
- Pötyi: 4. RETRO KONZOL ÉS SZÁMÍTÓGÉP BÖRZE - '25. november 16.
- bambano: Bambanő háza tája
Új hozzászólás Aktív témák
-
válasz
lasarus1988
#1260
üzenetére
Sajnos csak 18.30-19.00 közt érek haza, de utána megnézem, addig is pár megjegyzést engedj meg, így "ránézésre"...
1. A Hőmérséklet esetén ponttal, míg Páratartalom esetén meg vesszővel vannak elválasztva a tizedesjegyek. Most akkor melyik?
2. Ez a kód ún. "old school code", azaz nálam biztosan el sem fog jutni a nálad problémás részig(W7 x64 és Office x64-et használok), mert pl a Dim ExcelApp As Excel.Application deklarációnál is már le fog akadni, de szinte biztos, hogy a Application.GetOpenFilename-re is hibát fog dobni, pl nincs ilyen metódus. Természetesen orvosolhatóak ezek a problémák...
3. InputData = Application.Windows(1).Sheets(1).Range("A1").Value
Cikluson belül ez az érték nem fog változni, akkor pedig a Case ágak közül is mindig ugyanazon fog végigfutni.4. Cells(I, 2)
Hogy kerültek az excelben egymás alá az adatok? Mert ugye ahogy a I ciklusváltozót növekszik úgy B1-től B10 cellákból szedi az adatot, ugye az meg egymás alatt van...5. Így ránézésre szerintem le lehet egyszerüsíteni a kódot, pl kivonjuk az "egyenletből" az Excel-t, simán a CSV fájlt fogjuk feldolgozni Word-ből, macro segítségével
6. Korábban írtad, hogy van x CSV fájl. Ebben a kódban ez nem jön ki, azaz 1 word doksit nyitsz meg és 2 darab CSV-t Excel-el.
Ha korábban jól értettem, akkor nem az lenne a feladat, hogy van 1 darab kész word doksid és ebbe az 1 word doksiba kellene több CSV fájlból könyvjelzőket beszúrni?
Vagy esetleg 1 adott word doksihoz csak 1 adott CSV tartozik?
Ha ez utóbbi akkor írd le, hogy milyen a párosítás pl
ubul.doc -> ubul.csv
geza.doc -> jeno.csv
stb stb
Új hozzászólás Aktív témák
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
- ÚJ Xiaomi Mi Robot Vacuum Mop Essential robotporszívó feltörlő 2db 1999 Ft
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3121, 100% Akkumulátor
- Új Razer 16 QHD+ OLED 240Hz i9-14900HX 24mag 32GB 2TB SSD Nvidia RTX 4090 16GB 175W Win11 Beszámítás
- BESZÁMÍTÁS! Lenovo Legion Go S 32GB/1TB kézikonzol garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő

