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 spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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