Opslaan 1 tabblad uit een excel met meerdere tabbladen

[linkav]

Beste,

Ik heb een excel-bestand "C:\tempexcel\Verwerk.xlsm" waarin ik een ander excel-bestand "C:\tempexcel\TeVerwerken\TeVerwerken.xlsm" moet openen. Het bestand "TeVerwerken.xlsm" is beveiligd met een wachtwoord 'aabb' en heeft 12 tabbladen (Maand01/Maand02/../Maand12).

Deze maand zou (alleen) tabblad "Maand02" bewaard moeten worden als "C:\tempexcel\Verwerkt\Maand02.xlsm" (zonder wachtwoord).

Graag had ik een oplossing met variabelen, daarmee bedoel ik dat ik volgende variabelen wil gebruiken
tmpToOpenPath C:\tempexcel\TeVerwerken\
tmpToOpenFile TeVerwerken.xlsm
tmpToOpenPassword aabb
tmpToOpenTab Maand02
tmpSaveAsPath C:\tempexcel\Verwerkt\
tmpSaveAsFile Maand02.xlsm

Het leek mij een makkelijke klus maar ik kom er niet uit! is er iemand die mij kan/wil helpen?

 

[HSV]

Test het maar eens.

sub hsv()
dim tmptoOpenPath as string, tmpToOpenPassword as string
dim tmpToOpenTab as string, tmpSaveAsPath as string, tmpSaveAsFile as string
dim tmpToOpenFile as variant
 
 tmptoOpenPath = "C:\tempexcel\TeVerwerken\"
 tmpToOpenFile = "TeVerwerken.xlsm"
 tmpToOpenPassword = "aabb"
 tmpToOpenTab = "Maand02"
 tmpSaveAsPath = "C:\tempexcel\Verwerkt\"
 tmpSaveAsFile = "Maand02.xlsm"
 
 workbooks.open tmpToOpenPath & tmpToOpenFile, , , , tmpToOpenPassword
  with workbooks(tmpToOpenFile)
   .sheets(tmpToOpenTab).copy
    with activeworkbook
     .saveas tmpSaveAsPath & tmpSaveAsFile, 52
     .close
    end with
   .close 0
 end with
end sub

 

[MDN111]

Dag linkav,

Probeer de macro in bijlage eens.

Grtz,
MDN111.

 

[MDN111]

Oei oei, verdorie toch! Dat is de tweede keer vandaag dat het mij overkomt dat een topic open staat en dat er iemand antwoordt terwijl ik ook aan 't antwoorden was.
Sorry, HSV

Grtz,
MDN111.

 

[HSV]

Dat maakt helemaal niets uit toch @MDN111 ?
Wie zegt dat de mijne doet wat het moet doen? :d

 

[linkav]

hallo hsv en mdn111,

Ik heb het uitgetest en werkt prima!!!

Beiden bedankt voor de hulp!

gr,
Ariane