Export Excel nummer celle til access med text værdi
Jeg har et excel ark med tekst og nummer kolonner, men skidt sker og i nummer kolonnerne kan der komme text og det er meningen at jeg skal kunne fange det i access og smide det i en tabelJeg har prøvet DoCmd.TransferSpreadsheet , men hvor der er tekst i nummer kolonnen, bliver celle værdien ikke medtaget.
Jeg prøvede så neden stående kode, og i debug.print kommer der ikke en værdi hvor jeg have smidt noget tekst i nummer kolonnen
Er der en måde at få fat i den værdi (alt skal ske med kode) ?
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strHeader As String
Dim strValues As String
strHeader = ""
strValues = ""
Set db = OpenDatabase(CurrentProject.Path & _
"\Kostenoverzicht tbv boekje.xls", _
False, True, "Excel 12.0; HDR=Yes;")
Set rst = db.OpenRecordset("DB Load$")
'get name of columns
For Each fld In rst.Fields
strHeader = strHeader & fld.Type & vbTab
Next
Debug.Print strHeader
'get cell values
'Do Until rst.EOF
rst.Move 31
For Each f In rst.Fields
strValues = strValues & f.Value & "-" & f.Type & vbTab & vbTab
Next
Debug.Print strValues
' strValues = ""
' rst.MoveNext
'Loop
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing