Link to home
Start Free TrialLog in
Avatar of Svgmassive
Svgmassive

asked on

import data from a closed workbbok

i am using the adapted code below to import data from a closed workbook.I am using 2013 with the xlsb extension. using the xlsb extension cases it to fail.I am importing about 20 workbooks at a time.can we modify the code to make it work ? thanks
    If Header = False Then
        If Val(Application.Version) < 12 Then
            szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 8.0;HDR=No"";"
        Else
            szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=No"";"
        End If
    Else
        If Val(Application.Version) < 12 Then
            szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 8.0;HDR=Yes"";"
        Else
            szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=Yes"";"
        End If
    End If
Avatar of James Elliott
James Elliott
Flag of United Kingdom of Great Britain and Northern Ireland image
What string have you assigned to your 'sourcefile' variable?

Please post all of your code.

Thanks
Avatar of James Elliott
James Elliott
Flag of United Kingdom of Great Britain and Northern Ireland image
And also, if you are importing just xlsb files then they will only import into application.version >= 12.0

This might also be your problem.
Avatar of Professor J
Professor J
I am interested to see the solution for this thread. As I have similar issue with Ado which will post the question in a new thread
Avatar of Svgmassive
Svgmassive

ASKER

the sourceflle is the path and work book, what ever ou want it to be ,the last line is   cnn.Open szConnect
Avatar of James Elliott
James Elliott
Flag of United Kingdom of Great Britain and Northern Ireland image
Just to be clear, you say that you are having problems with a particular file extension, but yet you don't want to post details of how this is being handled in your sourcefile variable??
Avatar of Svgmassive
Svgmassive

ASKER

Dim szConnect As String: Dim cnn As New ADODB.Connection:

   szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                        "Data Source=" & SourceFile & ";" & _
                        "Extended Properties=""Excel 12.0;HDR=Yes"";"


  szConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\TOYS\Desktop\ALL_TEST\2014\Jul_2014\7_1_2014\Book1.xlsb;Extended Properties=Excel 8.0;

cnn.Open szConnect,,,,,,It fails right here

this should be more than enough  there is nothing more
ASKER CERTIFIED SOLUTION
Avatar of James Elliott
James Elliott
Flag of United Kingdom of Great Britain and Northern Ireland image
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial