Beste,
Graag hulp bij t volgende.
Het probleem:
Op netwerklocatie staat een excel workbook, probeer ik met onderstaande code ( met de macrorecorder opgenomen in mijn worbook te krijgen, maar krijg foutmeldingen alles geprobeerd mbt readwrite read write e.d. aan te vinken.
Wat wel werkt is het bestand handmatig naar de eigen computer te kopieren en vervolgens onderstaande code te draaien. waarbij \\MSV006\piet$\documents\DATALOAD\
De eigen pc is
Graag hulp bij t volgende.
Het probleem:
Op netwerklocatie staat een excel workbook, probeer ik met onderstaande code ( met de macrorecorder opgenomen in mijn worbook te krijgen, maar krijg foutmeldingen alles geprobeerd mbt readwrite read write e.d. aan te vinken.
Wat wel werkt is het bestand handmatig naar de eigen computer te kopieren en vervolgens onderstaande code te draaien. waarbij \\MSV006\piet$\documents\DATALOAD\
De eigen pc is
Code:
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=\\MSV006\piet$\documents\DATALOAD\ET_ORACLE_I" _
, _
"NV_SRC1.xls;Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLE" _
, _
"DB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB" _
, _
":Global Bulk Transactions=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" _
), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("ET_ORACLE_INV_SRC1$")
.Name = "ET_ORACLE_INV_SRC1_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
"\\MSV006\piet$\documents\DATALOAD\ET_ORACLE_INV_SRC1.XLS"
.Refresh BackgroundQuery:=False
End WithJe bericht