ACCESS EXPERT NEEDED, converting a .pdf into an excel spreadsheet, moving data

[korean0g]

My name is John Nieves, I need help with ACCESS, EXCEL, and adobe.

I have this file that I created from work,(.pdf). I converted it into an excel spreadsheet. I am now trying to move the data around and am having trouble, I have tried to use ACCESS to do this but I cannot figure it out. Somebody! please HELP ME!

my ICQ UIN is 692852546






I don't have any clue how to consolidate this mess of an excel file, Is there any way I can flip the rows with the columns?

[June7]

Why did you go that route to create data?

The only solution I can see involves VBA code.

[korean0g]

The data was already created in a .pdf document, when I converted it to an excel spread sheet, it did not come out how I wanted it to, There were a bunch of blanks, it more so put the data into rows in field one instead of neat columns. I am trying to neatly convert this to a spread sheet that has, "name","phone", and "referred by". What kind of VBA code would do that?

[June7]

VBA would open a recordset of the table and loop through the records, write the data to a new record in another table. Assuming every 25 records belong together and data is always in the same order and will always be 25 records, something like:

Option Compare Database
Option Explicit

Sub FixData()
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim i As Integer
Set rs1 = CurrentDb.OpenRecordset("Table2")
Set rs2 = CurrentDb.OpenRecordset("Table3")
While Not rs1.EOF
    rs2.AddNew
    For i = 1 To 25
        Select Case i
            Case 1
                rs2!Agent = Mid(rs1!Field1, 7)
            Case 2
                rs2!Notes = Mid(rs1!Field1, 7)
            Case 3
                'skip
            Case 4
                rs2!AgentNum = rs1!Field1
            Case 5
            Case 6
            Case 7
            Case 8
            Case 9
            Case 10
            Case 11
            Case 12
            Case 13
            Case 14
            Case 15
            Case 16
            Case 17
            Case 18
            Case 19
            Case 20
            Case 21
            Case 22
            Case 24
            Case 25
        End Select
        rs1.MoveNext
    Next
    rs2.Update
If Not rs1.EOF Then rs1.MoveNext
Wend
End Sub