• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen uit een ander bestand Kopieren

Status
Niet open voor verdere reacties.
B

bar88

Gebruiker
Lid geworden
6 sep 2018
Berichten
40
Wie o wie kan mij even helpen.

Ik heb een bestand Marktvergunningen.CSV
Ik wil alles wat daarin staat kopiëren naar een XLS bestand.

Ik heb het volgende kunnen vinden op helpmij en aangepast.
Code: 
Private Sub CommandButton3_Click()
 With Workbooks.Open("**locatie**marktvergunningen 2020.csv")
   .Sheets("Marktvergunningen 2020").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(500, 30) = ThisWorkbook.Sheets("Temp").Range("A1:BA500").Value
   .Close True
 End With
End Sub

Hij opent bestand CSV en sluit hem weer netjes.
Echter gebeurt er verder niets.

HELP MIJ …… :p
 
Ik denk dat er nog een copy/paste mist in de code
 
Je moet het omdraaien

Code: 
ThisWorkbook.Sheets("Temp").Range("A1:BA500") = .Sheets("Marktvergunningen 2020").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(500, 30).Value
 
Bedankt,
het omdraaien van de code doet hij wel wat meer.
Maar het werkbestand blijft leeg wel zie ik verder op in het werkbestand #N/B
heeft het te maken dat ik van een CSV bestand naar XLS bestand wil?
En kan ik dat eventueel omzeilen?
 
BA is kolom 53

dit
Code: 
.Sheets("Marktvergunningen 2020").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(500, 30).Value
zijn waarschijnlijk lege cellen.

Plaats anders de bestanden even.
 
Werk je op een mac omdat je zo'n rare padnaam hebt?

Code: 
Private Sub CommandButton3_Click()
 With GetObject("**LOCATIE**\marktvergunningen 2020.csv")
  ar = .Sheets(1).Cells(1).CurrentRegion
  .Close 0
 End With
 Sheets("Temp").Cells(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub
 
Ik bedoel pad naam is locatie naam
gaat dat misschien fout?
 
Dan moet je even het padnaam aanpassen in de code in #7
 
Ja nu snap ik het.
Pad naam is CSV omdat er een andere programma hier gegevens uit haalt.
 
Dus het werkt nu? Dan mag je de vraag nog even op opgelost zetten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan