Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
import access into excel
i have modified this script: http://www.exceltip.com/show_tip/Imp...Excel/425.html in: Code ------------------- Sub ADO_TOTALE() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long Dim rsFind As ADODB.Recordset ' connect to the Access database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\GCD01F4500\DATI\PUBBLICA\BOUASS\PROVA.MDB ;" ' "Data Source=D:\PROVA\PROVA.MDB;" ' open a recordset Set rs = New ADODB.Recordset rs.Open "TOTALE", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table r = 7 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) 0 ' repeat until first empty cell in column A If Not AlreadyExists(rs, "SERVIZIO", Range("S" & r).Text) Then rs.AddNew ' create a new record 'End If With rs 'add values to each field in the record Sheets("L0785_TOTALE").Select .Fields("DATA_CONT") = Range("A" & r).Value .Fields("DIP") = Range("B" & r).Value .Fields("COD_BATCH") = Range("C" & r).Value .Fields("C/C") = Range("D" & r).Value .Fields("NOMINATIVO") = Range("E" & r).Value .Fields("CAUS") = Range("F" & r).Value .Fields("DARE") = Range("G" & r).Value .Fields("AVERE") = Range("H" & r).Value .Fields("VAL") = Range("I" & r).Value .Fields("SPORT_MIT") = Range("J" & r).Value .Fields("ANOM") = Range("K" & r).Value .Fields("DESCR") = Range("L" & r).Value .Fields("CRO") = Range("M" & r).Value .Fields("ABI") = Range("N" & r).Value .Fields("CAB") = Range("O" & r).Value .Fields("PAG_IMP") = Range("P" & r).Value .Fields("NR_ASS") = Range("Q" & r).Value .Fields("MT") = Range("R" & r).Value .Fields("SERVIZIO") = Range("S" & r).Value .Fields("NOTE_BOU") = Range("T" & r).Value .Fields("SPESE") = Range("U" & r).Value .Fields("DATA_ATT") = Range("V" & r).Value .Fields("COD") = Range("W" & r).Value .Fields("NOTA_LIB") = Range("X" & r).Value .Update ' stores the new record End With End If r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub ------------------- All is ok! I would want the same result in the reverse mode... Import access into excel... and controll the duplicate... -- sal2 ----------------------------------------------------------------------- sal21's Profile: http://www.excelforum.com/member.php...nfo&userid=204 View this thread: http://www.excelforum.com/showthread.php?threadid=27608 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Import into Excel Template from Access db | Links and Linking in Excel | |||
import access data into excel | Excel Discussion (Misc queries) | |||
How do I import from Access to Excel | Excel Discussion (Misc queries) | |||
Import Access into Excel | Excel Discussion (Misc queries) | |||
I can import Access Tables. But, I can't import Access queries | Excel Programming |