[MS Excel] meerdere bestanden tegelijkertijd wijzigen

[Sjadow_]

Ik kreeg van de week de vraag van een kennis of het mogelijk was om met
MS Excel meerdere documenten zo te beheren dat wanneer bijvoorbeeld in document1 iets gewijzigd werd dit ook gelijk in document2 gewijzigd wordt.

Ik heb al gezocht in de help van Excel en op hier op tweakers.net en google.nl, maar heb hier helaas niks concreets over kunnen vinden.
Mijn vraag is dus of dit mogelijk is, eventueel met meerdere tabbladen, zo ja hoe?

[F_J_K]

Een koppeling maken:
='C:\\[filenaam.xls]Bladnaam'!$A$1

Of natuurlijk een (VBA) macro als je het in veel documenten moet doen waar geen koppeling is. Neem een macro op om te zien hoe en wat

[Sjadow_]

Ja ik zat zelf ook al te denken aan een macro, maar ik weet niet hoe dit werkt, maar ik ga dit wel even uitzoeken dan

[F_J_K]

Je kan met de sub worksheet_change() zien of een bepaalde cel is gewijzigd:

Visual Basic:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$1" Then msgbox "woei"
End Sub

Dat moet dan natuurlijk wel in het document staan waar de wijziging gezien moet worden. Als dat niet het geval is, zal je in een apatre macro dat bestand moeten openen en kijken wat de waarde van (in dit voorbeeld) cel F1 is, en het op een of andere manier (zoals de oude waarde ergens bewaren) moeten vergelijken met de huidge waarde.

Vervolgens kan je met bijv. het volgende iets aanpassen:

Visual Basic:

Sub Macro1()
    Workbooks.Open Filename:="C:\directory naam\bestandsnaam.xls"
    Range("F1").FormulaR1C1 = "blabla"
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Met macro opnemen en kijken wat er gebeurt + F1 zou het verder wel mloeten lukken gok ik, anders horen we het wel waar je vastloopt

[Sjadow_]

Ok bedankt, ik ga dat wel eens proberen, heb nu niet echt tijd om eraan te knutselen, maar je hoort het nog wel als gelukt is.... of niet

[hershel]

Sorry voor de schop, maar F_J_K, zou je kunnen aangeven hoe deze

code:

Sub Macro1()
    Workbooks.Open Filename:="C:\directory naam\bestandsnaam.xls"
    Range("F1").FormulaR1C1 = "blabla"
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

stukje code er in VBA uit moet zien om alle xls files in een map te wijzigen (stel C:\XLS\), ik moet namelijk 250 bestanden voorzien van een ander versienummer. Het huidige versienummer staat in alle bestanden in cel C65, daar moet dus een andere waarde. Als jij, of iemand anders, me de benodigde macro code kan geven zou ik dat erg waarderen.

[ Voor 4% gewijzigd door hershel op 01-07-2004 23:57 ]

[F_J_K]

Onder F1 staat onder het kopje Dir (niet onverwacht als je je commandline commando's kent )

code:

' Display the names in C:\ that represent directories.
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop

Natuurlijk aanpassen naar wens: geen directories maar *.xls en geen debug.print maar er dan steeds iets mee doen (aanpassen die hap)

[onkl]

Je kan "rondom" deze code

code:

    Workbooks.Open Filename:="C:\directory naam\bestandsnaam.xls"
    Range("F1").FormulaR1C1 = "blabla"
    ActiveWorkbook.Save
    ActiveWindow.Close

ook het filesearch object van VBA gebruiken.

code:

sub jenaam()
With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "Run"
    .MatchTextExactly = True
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
           Workbooks.Open Filename:= .Foundfiles(i)
           Range("F1").FormulaR1C1 = "blabla"
           ActiveWorkbook.Save
           ActiveWindow.Close        
        Next i
    Else
        MsgBox "There were no files found."
    End If
end sub

Dit voorbeeldje komt recht uit de VBA/Excel help, dus kan wel eens wat aanpassing behoeven

[hershel]

Bedankt voor jullie hulp heren, ik zal het zo eens uitproberen!