Excel -cum copiez automat date din Office Word fields
Last Updated: Apr 14 2013 15:23, Started by
naurul
, Apr 12 2013 13:06
·
0
#1
Posted 12 April 2013 - 13:06
Vreau sa fac urmartorul lucru:
Am 52 - fisiere word - cu denumirea "Week 1" pana la "Week 52" -in word am fields -unde o sa completez, in viitor, cu numarul de ore si numarul de client vreau un excel - in care sa copiez automat numarul de ore si numarul de client ceva de genul: week ... . numar ore ......numar client cum pot sa fac asa ceva? multumesc |
#2
Posted 12 April 2013 - 13:12
Fiecare produs din pachetul Office expune un API prin care faci ce vrei: http://msdn.microsof...office.14).aspx
Edited by neagu_laurentiu, 12 April 2013 - 13:13. |
#4
Posted 12 April 2013 - 13:28
Folosind acele obiecte poti "manui" din VB o instanta Excel sau Word. Aloci obiectul, accesezi fiecare pagina, celula, rand, orice mai ai acolo. Si deci scriind o miniaplicatie realizezi ce vrei tu, ca si cum ai face manual doar ca mult mai repede prin acest automatism.
Edited by neagu_laurentiu, 12 April 2013 - 13:29. |
#5
Posted 12 April 2013 - 13:44
te rog sa ma scuzi dar cu toate ca inteleg ideea de baza, nu am nici cea mai mica idee cum sa o pun in practica.
mai pt incepatori. te rog. |
#6
Posted 12 April 2013 - 14:41
E plin netul de tutoriale: http://support.microsoft.com/kb/219151
|
#7
Posted 14 April 2013 - 11:27
Neagu daca stiam sa pun in practica aceste tutoriale nu mai intrebam. E usor sa raspunzi -"E plin netul de tutoriale"
Ce faci? colectie de raspunsuri? Daca raspunzi atunci raspunde serios, ce urmeaza sa ma trimiti sa citesc manualul de VBA? Nu toata lumea stie programare. Trebuie sa intelegi ca cine cere ajutorul, aici, a incercat in prealabil sa puna in practica ce a citit in tutorialele e pe net dar nu a avut succes. |
#8
Posted 14 April 2013 - 13:37
Public xlApp As excel.Application
Public wbxl As excel.Workbook Public wDAT As excel.Worksheet Dim sTABEL as String sTABEL="c:\unde este tabelul tau.xls" Set xlApp = CreateObject("Excel.Application") Set wbxl = xlApp.Workbooks.Open(sTABEL) Set wDAT = xlApp.Sheets(1) 'exemplu wDAT.Cells(rand, coloana).Value = variabila wDAT.Cells(1, 1).Value = "Week" wDAT.Cells(1, 2).Value = "Nr. de Ore" wDAT.Cells(1, 3).Value = "Nr. Client" wDAT.Cells(2, 1).Value = variabila saptamana wDAT.Cells(2, 2).Value = variabila ore wDAT.Cells(2, 3).Value = variabila client wbxl.Save xlApp.Workbooks.Close Set xlApp = Nothing nu uita de Project->References->Microsoft Excel 11.0(sau 10) Object Library cam de aici poti porni. bafta pentru chestii din ce in ce mai elaborate va trebui totusi sa incepi de aici: http://msdn.microsof...office.11).aspx si un sfat general, creaza Macro-uri intr-un excel, faci ce vrei in tabel si pe urma deschizi Macro-ul si vizualizazi codul aferent. Evident, pentru al manipula din vb, trebui un pic adaptat, dar nu este chiar un cap de tara. Edited by nexusm, 14 April 2013 - 13:48. |
#9
Posted 14 April 2013 - 13:46
naurul, on 14 aprilie 2013 - 11:27, said:
Nu toata lumea stie programare. Edited by neagu_laurentiu, 14 April 2013 - 13:48. |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users