ajutor incepator VBA

#1
Sorin16

Posted 09 August 2015 - 12:54

Junior Member

Grup: Members
Posts: 155
Înscris: 24.08.2007

Salut,

Sunt un incepator in ale VBA-ului si incerc sa invat prin realizarea de mici aplicatii.
Astfel m-am lovit de o mica problema pentru urmatoarea aplicatie:

Sub copy()
Dim s As String
Dim d As String
s = "D:\VBA\Test\"
d = "D:\VBA\Test 2\"
FileCopy s, d
End Sub

In momentul cand rulez imi da eroarea 75 daca pun adresa folderelor fara ultima "\" si 76 daca pun "\".

Ceva idei de debug?

Merci,
Sorin

Back to top

#2
neagu_laurentiu

Posted 09 August 2015 - 12:57

Guru Member

Grup: Senior Members
Posts: 40,604
Înscris: 30.07.2003

Tu pe cine vrei sa copii de ici colo ca n-ai specificat ! "Test" si "Test 2" sunt directoare si nu fisiere.

Edited by neagu_laurentiu, 09 August 2015 - 12:58.

Back to top

#3
Sorin16

Posted 09 August 2015 - 12:59

Junior Member

Grup: Members
Posts: 155
Înscris: 24.08.2007

In folderul test am mai multe fisiere diverse dimensiuni si extensii. As vrea ca fisierele din test sa le copiez in test 2.

Back to top

#4
neagu_laurentiu

Posted 09 August 2015 - 13:02

Guru Member

Grup: Senior Members
Posts: 40,604
Înscris: 30.07.2003

Si saracul calculator de unde sa stie daca nu-i spui ?
Daca le vrei pe toate, o idee ar fi:
s = "D:\VBA\Test\*.*"

Back to top

#5
Sorin16

Posted 09 August 2015 - 13:04

Junior Member

Grup: Members
Posts: 155
Înscris: 24.08.2007

In continuare nu functioneaza.

Back to top

#6
neagu_laurentiu

Posted 09 August 2015 - 13:44

Guru Member

Grup: Senior Members
Posts: 40,604
Înscris: 30.07.2003

Inseamna ca acea metoda nu stie de parcurga fisierele date sub acea masca.
Foloseste alta precum aceasta: https://msdn.microso...(v=vs.110).aspx

Back to top

#7
salex

Posted 26 September 2015 - 14:22

Member

Grup: Members
Posts: 274
Înscris: 05.09.2005

In VBA se foloseste pentru iteratie prin fisiere, cu masca sau fara, functia DIR.

Dir cu argument seteaza calea spre fisiere si masca fisierelor. Intoarce sir gol "" daca nu mai gaseste nimic, altfel intoarce numele primului fisier gasit (neordonate)
Dir fara argument sare la urmatorul fisier posibil, bazat pe calea si masca initiale.

file=Dir(cale\masca)
while file<>""
.........bla ...bla...
file=Dir
wend

Edited by salex, 26 September 2015 - 14:24.

Back to top

Anunturi

Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

ajutor incepator VBA

#1 Sorin16 Posted 09 August 2015 - 12:54

#2 neagu_laurentiu Posted 09 August 2015 - 12:57

#3 Sorin16 Posted 09 August 2015 - 12:59

#4 neagu_laurentiu Posted 09 August 2015 - 13:02

#5 Sorin16 Posted 09 August 2015 - 13:04

#6 neagu_laurentiu Posted 09 August 2015 - 13:44

#7 salex Posted 26 September 2015 - 14:22

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Sorin16

Posted 09 August 2015 - 12:54

#2
neagu_laurentiu

Posted 09 August 2015 - 12:57

#3
Sorin16

Posted 09 August 2015 - 12:59

#4
neagu_laurentiu

Posted 09 August 2015 - 13:02

#5
Sorin16

Posted 09 August 2015 - 13:04

#6
neagu_laurentiu

Posted 09 August 2015 - 13:44

#7
salex

Posted 26 September 2015 - 14:22