How to Import selected columns from an Excel to MS ACCESS?

[johny6685]

Hi All,

I would like to export selected columns from an excel sheet to MS Access. All the columns are not together, they are B, C, Z and AA.

I used Transferspreads heet but only ranges without gaps can be achieved in it as per my review

I used SQL query code as below, even that shows an error as "Too few parameters, expected 4". Please help me out to successfully complete this import.

ssql = "INSERT INTO [MS Access;DATABASE=C:\Users\" & usrnm & "\Desktop\Aging_Report.accdb].[COMMERCIAL_DETAIL] ( [SUPERVISOR NAME], [PRODUCT], [AGE], [STATUS] ) SELECT [COMMERCIAL_DETAIL$].[B], [COMMERCIAL_DETAIL$].[C], [COMMERCIAL_DETAIL$].[Z], [COMMERCIAL_DETAIL$].[AA] FROM [COMMERCIAL_DETAIL$]"

DoCmd.TransferSpreadsheet acImport, 10, "COMMERCIAL_DETAIL", Form_frmRptUpld.RPath.Value, True, "B:C,Z:AA"

[johny6685]

OK!!! I did the below way and it worked out. Thanks anyways....

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM TABLEA"
DoCmd.TransferSpreadsheet acImport, 10, "tblTempPartSearch", Form_frmRptUpld.RPath.Value, True, "B:AA"
'DoCmd.OpenQuery "QryApndTABLEA"
DoCmd.RunSQL "INSERT INTO TABLEA ( F1, f2, f3, f4 ) SELECT tblTempPartSearch.[f1], tblTempPartSearch.f2, tblTempPartSearch.f3, [tblTempPartSearch].f4 FROM tblTempPartSearch"
DoCmd.RunSQL "DROP TABLE tblTempPartSearch"

DoCmd.SetWarnings True