ExportI/Import Actual Work for each resourse day by day

Question

Hi all,
this is my first post and I'm trying to export some data by Microsoft Project Project Professional 2010 32bit (version 14.0.7140.5002).
I need your help in order to solve this issues :
(Priority 1) export actual work for each resource of my Project in the following format:
       DAY;Resource Name;Summary Task Name; Task Name; hours
(Priority 2) Import actual work for each resource inmy Project in the following format:
       DAY;Resource Name;Summary Task Name(if needed); Task Name; hours
I'm searching into forum but I'm not clear what is the correct object to use.
Thanks a lot for your help.
Alberto

Answer 1

In primis thanks a lot for your answer.
I want create a macro VBA and add a "botton" on task bar in order to execute this macro - output format is CSV file but I think is excellent if I write it in Excel format.
I have partially closed first priority (you can see below code) - I need create a little message box in order to receive period and path output.
I appreciate your collaboration in order to help me. :)
Thanks
Sub ResourceActualWorkDetail()
    Dim rs As Resources
    Dim r As Resource
    Dim A As Assignment
    Dim TSV As TimeScaleValue
    Dim TSVS As TimeScaleValues
    MsgBox ActiveProject.Name
    Close #1
    Open "C:\Users\xxx.xxx\Desktop\" & ActiveProject.Name & " - TimeReport.csv" For Output As #1
    Write #1, "Summary Task;Task Name;Risorsa;Giorno;Ore"
    'Header
    Set rs = ActiveProject.Resources
    For Each r In rs
            For Each A In r.Assignments
                For Each TSV In A.TimeScaleData("01/01/2015", "31/12/2015", pjAssignmentTimescaledActualWork, TimeScaleUnit:=pjTimescaleDays)
                    If TSV.Value <> "" And TSV.Value > "0" Then
                        Write #1, _
                            A.TaskSummaryName _
                            & ";" & A.TaskName _
                            & ";" & r.Name _
                            & ";" & TSV.StartDate _
                            & ";" & TSV.Value / 60
                    End If
                Next TSV
            Next A
    Next r
    Close #1
 End Sub