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

• #24888 pirit28 csendes tag

  Új Válasz 2015-01-06 17:43:34 #24888

  Ú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

  

  pirit28

  csendes tag

  Sziasztok !

  EXCEL 2003

  Az alábbi vba kód változtatásában kérném hozzáértő segítségét.
  Ezt neten találtam ,változtattam rajta de még nem tökéletes és nem tudom ,hogyan folytassam tovább.
  A feladata az ,hogy egy kiválasztott könyvtárban levő xls file-okat mégegyszer elmentse xls-ként ,hozzáadva a file nevéhez egy ok-t.
  De pl ha a választott könyvtárban xlsx kiterjesztés is van, akkor leakad, megáll.
  Meg ha a választott könyvtárban van több könyvtár is akkor az almappákban levő fileokat a választott könyvtárba menti,(főkönyvtár)
  és nem oda ahol eredetileg van a file.
  Megoldható-e, hogy a választott könyvtárban levő file-ok ,illetve a könyvtárak könyvtáraiban levő file-ok ugyan oda mentődjenek el, ahol eredetileg vannak az jóóó lenne.
  Meg az hogy miért akad le azt sajna nem tudom.
  A választ előre is köszönöm, és a megoldást is.

  Sub Button1_Click()
  Dim MyFolder As String
  Dim myfile As String
  Dim folderName As String

  With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  If .Show = -1 Then

  folderName = .SelectedItems(1)
  End If
  End With

  myfile = Dir(folderName & "\*.xls")

  Do While myfile <> ""
  Workbooks.OpenText Filename:=folderName & "\" & myfile
  ActiveWorkbook.SaveAs Filename:=folderName & "\" & Replace(myfile, ".xls", "ok.xls")
  opened
  Application.DisplayAlerts = False
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  myfile = Dir
  Loop
  End Sub

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