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

• #3550 Delila_1 veterán kraftxld #3543

  Új Válasz 2008-05-23 19:41:48 #3550

  Ú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 kraftxld #3543 üzenetére

  Vártam, hogy Sonar hátha megtalálja. Az alábbi makró csv-k megnyitásához készült, írd át dbf-re. Régebben írtam, és nem biztos, hogy ezen a fórumon.

  Sub csv()
  Const utvonal = "C:\Adatok\"
  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