تبدیل فایل xlsm به mdb [بایگانی]

www.pc3enter.tk

دوشنبه 30 مهر 1397, 21:24 عصر

بفرما اینها را یک نگاه بنداز شاید کارت راه بی افته

https://www.techwalla.com/articles/how-to-convert-xls-to-mdb

https://stackoverflow.com/questions/4045521/how-do-i-convert-an-excel-xls-to-an-access-mdb-using-excel-vba

این هم نمونه کد البته کامل دقیق و کافی نیست ولی شاید کار راه انداز باشه
منبع : https://www.experts-exchange.com/questions/24535914/Convert-xls-to-mdb.html

Private Sub cmdImport_Click()

Dim strFileName As String ' filename we are importing from

'get filename from user to import
If strFileName = "" Then
With ComDlg
.CancelError = True
.Filter = "XLS Files (*.xls)|*.xls" _
& "|All Files (*.*)|*.*"
.DefaultExt = ".ext"
.DialogTitle = "Select File"
.FilterIndex = 1
'.InitDir = "default directory goes here"
.Flags = cdlOFNHideReadOnly
.ShowOpen
If .FileName <> "" Then strFileName = .FileName
End With
End If

'do import of file
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "ImportTable", strFileName, True, "ImportArea"
Exit_cmdImport_Click:

Exit Sub