import excel to acess-just a mess

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi
I am trying to import, or should say read, an excelarc to later work
wiht it for my accessDB. but this ends up in just a mess, i.e when I
look at the variable strSQLImport it's not even readable. Anyone knows
what I've done wrong.

Option Compare Database
Function RunImportExcel()

Dim strPathFile As String
Dim strFile As String
Dim strLine As String
Dim strPath As String
Dim theStr As String
Dim blnHasFieldNames As Boolean
Dim strSQLImport As String

strDir = Forms![importWhat]![dir] & "/"
strFile = Forms![importWhat]![file]
strLine = strDir & strFile & ".xls"

tblImportToSplit = strLine

Open tblImportToSplit For Input As #1
Do While Not EOF(1)
Line Input #1, strSQLImport

Thanks in advance for an anwser
/Michelle
.

Relevant Pages

  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)
  • Auto Write Name and Merge across
    ... Dim Sheetname01 As String ... Dim WeekName01 As String ...
    (microsoft.public.excel.misc)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Help answer these 70-310 questions
    ... One argument is the string ... Dim output As New StringBuilder ... EmployeeLocations. ... You create a strongly named serviced component. ...
    (microsoft.public.cert.exam.mcsd)