Ú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.

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