Bestand wegschrijven in map met huidige datum

Status
Niet open voor verdere reacties.
E

ExcelTonnie

Gebruiker
Lid geworden
5 jul 2016
Berichten
302
Hallo

Ik heb een bestand die ik na aanpassing in een map wil plaatsen die eerst aangemaakt wordt met de huidige datum.
Dus eerst MKdir (huidige datum)
Daarna moet het bestand dus op deze nieuwe locatie opgeslagen worden.
Hoe pak ik dit aan.

Mijn dank voor een ieder.

Gr.Ton
 
Bv

Code: 
Sub VenA()
  c00 = "E:\temp\"
  x = Format(Date, "yyyy-mm-dd")
  MkDir c00 & x
  ThisWorkbook.SaveAs c00 & x & "\geenidee.xlsm", 52
End Sub
 
VenA zei:
Bv

Code: 
Sub VenA()
  c00 = "E:\temp\"
  x = Format(Date, "yyyy-mm-dd")
  MkDir c00 & x
  ThisWorkbook.SaveAs c00 & x & "\geenidee.xlsm", 52
End Sub
Klik om te vergroten...



Code aangepast voor mijn toepassing en werkt prima.
Echter zit ik nog met een probleem wanneer deze map reeds bestaat stopt de makro.
Hoe kan ik dit afvangen want het kan zijn dat ik soms per dag meerdere files daar in moet laten plaatsen.

Code: 
Sub Ton()
 'Map aanmaken
    c00 = "Y:\QADeventer\Edward\Solex4gageRenR\Tekstfiles\Nieuw GageR&R\\"
  x = Format(Date, "dd-mm-yyyy")
  MkDir c00 & x
    ActiveWorkbook.SaveAs c00 & x & "\R&RTEST10000 " & Date & ".txt"
    ActiveWindow.Close SaveChanges:=False
 
Code: 
IF dir(c00 & x,16) = "" then MkDir c00 & x

Nb. Het quoten is niet nodig.
 
Laatst bewerkt:
Bijkomend vraagje hierbij, waarvoor dient die '52'?
ik gebruik 51, werkt ook prima - maar zal wel een achterliggende reden hebben veronderstel ik :d

Dank!

Code: 
Sub VenA()
  c00 = "E:\temp\"
  x = Format(Date, "yyyy-mm-dd")
  MkDir c00 & x
  ThisWorkbook.SaveAs c00 & x & "\geenidee.xlsm", 52
End Sub
 
=fileformat; xlfileformat

51 is .xlsx standaard.
52 is .xlsm met macro's.

Zie in de Help van Vba: workbook.saveas
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan