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

• #28106 Delila_1 veterán spe88 #28104

  Új Válasz 2015-08-13 16:09:51 #28106

  Ú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 spe88 #28104 üzenetére

  A lenti makróval megnyithatod az ismeretlen útvonalon lévő, ismeretlen nevű fájlodat.

  Sub FileBehuzas()
  Dim FD As Object, FN As String
  Set FD = Application.FileDialog(3)
  With FD
  .AllowMultiSelect = False
  .Show
  If .SelectedItems.Count = 0 Then
  FN = ""
  MsgBox "Nem választottál fájlt", vbExclamation
  Exit Sub
  Else
  FN = .SelectedItems(1)
  End If
  End With
  
  Workbooks.Open Filename:=FN
  End Sub

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