تبدیل اکسل به دیتابیس اکسس

[lovecity7]

سلام خدمت دوستان گرامی
می خواهم از کدی استفاده کنم تا فایل اکسل را به دیتابیس اکسس نرم افزارتبدیل کند .
لطفاً راهنمایی کنید.

[gilsoft]

سلام خدمت دوستان گرامی
می خواهم از کدی استفاده کنم تا فایل اکسل را به دیتابیس اکسس نرم افزارتبدیل کند .
لطفاً راهنمایی کنید.

سلام دوست عزیز

ابتدا رفرنس Imports Microsoft.Office.Interop رو به پروژه Add کن

اینم کد مربوطه :

Sub ExcelToAccess()


Dim xlFile As String = "MyExcelFile.xlsx"
Dim DbFile As String = "MyAccessFile.accdb"
Dim TableName As String = "MyTable"


Dim oAcs As New Microsoft.Office.Interop.Access.Application
With oAcs
.OpenCurrentDatabase(DbFile, False)
.Visible = True


.DoCmd.TransferSpreadsheet(Access.AcDataTransferTy pe.acImport, _
Access.AcSpreadSheetType.acSpreadsheetTypeExcel12, _
TableName, xlFile, True, "A1:D20")
.CloseCurrentDatabase()
.Quit(Access.AcQuitOption.acQuitSaveAll)
End With
oAcs = Nothing
End Sub



"A1:D20" در واقع محدوده‌ي Data در فایل Excel شماست ... و مقدار اونو باید شما تعیین کنی ...

موفق باشید ....