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

• #14040 bugizozi őstag föccer #14039

  Új Válasz 2012-06-19 15:53:31 #14040

  Ú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

  

  bugizozi

  őstag

  válasz föccer #14039 üzenetére

  Sub Get_Data()
  FileToOpen = Application.GetOpenFilename _
  (Title:="Please choose a file to import", _
  FileFilter:="Excel Files *.xls (*.xls),")
  ''
  If FileToOpen = False Then
  MsgBox "No file specified.", vbExclamation, "Duh!!!"
  Exit Sub
  Else
  Workbooks.Open Filename:=FileToOpen
  End If
  End Sub

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