lovecity7
چهارشنبه 16 مهر 1393, 12:50 عصر
سلام خدمت دوستان گرامی
می خواهم از کدی استفاده کنم تا فایل اکسل را به دیتابیس اکسس نرم افزارتبدیل کند .
لطفاً راهنمایی کنید.
gilsoft
پنج شنبه 17 مهر 1393, 15:38 عصر
سلام خدمت دوستان گرامی
می خواهم از کدی استفاده کنم تا فایل اکسل را به دیتابیس اکسس نرم افزارتبدیل کند .
لطفاً راهنمایی کنید.
سلام دوست عزیز
ابتدا رفرنس 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 شماست ... و مقدار اونو باید شما تعیین کنی ...
موفق باشید ....
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.