Bestanden ophalen en wegschrijven in Excel.

[danny147]

Beste,

1. Graag zou ik een nieuw werkblad willen aanmaken dmv knop, met als naam dezelfde als in cel C5 op tabblad2 met daarin enkel tabblad2.
In cel A1 op tabblad1 staat een deel van het pad.
Cel C5 moet hij dan bij de lijst toevoegen op blad1 in kolom X
Daarna moet tabblad 2 verwijderd worden in huidig werkblad.

2. Ook moet ik een werkblad kunnen ophalen dmv knop, met als gegevens:
In cel A1 staat een deel van het pad.
In cel H12 staat de naam van het werkblad.

3. Als tabblad2 is verwijderd dan een nieuw tabblad2 aanmaken dmv een knop, met een kopie van tabblad3.

Zie ook bijgevoegd bestandje.

Was al begonnen met de volgende code om een werkblad op te halen, maar krijg het niet voor elkaar.

Private Sub Workbook_Open()
    Workbooks.Open (Range("A1") & Range("H12") & ".xls")
    ThisWorkbook.Activate
End Sub

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Danny, begin hier al eens mee en laat maar iets weten

Sub bladwegschrijven()
    [Blad2!C5].Copy [Blad1!X65536].End(xlUp).Offset(1)
    Application.SheetsInNewWorkbook = 1
    With Workbooks.Add
     With .Sheets(1)
       ThisWorkbook.Sheets("Blad2").UsedRange.Copy .[B2]
       .Parent.SaveAs ThisWorkbook.Sheets("Blad1").[A1] & ThisWorkbook.Sheets("Blad2").[C5] & ".xls"
    End With
    .Close
  End With
    Sheets("Blad2").Delete
End Sub

Sub ophalen()
    Workbooks.Open [A1] & [H12] & ".xls"
End Sub

Sub nieuwtabblad()
    [Blad3].Copy [Blad3]
    ActiveSheet.Name = "Blad2"
End Sub

 

[danny147]

Beste Warme bakkertje

Bij Wegschrijven geeft hij een foutmelding in de volgende zin:

.Parent.SaveAs ThisWorkbook.Sheets("Blad1").[A1] & ThisWorkbook.Sheets("Blad2").[C5] & ".xls"

Wat hij wel doet is een nieuwe map openen met als naam Map1 met 1 tabblad erin, maar wel met de juiste gegevens erin.

Bij Ophalen geeft hij ook een fout in deze regel:

Workbooks.Open [A1] & [H12] & ".xls"

Nieuw Tabblad aanmaken is wel goed.

Groetjes Danny. :thumb:

 

[snb]

Workbooks.Open [A1] & "\" & [H12] & ".xls"

 

[danny147]

Beste snb

De & "\" & staat toch al achteraan in cel A1

Als de code voor wegschrijven nu zou lukken, dan kan ik kijken waar hij het bestand plaatst, zo heb ik dan het juiste pad.

De verkenner in Vista is nogal omslachtig vind ik.
Ik heb 2 x map documenten en 2 x Danny Staan, zie foto's.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Danny, mi zit de fout in je pad in A1 want als ik 'm bij mij test wordt alles mooi weggeschreven in de opgegeven map met de correcte naam

 

[danny147]

Beste Warme bakkertje

Inderdaad, het pas is niet juist.
Heb geprobeerd op mijn bureaublad te plaatsen en op te halen en dit lukt.

Zal verder nog wat zoeken.

Bedankt :thumb:

Groetjes Danny. :thumb: