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

• #23412 m.zmrzlina senior tag Wyll #23406

  Új Válasz 2014-09-23 16:04:22 #23412

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Wyll #23406 üzenetére

  Vagy nézd meg ezt:

  Sub vaneilyen()
  
  Dim File As String
  File = InputBox("Add meg a keresett fájl nevét! (kiterjesztéssel együtt)")
  Dim DirFile As String
  
  DirFile = ThisWorkbook.Path & "\" & File
  If Dir(DirFile) = "" Then
  Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=DirFile
  'vagy
  'Workbooks.Open Filename:=másikfájl
  'kitölteni a megfelelő adatokkal
  'és menteni a kívánt néven
  Else
  Workbooks.Open Filename:=DirFile
  End If
  
  End Sub

  Ez a kód ebben a formájában abban a mappában keres amiben a kódot tartalmazó munkafüzet van.

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