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

• #3365 Delila_1 veterán lordring #3363

  Új Válasz 2008-03-21 14:16:38 #3365

  Ú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 lordring #3363 üzenetére

  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

  [ Szerkesztve ]

• #3364 Delila_1 veterán lordring #3363

  Új Válasz 2008-03-20 15:59:30 #3364

  Ú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 lordring #3363 üzenetére

  nev$ = InputBox("Kérem a fájlnevet", "Név bekérése")

  Ez "gyalog" bekérés. Van mód arra, hogy a csv nevét automatikusan változóba tegye, és azt adja az xls-nek, de az most hirtelen nem jut eszembe, és nem érek rá kikeresni.
  Előbb-utóbb vagy én, vagy más leírja.

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