Jeefo Posted October 26, 2010 Report Posted October 26, 2010 Am un fisier .csv cu date si vreau sa pot sa le export automat intr-un formular in excel. Cea mai usoar varianta fiind cu un macro dar din ce am incercat eu nu prea imi merge. Aveti voi vre-o idee?Sub test2()Sheets("shet1").Select ' c:\load_csv 65, "A988", "A1:D2", "\Roadmap.csv" 'A998 is destination cell, A1:D2 is CSV Range to copyEnd SubSub load_csv(counter, toRange, fromRange, csvName)' Range(toRange).ActivateRange(toRange).SelectWorkbooks.Open Filename:=ActiveWorkbook.Path & csvName'Range(fromRange).ActivateRange(fromRange).SelectSelection.CopyActiveWindow.ActivateNextSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseActiveWindow.ActivateNextApplication.CutCopyMode = FalseActiveWindow.CloseEnd Sub Quote