Problems with importing data since upgrading to Windows 7

Perksy_no1

Well-known Member
Joined
Oct 27, 2011
Messages
598
Office Version
  1. 365
Platform
  1. Windows
Hi There,

I've got some code which imports some data from an access database which has been working fine for ages. My colleague has recently upgraded to Windows 7 and now when she tries to run the code she gets the error "Run Tmie Error 1004, Could not find installabe ISAM"

Heres the code it refers to

Code:
    StrFilepath = Sheets("FC_Data").Range("A1").Value
    StrImportFileName = Sheets("FC_Data").Range("A2").Value
    
    
'This uses the file path you imported to create a Pivot table of the forecast
    ActiveWorkbook.Connections.Add _
        "& StrImportFileName &" & "consolidation", "", Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & StrFilepath & "" _
        , _
        ";Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Passwor" _
        , _
        "d="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transac" _
        , _
        "tions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don" _
        , _
        "'t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Dat" _
        , "a=False;Jet OLEDB:Bypass UserInfo Validation=False"), Array("consolidation") _
        , 3
        
        'Create pivot table from connection
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
        ActiveWorkbook.Connections("& StrImportFileName &" & "consolidation") _
        , Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:= _
        "FC_Data!R3C7", TableName:="ImprintFcst", DefaultVersion:= _
        xlPivotTableVersion14

Any help would be much appriecated as I upgrade to windows 7 next week and a lot of my work books use code simialr to this

Thanks in advance

Mark
 

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.

Forum statistics

Threads
1,224,853
Messages
6,181,412
Members
453,038
Latest member
muhsen

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top