trimitere automata pagina excell
- cristi_lazarro
- Mesaje: 841
- Membru din: Mie Noi 04, 2009 5:57 pm
trimitere automata pagina excell
buna seara,
spuneti-mi va rog daca se poate automatiza trimiterea paginilor dintr-o carte excell, la niste adrese de mail predefinite, cu cat mai putine click-uri.
fiecare pagina va contine un nume de firma, asociez acele nume cu niste adrese de mail sau, aceste firme/clienti sunt arondate/arondati unuor agenti si sa facem corelarile de adrese mail prin agenti.......etc
se poate ceva in acest sens?
multumesc.
spuneti-mi va rog daca se poate automatiza trimiterea paginilor dintr-o carte excell, la niste adrese de mail predefinite, cu cat mai putine click-uri.
fiecare pagina va contine un nume de firma, asociez acele nume cu niste adrese de mail sau, aceste firme/clienti sunt arondate/arondati unuor agenti si sa facem corelarile de adrese mail prin agenti.......etc
se poate ceva in acest sens?
multumesc.
Re: trimitere automata pagina excell
Da, se poate cu
dar doar wotkbook. Deci va trebui sa faci un artificiu, sa faci cate un workbook din fiecare sheet pe care vrei sa-l trimitiWorkbook.SendMail "cineva@server.com", "ref. oferta"
- cristi_lazarro
- Mesaje: 841
- Membru din: Mie Noi 04, 2009 5:57 pm
Re: trimitere automata pagina excell
nasol,
in conditiile astea schimb intrebarea: cum pot face automat din fiecare sheet un workbook?
...evident, nu se poate....
am sa ma mai gandesc cum pot evita aceasta dorinta de neindeplinit
ms!
in conditiile astea schimb intrebarea: cum pot face automat din fiecare sheet un workbook?
...evident, nu se poate....
am sa ma mai gandesc cum pot evita aceasta dorinta de neindeplinit
ms!
Re: trimitere automata pagina excell
De ce nu vrei sa vezi jumatatea plina a paharului ?
Cod: Selectaţi tot
For Each ws In ThisWorkbook.Sheets
ws.Copy
ActiveWorkbook.SaveAs "c:\" + ws.Name + ".xlsx"
ActiveWorkbook.Close
Next ws
-
- Mesaje: 286
- Membru din: Mar Ian 19, 2010 7:36 pm
- Localitate: Bucuresti
Re: trimitere automata pagina excell
Salut,
nu reusesc sa sa il pun corect ca sa imi salveze foaia "balanta" separat intr-un folder.
In "balanta" se completeaza urmatorul rand liber, de fiecare data cand ruleaza macroul, si in forma asta este inutila asa.
Vreau sa se salveze in folder separat "nir", foia "nir" (asta se face este ok), dar nu mai vreau ca foia "balanta" sa se salveze in fisierul "nir", si foaia "balanata" sa ramana doar una si sa se completeze in ea rand cu rand, (sper ca am atacat corect problema )
Uite si vestitul meu fisier:
nu reusesc sa sa il pun corect ca sa imi salveze foaia "balanta" separat intr-un folder.
In "balanta" se completeaza urmatorul rand liber, de fiecare data cand ruleaza macroul, si in forma asta este inutila asa.
Vreau sa se salveze in folder separat "nir", foia "nir" (asta se face este ok), dar nu mai vreau ca foia "balanta" sa se salveze in fisierul "nir", si foaia "balanata" sa ramana doar una si sa se completeze in ea rand cu rand, (sper ca am atacat corect problema )
Uite si vestitul meu fisier:
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: trimitere automata pagina excell
Daca am inteles bine, vrei ca la click pe buton sa:
1. Se salveaza nir-ul
2. Se salveaza balanta
toate intr-un folder ales de tine
1. Se salveaza nir-ul
2. Se salveaza balanta
toate intr-un folder ales de tine
Cod: Selectaţi tot
nr_nir = Str(ThisWorkbook.Sheets("nir").Range("F8").Value)
ThisWorkbook.Sheets("balanta").Copy
ActiveWorkbook.SaveAs "c:\balanta.xls"
ActiveWorkbook.Close
ThisWorkbook.Sheets("nir").Copy
ActiveWorkbook.SaveAs "c:\nir" + nr_nir + ".xls"
ActiveWorkbook.Close
-
- Mesaje: 286
- Membru din: Mar Ian 19, 2010 7:36 pm
- Localitate: Bucuresti
Re: trimitere automata pagina excell
Da , asa vreau .
Dar nu stiu sa il "pun" corect in codul meu, am incercat, dar nu functioneaza corect .
Poti sa il pui tu corect in codul meu?
Multumesc.
Dar nu stiu sa il "pun" corect in codul meu, am incercat, dar nu functioneaza corect .
Poti sa il pui tu corect in codul meu?
Multumesc.
Re: trimitere automata pagina excell
Unde ai
inlocuiesti randul cu Run cu codul dat de mine
Cod: Selectaţi tot
Sub CallSave()
Run ("Salveaza_nir")
End Sub
Re: trimitere automata pagina excell
smcsa nu poate inlocui acel rand, deoarece acel rand apeleaza un Add-In pe care i l-am facut.
Uite aici codul care te intereseaza:
In locatia:
C:\Documents and Settings\mateira\Desktop\test vei crea doua foldere: Balante si Niruri.
In ele se vor stoca elementele tale.
Uite si registrul atasat.
Poti rula codul de la butonul ce ti l-am inserat in pagina.
Uite aici codul care te intereseaza:
Cod: Selectaţi tot
Sub SalvareRegistru()
On Error GoTo err
nr_nir = Str(ThisWorkbook.Sheets("nir").Range("F8").Value)
ThisWorkbook.Sheets("balanta").Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\mateira\Desktop\test\Balante\balanta.xls"
ActiveWorkbook.Close
ThisWorkbook.Sheets("nir").Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\mateira\Desktop\test\Niruri\nir" + nr_nir + ".xls"
ActiveWorkbook.Close
Exit Sub
err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
C:\Documents and Settings\mateira\Desktop\test vei crea doua foldere: Balante si Niruri.
In ele se vor stoca elementele tale.
Uite si registrul atasat.
Poti rula codul de la butonul ce ti l-am inserat in pagina.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
-
- Mesaje: 286
- Membru din: Mar Ian 19, 2010 7:36 pm
- Localitate: Bucuresti
Re: trimitere automata pagina excell
Ceva nu functioneza cum trebuie, cand am rulat pt. prima oara macroul "salveza registre separate" a functionat , la urmatoarea rulare nu a mai fubctionat si mia dat urmatorul mesaj "Type mismatch".