Fejl 1004 ved data import på .CommandType = 5
HejoJeg er ved at prøve at lave en workbook hvor, når man åbner filen, at den selv henter en liste ned fra en sharepoint server (som så bliver slettet når man er færdig med det)
Via macro recorderen har jeg hittet mig noget kode - og det virker fint når jeg henter data ned manuelt - men koden gider ikke at virke, og jeg kan ikke forstå hvorfor.
Her er min kode:
Sub Import_List()
'
' Import_List Macro
' This code automatically imports the tool list in the right view
'
'
With Sheets("Sheet1").ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Office.List.OLEDB.2.0;Data Source="""";ApplicationName=Excel;Version=12.0.0.0" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = 5 'Det er den her linje som kaster en fejl 1004 af sig
.CommandText = Array( _
"<LIST><VIEWGUID>{75AB5376-AC5F-444A-A7AE-D984214EA11E}</VIEWGUID><LISTNAME>{A6479E9F-EA76-424D-B9BA-F8C2845F3765}</" _
, _
"LISTNAME><LISTWEB>*firma URL i ikke har brug for at se*" _
, _
"lding/_vti_bin</LISTWEB><LISTSUBWEB></LISTSUBWEB><ROOTFOLDER>/sites/Engineering/injection_moulding/Equipment/inject" _
, "ionmoulding/Lists/Tool Overview</ROOTFOLDER></LIST>")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = "C:\Users\DKALE\Desktop\owssvr.odc"
.ListObject.DisplayName = "Tool_list"
.Refresh BackgroundQuery:=False
End With
End Sub