Ú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

• #3549 sonar addikt kraftxld #3543

  Új Válasz 2008-05-23 19:29:01 #3549

  Ú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

  

  sonar

  addikt

  válasz kraftxld #3543 üzenetére

  Sajnos nincs meg

• #3544 sonar addikt kraftxld #3543

  Új Válasz 2008-05-20 19:55:08 #3544

  Ú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

  

  sonar

  addikt

  válasz kraftxld #3543 üzenetére

  Hú vmikor a régiben még én irtam hasonló scriptet, igaz ott az volt, hogy naponta kellett 6 dbf-et egy excelbe belegyűrni és feldolgozni.
  Holnap megnézem megvan-e még a melóhelyes gépemen.

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