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

• #50181 lappy őstag Pá #50179

  Új Válasz 2023-01-03 08:40:50 #50181

  Ú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

  

  lappy

  őstag

  válasz Pá #50179 üzenetére

  Sub Open_workbook_example2()
Dim Myfile_Name As Variant
Dim Myfile_Name_ex As Variant

Myfile_Name = Application.GetOpenFilename(FileFilter:="Excel Files(*.xl*),*.xl*)")
If Myfile_Name <> False Then
Workbooks.Open FileName:=Myfile_Name
End If
Myfile_Name = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
Myfile_Name_ex = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWorkbook.Name)
ThisWorkbook.Sheets("Munka1").Range("A1") = Myfile_Name & "." & Myfile_Name_ex

End Sub
  A Munka1 és A1 helyére mehet a saját munkafüzet neve és cella azonosítója

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