Új hozzászólás Aktív témák

• #23408 Delila_1 veterán Wyll #23406

  Új Válasz 2014-09-23 15:43:31 #23408

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Wyll #23406 üzenetére

  Sub megnyit()
  Dim FN As String
  FN = "MegadottNev.xlsm"
  
  On Error GoTo Nyit
  Workbooks.Open "C:\Temp\proba.xlsx"
  On Error GoTo 0
  GoTo Folytatas
  
  Nyit:
  Workbooks.Open "C:\Temp\alapfile.xlsx"
  On Error GoTo 0
  
  Folytatas:
  'Ide jön a pár adat kitöltése
  
  'mentés a megadott mappába, az FN változóban megadott névvel
  ActiveWorkbook.SaveAs Filename:="C:\Temp\" & FN, FileFormat:= _
  xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  
  End Sub

Új hozzászólás Aktív témák