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

• Delila_1 veterán

  #3365

  #3363 lordring

  2008-03-21 14:16:38

  Ú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

  

  Delila_1

  veterán

  #3363 lordring

  A makró egyenként behívja az "utvonal" változó szerinti könyvtárban lévő csv-ket, elvégzi a módosításokat, amiket adsz neki, majd xls kiterjesztéssel menti ugyanoda, bezárja mindkét tip. fájlt. Ha nem akarod bezáratni, töröld a zárás sorát. Azért írtam bele, mert 20-30 (-szor 2) fájl elég sok és zavaró egyszerre megnyitva.

  Sub csv()
  Const utvonal = "C:\Documents and Settings\KZoli.TIGER-TOOLS\Asztal\"
  Dim FN As String, WB As Workbook
  
  ChDir utvonal
  FN = Dir(utvonal & "*.csv", vbNormal)
  Do
  If FN <> "." And FN <> ".." Then
  Set WB = Workbooks.Add
  Workbooks.Open Filename:=FN
  nev = Left(FN, Len(FN) - 3) & "xls"
  
  ' Ide írd be, amit az xls-ben el akarsz végeztetni
  
  ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
  
  WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
  ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
  End If
  FN = Dir()
  Loop Until FN = ""
  End Sub

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