Jump to content
Jeefo

Macro Excel, pentru importarea unui csv in template excel

Recommended Posts

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 copy

End Sub

Sub load_csv(counter, toRange, fromRange, csvName)

' Range(toRange).Activate

Range(toRange).Select

Workbooks.Open Filename:=ActiveWorkbook.Path & csvName

'Range(fromRange).Activate

Range(fromRange).Select

Selection.Copy

ActiveWindow.ActivateNext

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.ActivateNext

Application.CutCopyMode = False

ActiveWindow.Close

End Sub

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...