Gezocht: macro om namen in een rij op te slaan als separate bestande met naam.xls

[DjoeZty]

Hallo XLS-hero's:love:,

Graag julie hulp bij het volgende:
Ik heb een database bestand met op elke rij een naam met daarachter unieke waarden (tekst of nummer).
Als de database ververst is (via Exsion, lukt prima), moeten de verschillende rijen in separate xls-bestanden op worden geslagen.
De naam in de eerste kolom bepaalt hierbij de naam.xls, de waarden moeten onder elkaar in een kolom komen te staan.
Naam van de waarde in eerste kolom, de waarde zelf in de tweede kolom.

Als het bestand al aanwezig is in het pad, dan mag deze overschreven worden.

Ik heb me suf gepiekerd, maar loop vast.
Graag jullie help.

Voorbeeld bestand is begevoegd.

BVD voor jullie hulp!

Mvg,
DjoeZty

 

[VenA]

Probeer het zo eens.

Sub VenA()
Dim j As Long, jj As Long, ar, ar1
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ar = Blad1.Cells(10, 2).CurrentRegion
For j = 2 To UBound(ar)
    ReDim ar1(UBound(ar, 2) - 2, 1)
    For jj = 2 To UBound(ar, 2)
        ar1(jj - 2, 0) = ar(1, jj)
        ar1(jj - 2, 1) = ar(j, jj)
    Next jj
    With Workbooks.Add
        .Sheets(1).Cells(1).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1
        .SaveAs "C:\Temp\" & ar(j, 1) & ".xls", 56
        .Close 0
    End With
Next j
Application.DisplayAlerts = True
End Sub

 

[DjoeZty]

Probeer het zo eens.

Helemaal TOP!

THX

 

[DjoeZty]

Probeer het zo eens.

Sub VenA()
Dim j As Long, jj As Long, ar, ar1
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ar = Blad1.Cells(10, 2).CurrentRegion
For j = 2 To UBound(ar)
    ReDim ar1(UBound(ar, 2) - 2, 1)
    For jj = 2 To UBound(ar, 2)
        ar1(jj - 2, 0) = ar(1, jj)
        ar1(jj - 2, 1) = ar(j, jj)
    Next jj
    With Workbooks.Add
        .Sheets(1).Cells(1).Resize(UBound(ar1) + 1, UBound(ar1, 2) + 1) = ar1
        .SaveAs "C:\Temp\" & ar(j, 1) & ".xls", 56
        .Close 0
    End With
Next j
Application.DisplayAlerts = True
End Sub

Is het ook mogelijk ipv separate excelbestanden te generen, CSV bestanden te maken?
De ene toepassing vraagt excel, de andere toch CSV...

Alvast bedankt!

 

[VenA]

.SaveAs "C:\Temp\" & ar(j, 1) & ".csv", 6