Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Angajator privat - obligatie plat...

Sfat achiziție laptop max 30...

Achizitionarea primului Atv

Ce arbusti/pomi sunt in imagine
 DAMEX - Card VISA cu Plan in func...

Jardiniera din OSB

Problema cuptor Arctic

Cum as putea adormi mai repede se...
 Suspendare permis conducere pentr...

Recomandare bormasina (Buget: ~20...

Masina SH 6000 euro

Glet peste calciu
 Facultatea de Agronomie - Agricul...

mobilat sau nemobilat/semimobilat?

Contract de schimb

Snapdragon 8 Gen 4 - stire
 

Verificare fisier deschis in VB 6.5

- - - - -
Last Updated: Nov 05 2008 13:46, Started by dcrst755 , Nov 04 2008 17:59  
  ·  
  • Please log in to reply
7 replies to this topic

#1
dcrst755
Posted 04 November 2008 - 17:59

dcrst755

    Active Member

  • Grup: Members
  • Posts: 1,294
  • Înscris: 26.08.2008
sal
fiind novice in VB cer un mic ajutor dupa ce am tot citit pe net de-mi plezneste capu si zeci de incercari.
Am facut un Macro care tb sa scrie dintr-un workbook in alte 2 fisiere .xls datele introduse in primul.
Toate bune si frumoase pana in momentul in care dc unul din cele 2 fisiere in care scrie este deschis, da eroare.
cum verific dc un fieiser .xls este deschis sau nu. dc e deschis, sa atentioneze utulizatoru.

Merci!

Edited by dcrst755, 04 November 2008 - 18:00.

#2
ionut_y
Posted 04 November 2008 - 18:15

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005

View Postdcrst755, on Nov 4 2008, 18:59, said:

sal
fiind novice in VB cer un mic ajutor dupa ce am tot citit pe net de-mi plezneste capu si zeci de incercari.
Am facut un Macro care tb sa scrie dintr-un workbook in alte 2 fisiere .xls datele introduse in primul.
Toate bune si frumoase pana in momentul in care dc unul din cele 2 fisiere in care scrie este deschis, da eroare.
cum verific dc un fieiser .xls este deschis sau nu. dc e deschis, sa atentioneze utulizatoru.

Merci!
o solutie ar fi sa prinzi eroarea cu On Error,sa consulti mesajul sau numarul sau si sa afisezi tu un mesaj particularizati,vezi
Err.Description,Err.Number

#3
dcrst755
Posted 04 November 2008 - 18:37

dcrst755

    Active Member

  • Grup: Members
  • Posts: 1,294
  • Înscris: 26.08.2008
pai da prind eroarea...dar de la ce comanda ca de la Open nu vrea. Eu am incercat ca mai jos:

Sub TestOpen()
        fistmp1 = "\\Cristian\work\Evidenta P-V.xls"
        fistmp2 = "\\Cristian\work\Raport Activitate.xls"
        Open fistmp1 For Random As #1
        Open fistmp2 For Input As #2
        On Error GoTo err_handler
  
  
err_handler:
        Select Case Err.Number
            Case 20: MsgBox "Fisiere deschise!!!     Va rog asigurati va ca sunt inchise"
            Case 53: MsgBox "Nu gasesc fisierele in care trebuie sa scriu!!!"
            Case 55: MsgBox "Fisiere deschise!!!     Va rog asigurati va ca sunt inchise"
            Case 71: MsgBox "Nu sunt accesibile in retea fisierele"
        End Select

        Close #1
        Close #2
End Sub

dar dupa comanda Open nu-mi capteaza nici o eroare.

#4
ionut_y
Posted 04 November 2008 - 19:16

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005
On error trebuie pus inainte de Open

#5
dcrst755
Posted 05 November 2008 - 10:49

dcrst755

    Active Member

  • Grup: Members
  • Posts: 1,294
  • Înscris: 26.08.2008
cum trbuie pus inainte de Open ?!?!
ca face saltul la err_handler: inainte de a-mi deschide fisierele ? Secventa de cod e luata dintr-un tutorial.

ideea este ca in codul de mai sus indiferent daca sunt deschise sau nu de cineva cele 2 xls-uri comanda Open nu-mi genereaza nici o eroare iar Err.Number are valoarea 0.

#6
dcrst755
Posted 05 November 2008 - 11:34

dcrst755

    Active Member

  • Grup: Members
  • Posts: 1,294
  • Înscris: 26.08.2008
mda...l-am pus si inainte de Open si degeaba. nu vede ca fisierul este deschis.

#7
ionut_y
Posted 05 November 2008 - 13:00

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005
Sub TestOpen()
On Error GoTo err_handler

fistmp1 = "\\Cristian\work\Evidenta P-V.xls"
fistmp2 = "\\Cristian\work\Raport Activitate.xls"
Open fistmp1 For Random As #1
Open fistmp2 For Input As #2


Close #1
Close #2

Exit Sub
err_handler:
Select Case Err.Number
Case 20: MsgBox "Fisiere deschise!!! Va rog asigurati va ca sunt inchise"
Case 53: MsgBox "Nu gasesc fisierele in care trebuie sa scriu!!!"
Case 55: MsgBox "Fisiere deschise!!! Va rog asigurati va ca sunt inchise"
Case 71: MsgBox "Nu sunt accesibile in retea fisierele"
End Select
End Sub

Folosete codul corectat mai sus,l-am scris direct in browser nu l-am verificat in VB,daca nu merge pune un beakpoint
pe Select Case Err.Number si vezi exact ce valoare are Err.Number

View Postdcrst755, on Nov 5 2008, 11:49, said:

cum trbuie pus inainte de Open ?!?!
ca face saltul la err_handler: inainte de a-mi deschide fisierele ? Secventa de cod e luata dintr-un tutorial.

ideea este ca in codul de mai sus indiferent daca sunt deschise sau nu de cineva cele 2 xls-uri comanda Open nu-mi genereaza nici o eroare iar Err.Number are valoarea 0.

Pai asa este pentru ca indiferent de situatie la tine se executa si parte de dupa  err_handler:,vezi ca am pus un Exit Sub.

Edited by ionut_y, 05 November 2008 - 12:57.

#8
dcrst755
Posted 05 November 2008 - 13:46

dcrst755

    Active Member

  • Grup: Members
  • Posts: 1,294
  • Înscris: 26.08.2008
merci mult. am inteles
pana la urma am reusit astfel:

Sub Salvare()
        Dim fistmp As String
        fistmp1 = "\\Cristian\all\Evidenta P-V.xls"
        fistmp2 = "\\Cristian\all\Raport Activitate.xls"
        If IsFileLocked(fistmp1) Or IsFileLocked(fistmp2) Then
            MsgBox " !!! Fisiere deschise !!!"
            MsgBox "Datele NU s-au SALVAT. Iesiti din fisierele folosite si salvati din nou!"
        Else
            .......................
        End If
End Sub

Function IsFileLocked(ByVal fileName As String) As Boolean
On Error Resume Next
Open fileName For Binary Access Read Write Lock Read Write As #1
Close #1
If Err.Number <> 0 Then
IsFileLocked = True
Err.Clear
Else
IsFileLocked = False
End If
End Function

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro
Back to Visual Basic

▶ 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Forumul Softpedia
  2. → Professional Zone
  3. → Programming
  4. → Visual Basic
Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate