verplaatsen bestanden als C1 = 1.

[MJKoolschijn]

Hallo,

Probeer een programma te maken waarbij in ingevulde templates (afgeronde en waar ze nog mee bezig zijn) binnen haal.

Het programma doorzoekt een volledige folder (zie codes B2) alwaar hij uit ieder bestand regel 1 (van de code tab) kopieert.
Deze regel kopieert hij naar de "temp" tab welke tijdelijk in het meegestuurde bestand wordt aangemaakt.

Dit lukt, maar nu wil ik dat als hij een template opent en heeft gekopieerd hij kijkt naar cel C1.
Als C1 = 1 (dan is de template volledig afgerond) Dan kan deze template verplaatst worden naar end lokatie (zie codes B3).

Dit direct verplaatsten zonder hem apart te openen lukt me niet. Is de bedoeling dat hij hem echt verplaatst, hij staat dus niet meer in de "template map", maar alleen in de "end map".

Heb een zip bestandje gemaakt de het voorbeeld en de folders.

Zal voor iemand vast erg eenvoudig zijn, helaas zie ik het niet.

Alvast bedankt.
Maarten

Bekijk bijlage voorbeeld.zip

 

[edmoor]

Dat verplaatsen kan eenvoudig met de functie FileCopy:
https://msdn.microsoft.com/en-us/library/2s1c774y(v=vs.90).aspx

Als dat kopiëren gelukt is kan je met de functie Kill het origineel verwijderen:
https://msdn.microsoft.com/en-us/library/ey1w10ch(v=vs.90).aspx

 

[MJKoolschijn]

He Edmoor,

Heb even gekeken en geprobeert om de copy toe te passen, werkt alleen niet. Zal uiteraard aan mij liggen

Dim Doc As String
Dim Pad As String
Dim DestinationFolder As String
Dim WBook As Workbook
Dim ABook As Workbook
Dim i As Long


Sheets.Add(After:=Sheets(Sheets.Count)).Name = "temp" 'temp sheet added

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

Pad = Sheets("Codes").Range("B2") & ""
Doc = Dir(Pad & "*.xlsx")
DestinationFolder = Sheets("Codes").Range("B3") ' ' Define target file name.
Set ABook = ActiveWorkbook

Application.ScreenUpdating = False
While Doc <> ""
i = i + 1
Workbooks.Open Pad & Doc
Set WBook = ActiveWorkbook
WBook.Sheets("Codes").Range("A1").EntireRow.Copy
ABook.Sheets("temp").Cells(i, 1).PasteSpecial Paste:=xlPasteValues
' copy file
FileCopy(WBook, DestinationFolder)
WBook.Close False
Doc = Dir()
Wend
Application.AskToUpdateLinks = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Rood toegevoegd, maar dit werkt zo niet.

Maarten

 

[edmoor]

Het gaat om bestanden uiteraard, nu geef je een object en een pad op, zo werkt dat inderdaad niet. Gebruik:
FileCopy("Pad_oud\Bestand_oud", "pad_new\bestand_New")

 

[MJKoolschijn]

Bedankt voor je reactie,

Dat is ook de moeilijkheidsgraad.
Ik open alle bestanden uit een folder met onbekende name. Dan moet hij van het geopende stand de value 1 of 0 uitlezen en dan beslissen of deze in de map blijft staan of verplaatst. Heb dus een geopend wBook en een verplaats folder.

Misschien nog andere ideeën?

mvg Maarten

 

[edmoor]

Wat ik laat zien is de juiste syntax van het FileCopy commando. Uiteraard mag je hetgeen tussen " tekens staat vervangen door variabelen.