Question : Need Microsoft VBA to loop through clipboard and add records via sql statement executed by Currentdb?

All,

Please note the following item i have copied into my clipboard.

I need some VBA coding that will allow me to loop through the clipboard text and take each line item as a string and insert it as a SQL statement.

I understand already how to get my string sSQL = "INSERT INTO table ...." and do a CurrentDb.execute sSQL - I just don't have the coding to loop through the clipboard.  And I want to be sure that I don't add the first row but rather skip to the second.

IF you don't know the VBA coding to loop through the clipboard in Microsoft Access then please kindly refrain from comment.  I'd rather not try something else.  As far as exactly what I'm doing I'll handle the string part that inserts into another table.

Thanks sincerely.

1: 2: 3: 4: 5: 6: 7: 8:

Text45 cboEquip txtName eType ASE cboAltCode cboAlternate Qty Checked QTYPERRM EXQTY new Unitcost txtDiscount txtUnitcost Remarks $15,952 10215 Cast Removal System: Includes Hand Held Cutter wth Blade, Mobile Vacuum Cannister, and Cast Spreaders M 0 1343 Base Bid 0 1.00 0 1.00 $2,400.00 1.00 $2,400.00 $15,952 12706 "Workstation: Imaging Information Processor with 17"" Flat Panel Monitor; CPU and Preloaded Standard Software." M -1 23371 Base Bid 0 1.00 0 1.00 $3,000.00 1.00 $3,000.00 $15,952 14215 "TV: 20"" Color, with Remote Control" N 0 12665 Base Bid 0 3.00 0 3.00 $289.00 1.00 $867.00 $15,952 17146 Oven: Microwave, Residential, Countertop or Cabinet Mounted N -1 6445 Base Bid 0 1.00 0 1.00 $650.00 1.00 $650.00 $15,952 19661 "Stretcher: Electric, with 4"" Thick Mattress" M -1 1731 Base Bid 0 1.00 0 1.00 $5,600.00 1.00 $5,600.00 $15,952 19721 Scale: Stand On, Digital, with Handrail, A/C Adapter M -1 1768 Base Bid 0 1.00 0 1.00 $2,595.00 1.00 $2,595.00 $15,952 19899 "Wheelchair: Adult, Standard, 18"" wide Seat, with Anti-Fold Device, Perm Arms, Fixed Feet, Black" N 0 21829 Base Bid 0 3.00 0 3.00 $280.00 1.00 $840.00

Answer : Need Microsoft VBA to loop through clipboard and add records via sql statement executed by Currentdb?

   Dim DataObj As New MSForms.DataObject
   Dim S As String
   Dim Lines as Variant
   Dim Line as String
   DataObj.GetFromClipboard
   S = DataObj.GetText
   'You now have a string containing the clipboard text.
   
   Lines = Split(S, Chr(13))
   'This splits the string into a set of individual lines
   For Each Line in Lines
      'Put your code to handle each line here
   Next