Perksy_no1
Well-known Member
- Joined
- Oct 27, 2011
- Messages
- 598
- Office Version
- 365
- Platform
- 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
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
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