M
marsulein
Dim strTemp As String
Dim objExcel As Object
Dim cnnExcel As String
strTemp = objExcel.Fields("Resource").Value
I open the connection this way:
cnnExcel = "driver={Microsoft Excel Driver (*.xls)};" & _
"dbq=<*some path*>;" & _
"Extended Properties=""Exce
8.0;HDR=Yes"""
objExcelAdd.Open "SELECT * FROM [New To be added$]", cnnExcel, 1,
Dim objExcel As Object
Dim cnnExcel As String
strTemp = objExcel.Fields("Resource").Value
I open the connection this way:
cnnExcel = "driver={Microsoft Excel Driver (*.xls)};" & _
"dbq=<*some path*>;" & _
"Extended Properties=""Exce
8.0;HDR=Yes"""
objExcelAdd.Open "SELECT * FROM [New To be added$]", cnnExcel, 1,