Gegevens wegschrijven naar ander doc.

#1 25 januari 2012, 19:49

Beste specialisten,

Bijgevoegd werkblad plukte ik al van het forum, ik zou dit principe willen gebruiken maar dan de gegevens wegschrijven naar een ander exel-document ipv naar een ander tabblad.
Is dit mogelijk of zijn hier betere manieren voor?

En welke aanpassingen dien ik nog te doen dan?

Alvast bedankt voor jullie hulp.

Groeten

Yves

N13L5 · #2 25 januari 2012, 21:26

Plaats beide bestanden in de map c:\test
of verander in de macro StPath en of Stfilename.

test.rar

Niels

trucker10 · #3 25 januari 2012, 21:33

Het andere werkboek , zal dit al geopend zijn ? anders moet je zeker al > Workbooks.Open ("Drive:\map\submap") eventueel zal daar nog \users\ tussenstaan . als tweede moet je dan een ThisWorkbook.Activate
regel inbouwen .
De rest van d emacro kom korter .

#4 26 januari 2012, 15:06

Wreed bedankt jongens, daar kan ik wel wat mee denk ik.

Mischien te veel gevraagd, maar zou het ook mogelijk zijn om te controleren of dat de gegevens van (eventueel alleen de eerste cel) al dezelfde gegevens heeft.
Met andere woorden, ik wil vermijden dat dezelfde gegevens 2 maal worden geexporteerd.

Nogmaals bedankt,

N13L5 · #5 26 januari 2012, 18:07

Welke versie van excel?
graag voorbeeld bestandje waarin je aangeeft waarop je wilt controleren dat ze dubbel zijn.

Ps in mijn eerste post ging het alleen om de bijlage "gegevens naar ander bestand.xls" en "test.xls"
Die andere 2 waren erbij geslopen

Niels

#6 26 januari 2012, 20:39

In bijlage het blad waar ik de gegevens naartoe wil schrijven. De eerste cel van een regel is het monsternummer en is uniek. Indien dit er al staat mag dit niet nogmaals weggeschreven worden. Het gaat over excell 2007

Ik heb de VBA code gekopieerd en de cellen die ik nodig heb aangepast en toegevoegd. Maar daar doet hij wat moeilijk over. Heb ik hier iets fout gedaan of gaat het misschien niet met meer cellen?

Het is je waarschijnlijk al duidelijk dat ik niet veel van VBA weet.

sq = Array(.Cells(17, 20).Value, .Cells(18, 20).Value, .Cells(19, 20).Value, .Cells(20, 20).Value, .Cells(21, 20).Value), .Cells(22, 20).Value), .Cells(23, 20).Value), .Cells(24, 20).Value), .Cells(25, 20).Value), .Cells(26, 20).Value), .Cells(27, 20).Value), .Cells(28, 20).Value), .Cells(29, 20).Value)

In het voorbeeld van trucker10 wordt er met de celnamen gewerkt, valt dit te ev combineren?

Bedankt,

N13L5 · #7 26 januari 2012, 21:06

Het voorbeeld bestand had geen aan een gesloten bereik, wist niet hoe anders op te lossen, nu heb je wel een aan een gesloten bereik.
Ik schrijf hem wel weg maar verwijder hem weer als ie er al staat.

Code:

Sub Macro2()
Dim openXls As Workbook
StPath = "c:\test\"
StFilename = "test.xls"
With ThisWorkbook.Sheets("invul")
sq = Range("t17:t29").Value
End With
For Each openXls In Excel.Workbooks

If openXls.Name = StFilename Then
With Workbooks(StFilename)
.Sheets("gegevens").Range("A" & .Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(1, UBound(sq)).Value = Application.Transpose(sq)
.Sheets("gegevens").Range("$A$1:$m$" & .Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Row + 1).RemoveDuplicates Columns:=1, Header:=xlNo
End With
Exit Sub
End If
Next

With Workbooks.Open(StPath & StFilename)
.Sheets("gegevens").Range("A" & .Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(1, UBound(sq)).Value = Application.Transpose(sq)
.Sheets("gegevens").Range("$A$1:$m$" & .Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Row + 1).RemoveDuplicates Columns:=1, Header:=xlNo
.Close Savechanges:=True
End With
End Sub

Niels

xlcoach · #8 27 januari 2012, 00:25

Citaat:

Oorspronkelijk geplaatst door yves.spelters

Is dit mogelijk of zijn hier betere manieren voor?

Zoals je ziet is het mogelijk. Maar er zijn ook enkele andere manieren voor. Bijv: hou de gegevens binnen één werkmap en gebruik een externe gegevensverbinding om ze te importeren in de andere map. Maar of dat voor jou beter is is niet te zeggen. Waarom wil je de gegevens in een andere map? Wat ga je er daarna mee doen?

#9 3 februari 2012, 17:12

Er zijn inderdaad enkele opties. Ik ga het inderdaad op een simpelere manier oplossen en de gegevens binnen een document houden. De andere info is zeker niet verloren want dat kan ik nog wel voor iets anders gebruiken.
Probleem met naar een ander document schrijven is dat het path natuurlijk correct moet zijn. Bedoeling was dat m'n document op verschillende plaatsen zou gebruikt worden en dan wordt de verspreiding wat te ingewikkeld.
Ik beschouw m'n vraag in elk geval opgelost.

In elk geval heel hard bedankt.

Groeten,

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave

Soortgelijke discussies
Discussie	Auteur	Forum	Reacties	Laatste bericht
wegschrijven naar een ander bestand	john1713	Afgehandelde vragen	5	10 april 2012 22:09
Gegevens wegschrijven naar ander tabblad	spyro	Afgehandelde vragen	6	26 december 2011 08:40
vba wegschrijven naar ander blad	dirkske	Afgehandelde vragen	3	10 november 2011 12:51
blok gegevens wegschrijven naar ander tabblad	janssen rijnmond	Afgehandelde vragen	3	12 januari 2011 13:27
auto gegevens wegschrijven naar ander blad	breme003	Afgehandelde vragen	9	31 juli 2008 12:08