Code:
Option Compare DatabasePublic Function qryInsertIntoProducts_csv(csvFile As String) As String sql = "" sql = sql & " INSERT INTO Products_csv" sql = sql & " ( ID" sql = sql & " , NAME" sql = sql & " , IMAGE1" sql = sql & " , IMAGE2" sql = sql & " , IMAGE3" sql = sql & " , IMAGE4" sql = sql & " , IMAGE5" sql = sql & " , IMAGE6" sql = sql & " , IMAGE7" sql = sql & " , IMAGE8" sql = sql & " , CATEGORY_1" sql = sql & " , CATEGORY_2" sql = sql & " , CATEGORY_3" sql = sql & " , PVD" sql = sql & " , BRAND" sql = sql & " , EAN13" sql = sql & " , WIDTH" sql = sql & " , HEIGHT" sql = sql & " , DEPTH" sql = sql & " , WEIGHT" sql = sql & " , ATTRIBUTE1" sql = sql & " , ATTRIBUTE2" sql = sql & " , VALUE1" sql = sql & " , VALUE2" sql = sql & " , DESCRIPTION" sql = sql & " , CONDITION" sql = sql & " )" sql = sql & " SELECT" sql = sql & " ID" sql = sql & " , NAME" sql = sql & " , IMAGE1" sql = sql & " , IMAGE2" sql = sql & " , IMAGE3" sql = sql & " , IMAGE4" sql = sql & " , IMAGE5" sql = sql & " , IMAGE6" sql = sql & " , IMAGE7" sql = sql & " , IMAGE8" sql = sql & " , Left(CATEGORY,4) AS CATEGORY_1" sql = sql & " , Mid(CATEGORY,6,4) AS CATEGORY_2" sql = sql & " , Right(CATEGORY,4) AS CATEGORY_3" sql = sql & " , PVD" sql = sql & " , BRAND" sql = sql & " , EAN13" sql = sql & " , WIDTH" sql = sql & " , HEIGHT" sql = sql & " , DEPTH" sql = sql & " , WEIGHT" sql = sql & " , ATTRIBUTE1" sql = sql & " , ATTRIBUTE2" sql = sql & " , VALUE1" sql = sql & " , VALUE2" sql = sql & " , " sql = sql & " Trim(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace(" sql = sql & " Replace([DESCRIPTION],'<br>',' ')" sql = sql & " , '<b>',' ')" sql = sql & " , '</b>',' ')" sql = sql & " , '<ul><li>',' ')" sql = sql & " , '</li><li>',' ')" sql = sql & " , '</li></ul>',' ')" sql = sql & " , '</li>',' ')" sql = sql & " , '<p>',' ')" sql = sql & " , '</p>',' ')" sql = sql & " , '<strong>',' ')" sql = sql & " , '</strong>',' ')" sql = sql & " ,'<p dir=""ltr"">',' ')" sql = sql & " )" sql = sql & " " sql = sql & " , CONDITION" sql = sql & " FROM" sql = sql & " " & csvFile qryInsertIntoProducts_csv = sqlEnd Function