December 4, 2008 10:00pm pst

1. capricorn1 3,083,889
2. DatabaseMX 2,294,793
3. LSMCons... 1,210,599
4. boag2000 936,219
5. peter57r 775,749
6. GRayL 640,864
7. harfang 487,606
8. matthews... 464,024
9. cactus_d... 412,144
10. jimhorn 380,217
11. hnasr 273,614
12. TextReport 247,857
13. puppydog... 243,420
14. jimpen 237,831
15. mbizup 234,042
16. tbsgadi 218,162
17. angelIII 213,704
18. JDettman 200,360
19. LPurvis 187,473
20. irudyk 184,929
21. ee_rlee 173,155
22. Natchiket 172,413
23. jefftwilley 162,635
24. omgang 157,715
25. hielo 144,621

1. capricorn1 10,740,927
2. nico5038 5,704,781
3. rockiroads 5,464,025
4. peter57r 4,220,244
5. DatabaseMX 4,178,254
6. LSMCons... 3,947,189
7. LPurvis 3,446,440
8. shanesue... 3,288,317
9. harfang 3,104,439
10. stevbe 2,860,011
11. GRayL 2,800,708
12. jimhorn 2,799,809
13. mbizup 2,120,632
14. flavo 2,112,583
15. jadedata 1,964,977
16. jefftwilley 1,822,075
17. matthews... 1,801,237
18. thenelson 1,700,369
19. boag2000 1,618,963
20. eghtebas 1,493,929
21. puppydog... 1,422,883
22. cactus_d... 1,384,933
23. dannywar... 1,321,476
24. Arthur_... 1,311,584
25. jjafferr 1,276,957

09.05.2008 at 07:23AM PDT, ID: 23706317

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.3

Export filtered cells from excel to access.

Asked by Aegil in Microsoft Excel Spreadsheet Software, Microsoft Access Database

Tags: Microsoft, Excel / Access 2003, 2003

Hi,
We are trying to develop a script for an excel spreadsheet so that it will export the filtered rows to an access database.

The excel sheet has a few hundred records and what we are trying to do is when you select say a works order number as per the picture, only the filtered records that come back with the blue number are transferred to the database.
We have a script for transferring records to the database but it does all records instead of only filtered ones which is what we are trying to achieve.

Attached is two images showing an example of filtered rows based on the works order number. Now when re run the script it sends all of the records to the table, we just need to get it to send the selected 10 as you would see in the pictures rather than the 100s of records.

Any help appreciated and if you need clarification please ask.

Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

           
           
             Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim db As Database, rs As Recordset, r As Long
    Set db = OpenDatabase("C:\test.mdb")
    ' open the database
    Set rs = db.OpenRecordset("Table1", dbOpenTable)
    ' get all records in a table
    r = 3 ' the start row in the worksheet
    Do While Len(Range("A" & r).Formula) > 0
    ' repeat until first empty cell in column A
        With rs
            .AddNew ' create a new record
            ' add values to each field in the record
            .Fields("works_order") = Range("A" & r).Value
            ' add more fields if necessary...
            .Update ' stores the new record
        End With
        r = r + 1 ' next row
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub

           
         

Attachments:

excel-sheet.JPG (78 KB) (File Type Details)

Filtered Excel Spreadsheet

excel-sheet2.JPG (74 KB) (File Type Details)

Shows How the records are filtered

Keywords: Export filtered cells from excel to acce…

	Title
1	Export in Coldfusion
2	Export data from Excel spreadsheet to …
3	Help with my spreadsheet
4	Export Spreadsheet
5	Offset Clarification
6	Update excel spreadsheet

Loading Advertisement...

20081112-EE-VQP-43 / EE_QW_2_20070628

Export filtered cells from excel to access.

Asked by Aegil in Microsoft Excel Spreadsheet Software, Microsoft Access Database

Tags: Microsoft, Excel / Access 2003, 2003

About this solution