انتقال اطلاعات از Excel به VB

[sima jahanbakhsh]

سلام
من احتياج به کدي دارم که از طریق اون بتونم تعدادي داده را از excel به vb انتقال بدم ..لازم به ذکر است که من اين کد را در محيط Vb استفاده نميکنم بلکه در محيط يک نرم افزار که در آن ميشه با زبان VB برنامه نوشت استفاده ميکنم . ممنون ميشم اگه راهنماییم کنيد ..

[HjSoft]

میشه بیشتر توضیح بدین . یعنی چی در vb استفاده نمی کنم . منظورتون از انتقال داده چیه ؟ از بانک استفاده می کنید ؟

[M.T.P]

کد زیر شاید بتونه کمکتون کنه (اکسل به پایگاه داده اکسس)




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:\FolderName\DataBaseName.mdb")
' open the database
Set rs = db.OpenRecordset("TableName", 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("FieldName1") = Range("A" & r).Value
.Fields("FieldName2") = Range("B" & r).Value
.Fields("FieldNameN") = Range("C" & 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