TransferSpreadSheet Function

[vza]

I have an VB app which transfers converted Excel spreadsheets to a format acceptable foe insertion into a Access database. I use the TransferSpreadshet Function to transfer the spreadsheet (once it has been altered) into the DB. Everything worked fine when inserted into a test (temporary) table. But we I tried to add the data to my existing table (over thousands of entries) the line of code executes but nothing is transferred into the table...I am confused...Help specifically states that this function can be used to append data to an existing table...

Here is my code:

  ' ***Transfer***
        xlstr = ConvertForm.ExcelText.Text
        Range = GetUsedRange(xlstr, "Sheet1")

    ' Create Access Appilcation Object
        Set axApp = CreateObject("Access.Application")

    ' Open Access Database
        axApp.OpenCurrentDatabase ConvertForm.AccessText.Text

    ' Transfer Excel Spreadsheet to Access Database
        axApp.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "FollowSheetInfo", ConvertForm.ExcelText.Text, True, Range

    ' Quit Access Application
        axApp.Quit
        Set axApp = Nothing

Thanks,
-vza

 

[SkipVought]

Hi,

I can't find ConvertForm or GetUsedRange in Access VB. What other libraries are you referencing?

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com