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

• Pulsar veterán

  #5950

  #5948 Fire/SOUL/CD

  2010-01-08 20:35:11

  Új Válasz

  Ú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

  

  Pulsar

  veterán

  #5948 Fire/SOUL/CD

  hm... bár még nem nagyon értem, de kérdezek...
  és hogyna tudok erre hivatkozni később?

  Illetve az excel files nevet te adod meg itt: ???

  'értékadás
  Excel_Filename = "c:\a\b\abcdefg.xlsx"

  Mert nekem az nem jó...
  nekem arra van szükségem, hogy amikor lefuttatom a makrót akkor nézze meg mi a files neve, mint ez:

  Function FileOrFolderName(InputString As String, _
  ReturnFileName As Boolean) As String
  ' returns the foldername without the last pathseparator or the filename
  Dim i As Integer, FolderName As String, FileName As String
  i = 0
  While InStr(i + 1, InputString, Application.PathSeparator) > 0
  i = InStr(i + 1, InputString, Application.PathSeparator)
  Wend
  If i = 0 Then
  FolderName = CurDir
  Else
  FolderName = Left(InputString, i - 1)
  End If
  FileName = Right(InputString, Len(InputString) - i)
  If ReturnFileName Then
  FileOrFolderName = FileName
  Else
  FileOrFolderName = FolderName
  End If
  End Function
  
  Sub TestFileOrFolderName()
  MsgBox FileOrFolderName(ThisWorkbook.FullName, False), , _
  "This Workbook Foldername:"
  MsgBox FileOrFolderName(ThisWorkbook.FullName, True), , _
  "This Workbook Filename:"
  End Sub

  és tök jó is, csak nem tudom hogyan hivatkozzak a files névre a Windows("Book1").Activate Book1 helyett!

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