Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Conectare TV, telefon și pc ...

PROIECT CASUTA MICA IN JUR DE 40M...

Vecini cu chef de renovari.
 La multi ani @TheSignMetro64!

Exista firme DDD dezinsectie Bucu...

Masina noua - plata finala

Laptop 17" - baterie buna
 Uree 239 analize catel

Programare Sala Tulcea

Tensiune mica Smart Forfour 2017

Reglaj a
 Desparțire de sotie

Problema combina frigorifica

Persoanele care nu se scalda (in ...

Redmi K50 in Reteaua Digi
 

verifica daca un fisier exista in director cu excel

- - - - -
  • Please log in to reply
1 reply to this topic

#1
ionita_adrian

ionita_adrian

    Junior Member

  • Grup: Members
  • Posts: 155
  • Înscris: 25.02.2010
salut

vreau sa fac  un macro care verifica daca un fisier exista sau nu la o anumita adresa, de ex:
am 1.txt, 2.txt si 3.txt pe desktop si in excel am link catre ele dar linkul se formeaza pe baza celulelor din excel si in excel am linkuri catre 1.txt, 2.txt,3.txt si 4.txt, 5.txt care nu exista la primele 3 vreau sa apara true iar la untimele 2 sa apara false.
Am cautat pe net si am gasit mai multe coduri de vba dar toate imi dau valoarea false.

1.
Function FileExists1(sPath As String)
	FileExists = Dir(sPath) <> ""
End Function


2.
Function FileExists(FilePath As String) As Boolean

	Dim FileName As String

	FileName = Dir(FilePath)

	If FileName <> "" Then FileExists = True _
	Else: FileExists = False
End Function


3.
Sub TestHLinkValidity()
Dim rRng As Range
Dim fsoFSO As Object
Dim strFullPath As String
Dim cCell As Range
Set fsoFSO = CreateObject("Scripting.FileSystemObject")
Set rRng = Selection
For Each cCell In rRng.Cells
	If cCell.Hyperlinks.Count > 0 Then
		strFullPath = ActiveWorkbook.path & "\" & cCell.Hyperlinks(1).Address
		If fsoFSO.FolderExists(strFullPath) = False Then
			cCell.Interior.ColorIndex = 3
		Else
			cCell.Interior.ColorIndex = 0
		End If
   End If
Next cCell
End Sub


4.
Function FileExist707(path As String) As Boolean
	If Dir(path) <> vbNullString Then FileExist = True
End Function



Ce ar trebui sa fac sa sa imi recunoasca linkurile care sunt active?

Multumesc.

Edited by MarianG, 05 May 2017 - 08:35.
tag-uri code


#2
shobosorin

shobosorin

    Junior Member

  • Grup: Members
  • Posts: 28
  • Înscris: 26.10.2006

View Postionita_adrian, on 24 aprilie 2017 - 12:32, said:

4.

Function FileExist707(path As String) As Boolean
If Dir(path) <> vbNullString Then FileExist = True
End Function

VBA e un limbaj atat de simplu...
Verifica sintaxa codului.
Declari functiunea iar aceasta ofera un rezultat.

Function FileExist707(path As String) As Boolean
If Dir(path) <> vbNullString Then FileExist707 = True
End Function

Pentru formatare foloseste Conditional formatting (in tabul Home).

Edited by shobosorin, 24 April 2017 - 14:53.


Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

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