• 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.

Inhoud tabblad kopieren naar tabblad ander bestand

Status
Niet open voor verdere reacties.
Y

Yasmin

Gebruiker
Lid geworden
22 mei 2004
Berichten
179
Beste Excellers,

Ik wil bestand C:\temp\nieuw urenoverzicht.xlsx tabblad "uren" kopieren naar
C:\temp\urenconversie.xlsm tabblad "uren"

De oude data op tabblad uren dient eerst te worden verwijderd of volledig te worden overschreven.
HTML: 
Sub Ophalen()
    Dim Bestand() As String

    a = Application.GetOpenFilename
    Bestand = Split(a, "\")
   ' FileCopy a, "C:\TEMP\" & Bestand(UBound(Bestand))
End Sub
Wie kan mij helpen met de juiste code?

Bij voorbaat dank.
 

Bijlagen

  • Nieuw urenoverzicht.xlsx
    15,5 KB · Weergaven: 13
  • Urenconversie.xlsm
    29 KB · Weergaven: 12
Code: 
Sub Ophalen()
  Application.DisplayAlerts = False
  Sheets("Uren").Delete
  Application.DisplayAlerts = true
  With GetObject("c:\Temp\Nieuw urenoverzicht.xlsx")
    .Sheets("uren").Copy , ThisWorkbook.Sheets(1)
    .Close 0
  End With
End Sub
 
VenA

De code werk goed maar is het ook mogelijk om het bronbestand zelf te selecteren?
De naam van het "Nieuw urenoverzicht" is wekelijks n.l. iets anders.
 
Heel basaal.
Code: 
With Application.FileDialog(msoFileDialogOpen)
    .Show
    c00 = .SelectedItems(1)
  End With

  With GetObject(c00)
 
De bron bestanden staan in map c:\temp.
Hoe is de code als ik in map C:\temp een bronbestand wil selecteren?
 
VenA

Met bovenstaande tip is het me gelukt om de code perfect te krijgen.

Vriendelijk bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan