kopieren vanaf gesloten bestand dat op een server staat

[Jelle2010]

Beste experts,

Op een server heb ik een bestandje staan genaamd debiteuren.xls met 1 werkblad(sheet1). De server heeft als locatienaam: \\srv-ap-srv321\CognosArchive\Stamgegevens

Ik wil graag met vba alle gegevens kopieren van debiteuren.xls naar een werkblad in mijn geopende bestand. Ik krijg dit niet voor elkaar, omdat ik niet kan verwijzen naar een schijf.

Alvast vriendelijk bedankt voor jullie hulp.

Jelle2010

 

[wampier]

Welk commando gebruik je om het bestand te openen? Kun je de voorbeeldcode geven? De interne "open" instructie ondersteund volgens mij gewoon server references.

off-topic:
Ikzelf los dit op buiten excel met een klein stukje C# code die op de achtergrond een excel creerd, database queries etc. doet en de excel vult met de juiste info voordat de excel op het scherm verschijnd.

 

[wampier]

De volgende code heb ik even getest (met remote server) en deze werkt:

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Interactive = False
 
Set huidig = ActiveWorkbook
huidig.Application.Workbooks.Open Filename:="\\remote\mapped drive\sub1\sub2\sub3\file.xls"
Set remote = ActiveWorkbook
remote.Sheets.Copy After:=huidig.Worksheets("Sheet1")
remote.Close
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Interactive = True

deze code kopieert alle sheets van de remote xls, achter de sheet genaamd "sheet1". De werking kan als volgt verfijnd worden:

'After:=" kan vervangen worden door 'Before:=' om voor een sheet te plakken.

Indien je niet wil plakken voor of achter een sheet met een naam kun je:

 After:=huidig.Worksheets("Sheet1")

vervangen met

  After:=huidig.sheets(1)

dan worden de sheets geplakt achter de eerste sheet