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

• #18923 Delila_1 veterán m.zmrzlina #18922

  Új Válasz 2013-09-09 18:00:15 #18923

  Ú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 m.zmrzlina #18922 üzenetére

  Mit szólsz ahhoz, ha kitallózhatod a megnyitandó fájlt?

  Private Sub Megnyit()
  Dim FN As String
  
  FN = Application.GetOpenFilename(filefilter:="Microsoft Office Excel 97-2003 munkalap(*.xls),*.xls", FilterIndex:=2, Title:="Select Database file", MultiSelect:=False)
  If Not FN = "False" Then
  Workbooks.Open Filename:=FN
  MsgBox "Megnyitottad a fájlt, és aktív"
  Else
  MsgBox "Nem nyitottad meg a fájlt"
  End If
  End Sub

  Nem tudom, melyik verziót használod, a 2003-as, xls kiterjesztésűt tettem bele.

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