Az Excel, az Outlook és a Word használata

Ez a téma lezárásra került a moderátor által. A lezárás oka: V�gtelen �r�mmel t�ltene el benn�nket, ha konkr�t k�rd�sedet/probl�m�dat a Tud�st�rban vetn�d fel (ott is �j t�m�t nyitva).
Az Excel, az Outlook és a Word használata
2004-08-23T09:20:05+02:00
2010-04-08T00:21:50+02:00
2022-07-25T04:34:57+02:00
  • A feltett forráskód gyönyörűen működik, de sajnos akadt egy pici problémám.
    Szükségem lenne sorok beszúrására a táblázat után...
    Jelenleg szépen elkészíti a táblázatot aztán a táblázat legelső cellájába dobja a szöveget, amit már alá szeretnék íratni.
    Van valakinek valamilyen ötlete, hogyan lehetne megoldani?

    Table2.First; while not Table2.Eof do begin for i:=0 to Table2.FieldCount-1 do begin tablazat.cell(Table2.RecNo+1,i).range.font.size:=12; tablazat.cell(Table2.RecNo+1,i).range.font.bold:=false; tablazat.cell(Table2.RecNo+1,i).range.font.italic:=false; tablazat.cell(Table2.RecNo+1,i).range.Paragraphs.Alignment:=wdHorizontalLineAlignCenter; tablazat.cell(Table2.RecNo+1,i).range.text:=Table2.Fields[i].AsString; end; table2.next; end; //Tábla utáni szöveg fword.selection.font.color:=clblack; fword.selection.font.name:='Times New Roman'; fword.selection.font.size:=24; fword.selection.paragraphs.alignment:=wdAlignParagraphLeft; fword.selection.font.bold:=false; fword.selection.font.italic:=false; fword.selection.typetext(Edit5.Text);
    Mutasd a teljes hozzászólást!
  • Ja én félreértettelek.
    Mutasd a teljes hozzászólást!
  • Akkor az valószínűleg nem sima űrlap control volt, hanem Field.
    Insert / Field menüpont alatt tudsz ilyet beszúrni.
    Ha a File / Properties alatt hozzáads a Custom fülön új Document Property-t akkor egy ilyen mezőben a =DUCUMENTPROPERTY "propertynév"-el tudsz rá hivatkozni.
    (ez lesz a mezőkódja).
    Mutasd a teljes hozzászólást!
  • Nem. Nem tudom milyen változatod van, de nekem 2003-ban ha elhelyezek egyet (és még nem kapcsolom be az űrlapvédelmet), akkor Tulajdonságok vannak.
    Mutasd a teljes hozzászólást!
  • Köszi szépen!
    :)
    amúgy amit láttam az ilyen volt: [Kattintson ide, és írja be a nevet], és mikor a jobb klickel rákattintottam,tulajdonságok nem voltak ott, hanem mezőkód - váltás volt...
    ez nem ugyan az ugy-e?
    Mutasd a teljes hozzászólást!
  • Pl. makró futtatása Rálépéskor, elhagyáskor
    Mutasd a teljes hozzászólást!
  • koszi,
    ez már haladás, de nem tűnik el a szöveg ha ráklikkelek.. :(
    Mutasd a teljes hozzászólást!
  • Nézet > Eszjöztárak > űrlap

    Első "ab|" ikon = Szöveg űrlapmező

    (Egér jobb gomb, tulajdonságok is érdekes lehet)
    Mutasd a teljes hozzászólást!
  • Helló

    Word-el vagyok elakadva!
    Szeretnék berakni a word-be egy ilyent mezőt: [Írja be a nevét!]
    és mikor erre kattint a felhasználó, akkor ez eltűnik, és az általa bevitt szöveg látható.
    Hol találom ezt a mezőtípust, vagyis mi ennek a neve?
    tudtok segíteni?
    Mutasd a teljes hozzászólást!
  • amúgy ha nem tünt volna fel nem a progik megnevezései a fő cél (max iránytűként szoktam őket használni, h az illető képben legyen), hanem valami használható és megjegyzésre érdemes magyarázat...

    Ha nem tudsz többet erről a témáról, mint én akkor kimélj meg a fölösleges olvasgatástól... mert nincs időm rá.
    Mutasd a teljes hozzászólást!
  • Szóval tudsz segíteni is, vagy csak az ilyen markáns megjegyzések a szakterületeid?
    Mutasd a teljes hozzászólást!
  • Aha, Tudástár, és legalább a programok nevét tudd már leírni helyesen...
    Mutasd a teljes hozzászólást!
  • Üdv mindenkinek!

    Van valakinek valami ötlete arról, hogy hogyan lehet megoldani, hogy például egy excellből, vagy accessből átvett táblázatot wordba hogyan lehet átvinni úgy, hogy ha utólag szükséges akkor delphiből lehessen ellenőrizni a wordos táblázatban lévő adatokat, s ha szükséges, akkor a wordos táblázatot visszaolvasni delphibe, majd rajta keresztül bevinni egy excell, vagy access táblába.
    Az excell és access táblákat delphivel összekötni gyerekjáték, de a wordba nem tom h hogyan lehetne ezt megoldani...
    Ha valakinek van egy akármilyen egyszerű megoldása ilyen esetre nagyon meghálálnám ha elárulná h hogyan oldotta meg.
    Jelentések készítésénél lenne nagyon hasznos, mert rengeteg van belőlük, s lassú az átjavításuk.

    Előre is köszönöm a segítséget!
    Mutasd a teljes hozzászólást!
  • Kösz, de már megoldodott a probléma... mert a Delphi7-es kicsit másképp müködik, mint a delphi3-as.

    Amugy jó ez a vicc Merlinnel.

    Esetleg nem tudja valaki, hogy Delphiből, hogyan lehet wordba egy táblázatot létrehozni, illetve ebből a word táblázatból vissza lehet e olvasni az adatokat Delphibe?
    Ha ez lehetséges, akkor el tudnátok röviden mondani, hogy hogyan lehetne ezt megoldani?

    Előre is kösz a felvilágosítást!
    Mutasd a teljes hozzászólást!
  • az első sorára vonatkozóan hibát ad vissza

    Nézem, nézem, de nem látom.
    Úgy néz ki gyakorolni kell még egy kicsit a távolbalátást és a gondolatolvasást.
    Megyek Merlinhez és veszek tőle órákat.
    Mutasd a teljes hozzászólást!
  • Üdv mindenkinek!

    Valaki tudna segiteni egy kicsit, mert nem sikerül Delphi7-ben egy word dokumentumot elkeszitenem. Még a példaprogit sem tudtam elinditani, mivel az első sorára vonatkozóan hibát ad vissza. Valaki el tudná mondani, hogy mit szurok el folyamatosan?

    Vagy hogyan lehet egy egyszerű word dokumentumot létrehozni, ugyhogy legalább egy sor legyen benne?
    Mutasd a teljes hozzászólást!
  • Irj privit, es elkuldom a filet
    Mutasd a teljes hozzászólást!
  • köszi szépen

    huhh , ha már így belelendültél nem tudnád megírni nekem azt, hogy hogyan tudom ezt lekódolni teljesen vb-ben?
    pontosan az a feladat, hogy van egy x sorú tábla, amiből kell csinálni 7 táblát
    de a tábla sora változó is lehet

    a másik feladat meg az, hogy van 7 tábla és egyet kell belőle csinálni, pontosan visszafele is megkéne ezt csinálni

    ha van kedved és időd megtudnád írni nekem?

    köszi szépen

    üdv
    Mutasd a teljes hozzászólást!

  • Pl:
    sorokszama=application.counta(range("a:A")) ' Ha az "A" oszlopban biztos van adat, nincs lyuk.

    Ha A1-től biztos van adat:

    sorokszama=activesheet.usedrange.rows.count

    Mutasd a teljes hozzászólást!
  • Sziasztok!

    Egy kis segítséget szeretnék kérni.
    Nagyon rég nem írtam makrót és most nagyon aktuális lenne.
    A lényeg a következő:
    Van egy nagy tábla és megkell számolni a sorait. A táblát szétklell darabolni 7 egyenlő részre, természetesen minden tábla különböző sorokat tartalmazzon.
    A lényeg az, hgy különböző sorú táblákra is alkalmazható legyen.

    Egy profinak ez 2 perc, tudna segíteni valaki?

    Nagyon köszi
    Mutasd a teljes hozzászólást!
  • Köszönöm. Tényleg segítettél.
    Mutasd a teljes hozzászólást!
  • Excel Guruk Figyelem!

    Miként lehet az MS Excel Solver nevű modulját Delphiben szóra bírni? LP feladatok megoldására szeretnem használni. Lehetséges ez? 50 pont a jutalom mert a tudástárban is feltettem mar ezt a kérdést és eddig senki nem tudott jót mondani. Az is megoldás lenne ha mondjuk az adatokat bemásolom excelbe, ott lefut a Solver megoldja az LP feladatott és utána visszamásolom a progiba megoldást.
    Mutasd a teljes hozzászólást!
  • igen, szvsz az importált type library-ból ez is kiderül:
    begin fexcel:=createoleobject('excel.application'); fexcel.workbooks.open(pchar(extractfilepath(paramstr(0)))+'TMK2006.xls'); fworkbook:=fexcel.activeworkbook; fworksheet:=fworkbook.worksheets.item[1];

    és ott az item-ek között váltogatsz...
    Mutasd a teljes hozzászólást!
  • Régen jártam ebben a témában.
    Excel tábla melévő x munkalapja között szeretnék navigálni. A név nem lényeges, sorban 1-ről a 2-re, s így tovább.
    Segít valaki?
    Mutasd a teljes hozzászólást!
  • ha figyelmesen elovlasod a cikket, akkor megtalálod benne, hogy hogyan is kell LÉTRHOZNI... szóval a te gépeden is rajta van, csak még nem unit formájában... azt te fogod előállítani...
    Mutasd a teljes hozzászólást!
  • Hello Mindenkinek!

    Láttam, hogy itt használta valaki az EXCEL_TLB nevű unit-ot. Már egy csomót keresgettem neten, de nem tudom, honnan lehetne megszerezni ezt az unit-ot. Valaki át tudná nekem küldeni, vagy egy linket tudna dobni?

    Köszi
    Mutasd a teljes hozzászólást!
  • A Gridlines bejött. Köszönöm.
    A fworksheet.EnableSelection:=xxx sajnos nem. Kipróbáltam számmal, szöveggel, hibaüzenet nincs, kijelölés van.

    Megfogadom tanácsodat, s átteszem a tudástárba.
    Mutasd a teljes hozzászólást!
  • Miért zavar a másolás?
    Nem képletet, csak eredményt fog másolni.

    Ha meg több mindent is akarsz, akkor ne a nevével, hanem a helyével (sorrendjének megfelelően) hivatkozzál rá.

    expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

    Tehát (nem számolom ki pontosan )
    FExcel.activeworkbook.ActiveSheet.Protect('jelszo', true,true, false,true, false, false, true, ....);
    a fenti lista egyes elemeinek megfelelően.

    ---
    Szerintem DisplayGridlines-a nem munkalapnak, hanem ablaknak van.

    FExcel.ActiveWindow.DisplayGridlines:=false

    ----
    Azért nem jó a false, mert nem 2, hanem 3 állapotú szerintem.
    fworksheet.EnableSelection:=XXX

    XXX:
    xlNoSelection : -4142
    xlNoRestrictions: 0 (ez a false)
    xlUnlockedCells: 1

    Próbáld meg a megfelelő számmal.

    [off]
    Ilyen, egyértelműen programkód beli kérdéseket inkább a Tudástárba tegyél fel.
    - talán hamarább kapsz váalszt
    - jutalmazhatod a jó válaszadót
    [/off]
    Mutasd a teljes hozzászólást!
  • Valamelyest segített: a jelszót első paraméterként a védelem létrejön, de én a kijelölés, s így a másolás ellen is szeretném védeni.
    Az előbb a VBA-ban kihagytam az "EnableSelection=xlnoSelection" sort. Ez ott megteszi a kijelölés elleni védelmet.
    Az excel_tlb-ből kinéztem a megfelelőjét, de sem a "fworksheet.EnableSelection:=xlnoSelection;" , sem a "fworksheet.EnableSelection:=false; " nem védi le a kijelölést.

    Más.
    A cellarácsok kikapcsolásánál működik a "fworksheet.PageSetup.PrintGridlines:=false;" , de nem működik a "fworksheet.DisplayGridlines:=false;"
    Tud valaki segíteni ?
    Mutasd a teljes hozzászólást!
  • Talán:
    FExcel.activeworkbook.ActiveSheet.Protect(true,true,true,'jelszo');
    Mutasd a teljes hozzászólást!
Ez a téma lezárásra került a moderátor által. A lezárás oka: V�gtelen �r�mmel t�ltene el benn�nket, ha konkr�t k�rd�sedet/probl�m�dat a Tud�st�rban vetn�d fel (ott is �j t�m�t nyitva).
abcd