tonissteiner
Gebruiker
- Lid geworden
- 17 sep 2008
- Berichten
- 337
Hallo,
ik zit vast in een code. Met deze code kan ik perfect een XML file openen vanop bijvoorbeeld een C-drive.
Echter staan de files die ik wil gebruiken op een SharePoint locatie (http://intra.egemin.be/teams/egv/Design Summaries/Forms/AllItems.aspx)
Ik heb zelf al één en ander uitgetest om automatisch in deze folder het opstartvenster weer te geven maar ik boek geen resultaat.
kan iemand me verder helpen aub, hoe ik deze code moet aanpassen:
Alvast bedankt voor jullie reacties
ik zit vast in een code. Met deze code kan ik perfect een XML file openen vanop bijvoorbeeld een C-drive.
Echter staan de files die ik wil gebruiken op een SharePoint locatie (http://intra.egemin.be/teams/egv/Design Summaries/Forms/AllItems.aspx)
Ik heb zelf al één en ander uitgetest om automatisch in deze folder het opstartvenster weer te geven maar ik boek geen resultaat.
kan iemand me verder helpen aub, hoe ik deze code moet aanpassen:
Code:
Sub LoadXML()
'-----------Open file---------------------------
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Application.DisplayAlerts = False
' File filters
Filter = "XML Files (*.xml),*.xml"
' Default Filter to *.*
FilterIndex = 3
' Set Dialog Caption
Title = "Select a File to Open"
' Select Start Drive & Path
ChDrive ("C")
ChDir ("C:")
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
Exit Sub
End If
' Open File
MsgBox Filename, vbInformation, "File Opened"
'------------- Load XML ------------------
Workbooks.OpenXML Filename:= _
Filename, _
LoadOption:=xlXmlLoadImportToList
'------------- END Load XML ------------------
Application.DisplayAlerts = True
End Sub
Alvast bedankt voor jullie reacties