-
Fototrend
Új hozzászólás Aktív témák
-
pmonitor
aktív tag
válasz
Cicero #15932 üzenetére
Neked a legjobb a VBA. Word és Access objektumaihoz nem értek. Excelben a következőképpen tudsz 1 már meglevő munkafüzetből új munkafüzetet megnyitni:
1.: ALT+F11 -> ekkor megjelenik a VBA editor.
2.: Insert menü -> Module menüpontra klikk. Ekkor megjelenik a Module1. Dupla katt rá
3.: A megnyíló ablakba beilleszted a következő kódot:Sub a()
Dim excapp As Object
Set excapp = CreateObject("Excel.Application")
excapp.Visible = True
Dim wrkb As Object
Set wrkb = excapp.Workbooks.Add()
wrkb.Worksheets(1).Range("A1") = "abcd"
End Sub
Sub b()
Dim excapp As Object
Set excapp = CreateObject("Excel.Application")
excapp.Visible = True
excapp.Workbooks.Add
excapp.Workbooks(1).Worksheets(1).Range("A1") = "abcd"
End Sub4.: valamelyik eljárás törzsébe belekattintasz, hogy a kurzor benne legyen.
5.: F5-öt nyomsz Ekkor lefut az az eljárás, amiben a kurzor van.Egyébként a példámban az a() és a b() eljárásom ugyanazt csinálja: Megnyit egy új munkafüzetet, és annak a munkalapjának az első cellájába beleírja az "abcd" szöveget.
Először gyakorold az Excel és a Word objektumaival való munkát, csak utána kezdj nekiállni ennek a feladatnak.
-
sztanozs
veterán
válasz
Cicero #15932 üzenetére
Ott van a python-docx modul, azzal vsz pythonban is megoldható, de szerintem VBA-ban is eléggé könnyű.
-
opr
nagyúr
válasz
Cicero #15919 üzenetére
Ez annyira rohadt egyszeru, hogy nem is nagyon kell hozza programozni. Egyreszt talan meg siman excelben is megoldhato a dolog, ha meg nem, akkor fogod magad, felveszel egy makrot, amiben vegigcsinalod a lepeseket ugyesen, aztan mar csak kb ket if meg egy ciklus kell bele, nagyon meglepne, ha zero programozoi tudassal is tobb, mint 1 nap kene hozza, hogy megcsinald (ha tenyleg minden ennyire egyseges es rendezett, tehat gyakorlatilag kivetelkezeles nem kell).
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Remekül felszerelt, fürge 5K2K monitorral jelentkezett az LG
- Lakáshitel, lakásvásárlás
- AMD Navi Radeon™ RX 6xxx sorozat
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Külföldi SIM-ek itthon
- Samsung Galaxy Watch7 - kötelező kör
- Milyen TV-t vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- FOTÓS beárazás
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Felújított számítógépek/merevlemezek Számlával, garanciával! Ingyen Foxpost!
- AKCIÓ! Apple MacBook Pro 16 M4 Pro - M4 Pro 24GB 512GB SSD garanciával hibátlan működéssel
- DELL Universal Dock D6000 docking station (452-BCYH) (DisplayLink)
- Bomba ár! Dell Latitude E5550 - i5-5GEN I 8GB I 128GB SSD I 15,6" FHD I W10 I HDMI I Cam I Gari!
- Csere-Beszámítás!AMD Asztali számítógép PC Játékra! R5 5600/ RX 6700XT 12GB / 16GB DDR4 / 500GB SSD
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest