Solved

import data from a closed workbbok

Posted on 2014-10-06
7
70 Views
Last Modified: 2014-11-03
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
0
Comment
Question by:Svgmassive
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
7 Comments
 
LVL 12

Expert Comment

by:James Elliott
ID: 40363805
What string have you assigned to your 'sourcefile' variable?

Please post all of your code.

Thanks
0
 
LVL 12

Expert Comment

by:James Elliott
ID: 40363808
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.
0
 
LVL 26

Expert Comment

by:ProfessorJimJam
ID: 40363852
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
0
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 

Author Comment

by:Svgmassive
ID: 40363898
the sourceflle is the path and work book, what ever ou want it to be ,the last line is   cnn.Open szConnect
0
 
LVL 12

Expert Comment

by:James Elliott
ID: 40363910
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??
0
 

Author Comment

by:Svgmassive
ID: 40364183
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
0
 
LVL 12

Accepted Solution

by:
James Elliott earned 500 total points
ID: 40364536
Try changing extended properties 12.0 instead of 8.0
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
If you need to forecast numbers -- typically for finance -- the Windows and Mac versions of Excel 2016 have a basket of tools to get the job done.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

623 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question