Excelre hivatkozó Word körlevél abszolút hivatkozásának relatívvá tétele

Köszi a választ!

A probléma az, hogy az excel fájlba sok adatot kell kitölteni, és 10-15 dolgozó egyszerre nem fogja tudni töltögetni az excelt mert várniuk kellene egymásra.
Legalább az excelből mindenkinek külön példányok kellenének.
Mondjuk az lehet, hogy a külön excel fájlok lesznek a végén valahogy összefűzve egy közös excellé. -Azon még nem gondolkodtam, hogy az megoldható-e..

Sajnos itt az irodában mindenki word-ben dolgozik, és nehéz lenne ezen változtatni.
Viszont a makrós-összefűzős megoldás szimpatikus. Azt hiszem, megpróbálom azt, és ha nagyon elakadnék, akkor lehet hogy kérdezek még.

Köszönöm a segítséged!

Sziasztok!

Hosszú próbálkozások után végül sikerült az eredeti koncepciót megcsinálni, azaz a wordbe írni olyan makrót, ami relatívan adja meg a körleveles adatforrás kódját
(két helyen problémás volt az elérési útvonal és a munkalapnév változóként történő beillesztése, de végül sikerült valami ilyesmivel: „& változó &”
Office verzióktól függően lehet, hogy valakinek újra fel kell vennie makróként a táblázat csatolását(levelezés\címzettek kiválasztása\meglévő lista használata), és azt módosítani.(nekem office2013 és office365-nél működik)
A word makróban az sql-lekérdezést(strSql) kiegészítettem a where [o1] <> 0 résszel, hogy excelből szűrhető legyen a word-ben megjelenő táblázat.(így most ami excelben el van rejtve az a word címzettlistában sem jelenik meg) – aki próbálta már word-ben szűrni a címzett-listát (levelezés\címzettlista szerkesztése), az érti e fáradozásom okát..
(Az adat1 és adat2 excelekben ehhez kell az A oszlopban lévő trükkös képlet, amitől az elrejtett sorok első cellái 0 értékűek lesznek. Az o1 oszlopnevet viszont így csak akkor változtassuk meg, ha a word makrójában az strSql változó szövegében is javítjuk a[o1] kifejezést, különben nem tudja csatlakoztatni a word-makró az excelt. Szintén a Word-makró sql képlete miatt az A oszlop csak számokat tartalmazhat)

Rendbe tettem az összesítő makrót is, amik az adat1 és adat2 excelekben vannak, illetve az osszes.xls-ben képlettel összesítettem a füleket. (a makróban érték szerinti beillesztést használtam, hogy a szűrést jelző A oszlopok eredménye átkerüljön az osszes.xls-be is)
Most a következőképpen működik a négy fájl:
adat1 és adat2 átküldi az adatait (értékbeillesztéssel) makróval az osszes.xls megfelelő lapjaira.(A makró a fájl-mentési esemény után fut le)
Az osszes.xls az osszesit lapon összesíti a lapokat képlettel.
A word az osszesit.xls-re hivatkozik a makróval relatívan(tehát mindig saját mappájában keresi az excelt).

Ennek így nincs sok értelme, mert vagy az adat1-re kéne hivatkoznia a word-nek relatívan, vagy az osszes.xls-re abszolút hivatkozással, ahogy a fentebbi bejegyzésekben is akartuk.
A word makrója az elején a változókkal mindkét megoldásra könnyen átalakítható.
Az egy excelre hivatkozó több word-körlevél valószínűleg problémákat okoz még úgy is, ha Ctrl+í-be itt betettem a kapcsolat-helyreállító makrót.
Ha relativan hivatkozunk közvetlenül adat1-re(ez az ajánlott!), akkor érdemes adat1 makróit mellőzni, és .xls formátumba menteni, mert a word makrója csak akkor tud nyitott excel-t kezelni, ha az .xls formátumban van.- ez utóbbi pedig erős kényelmi szempont.

A csatolt fájlokat egy közös mappába kell tenni.
A mappa elérési útvonala ne legyen 35-40 karakternél több, mert akkor nem fog működni a word makrója, ami megnyitáskor(és Ctrl+í billentyűkombinációra) csatlakoztatja az osszes.xls fájlt a körlevél adatforrásaként.
A word-be tettem két hasznos mezőkódos példát, amik másolhatók.

Adatforrásként nekem az excel szimpatikusabb az access-nél már azért is, mert a word mezőkódjainak lehetőségei elég korlátozottak, így nem lehet olyan változtatásokat(pl ragozások követése) megcsinálni benne amit excelben viszont lehet.
Az Accessbe lehet egyszerre több helyről bevinni adatokat, de tapasztalatom szerint a word-körlevél ugyanúgy nem szereti a nyitott access-t mint a nyitott .xlsx vagy .xlsm fájlokat, bár lehet, hogy access-ből is a régi fájlformátummal kellett volna próbálkoznom.

Köszönöm mindenkinek a segítséget, és remélem hogy így egy helyre összegyűjtve a témába vágó megoldásokat többen is tudnak meríteni belőle.

Sziasztok!
Még egy fejlesztést csináltam körlevél témában:

Az alábbiakkal a word sablonokba lehet eltárolni az azokból létrehozott levelek elérési útját.
pontosabban:
– a sablonok végére szúrunk be hiperhivatkozásokat (minden újonnan készített levélnek egy új sort.)
– a hiperhivatkozások a sablonok végére mentődnek az azokból készített levelek első bezárásakor
akkor, ha:
– a sablon akkor még nyitva van,
– és a levelet előzőleg elmentettük.
Több megnyitott sablon és levél esetén is működik a program
(a leveleket a létrehozási idejükkel azonosítja be a program nem a nevükkel, tehát szabadon átnevezhetők a levelek az első bezárás – és a hiperhivatkozás létrehozása – előtt is)

A kódokat „normál” mappába helyeztem, tehát az összes dokumentumnál lefut, de csak a sablonokkal létrehozott levelekre és a sablonjaikra van hatással.
A sablonból-levélkészítés eseményéhez létre kell hozni egy „class” modultis: jobb gomb\insert\class module
Tehát:
– Normal\Microsoft Word Objects\Thisworkbook -ba:

Dim X As New EventClassModule

Sub Register_Event_Handler()
Set X.App = Word.Application
End Sub

Private Sub Document_New()
Call Register_Event_Handler
End Sub

Private Sub Document_Open()
Call Register_Event_Handler
End Sub

– Normal\Modules\NewMacros -ba:

Option Explicit
‘Module: Module1(Code)

Public mergeNum As Integer
Public srcPList(1 To 500) As String
Public crTimeList(1 To 500) As Date

Public Function GetIndexd(ByRef srcList() As Date, ByVal value As Date) As Integer
Dim i As Integer
GetIndexd = 0
For i = LBound(srcList) To UBound(srcList)
If srcList(i) = value Then: GetIndexd = i: Exit For:
Next i

End Function
Public Function GetIndexi(ByRef iaList() As Integer, ByVal value As Integer) As Integer
Dim i As Integer
GetIndexi = 0
For i = LBound(iaList) To UBound(iaList)
If iaList(i) = value Then: GetIndexi = i: Exit For:
Next i

End Function

Public Function GetIndexs(ByRef saList() As String, ByVal value As String) As Integer
Dim i As Integer
GetIndexs = 0
For i = LBound(saList) To UBound(saList)
If saList(i) = value Then: GetIndexs = i: Exit For:
Next i

End Function

– Normal\Class Modules\EventClassModule -ba:

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
Dim ind As Integer
Dim resname As String
Dim creationTime As Date

creationTime = ActiveDocument.BuiltInDocumentProperties(„Creation date”).value
ind = GetIndexd(crTimeList(), creationTime) ‘index of source- and result-document
If (mergeNum > 0) And (ind > 0) And (Len(ActiveDocument.Path) > 0) Then
resname = ActiveDocument.FullName
Documents(srcPList(ind)).Activate ‘activate source dok

ActiveDocument.Range.InsertParagraphAfter
Selection.EndKey Unit:=wdStory ‘move the cursor to end of the document (to the begining of the line)
ActiveDocument.Range.InsertAfter ” ” & creationTime & ” ” & „forrás: ” & ActiveDocument.Name
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=resname
crTimeList(ind) = 0 ‘deleting the creation time of the stored result-document from the list (unless this the source-docs would save the closed and reopened result-document’s hyperlinks again)
End If
End Sub

Private Sub App_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)
Dim currTime As Date

currTime = ActiveDocument.BuiltInDocumentProperties(„Creation date”).value ‘creation time of active(result) document
mergeNum = mergeNum + 1

crTimeList(mergeNum) = currTime
srcPList(mergeNum) = Doc.FullName ‘full path & name of source doc
End Sub

..és már lehet is használni!