[Løst]Finne innholdet i Excel filer

[choffo]

Hei!

 

Jeg trenger et script hvor brukeren skriver inn og søker etter et nummer i alle excel dokumenter som ligger i en mappe, og returnerer Filnavnet på excel-dokumentet nummeret ligger i. Er det noen som kan hjelpe meg med dette?

[Harald Staff]

Er du ute etter et VBscript eller en Excelmakro? Eller noe annet? Eller spiller det ingen rolle?

 

Beste hilsen Harald

[choffo]

Er du ute etter et VBscript eller en Excelmakro? Eller noe annet? Eller spiller det ingen rolle?

 

Beste hilsen Harald

 

Det spiller ingen rolle, så lenge det funker =) Har lite peiling på dette område, så setter stor pris på hjelp

[BennyXNO]

Er du enda en bruker som ikke gidder å lære deg noe og forventer at vi på dette forumet skal løse problemet for deg?

 

Bare nysgjerrig altså!

[choffo]

Er du enda en bruker som ikke gidder å lære deg noe og forventer at vi på dette forumet skal løse problemet for deg?

 

Bare nysgjerrig altså!

 

Haha, nei, men aktiviteten min har vært på webdesign delen av forumet, med php og html. Så VB er et språk jeg vet svært lite om. Når det da dukket opp et behov for akkurat dette på jobben, så tenkte jeg noen her kanskje hadde et script liggende, tips til hvordan det skal løses eller vet hvor det kan lastes ned.

 

Og håper fortsatt noen kan hjelpe meg meg problemet =)

[Harald Staff]

Kan du forklare litt mer ?

Hva er dette nummeret ? Skal den finne første regnearkcelle som inneholder eksakt dette og bare det ?

Hva skal det brukes til, når og av hvem ?

Hva slags Excelfiler er det snakk om og hvilken Excelversjon har brukerne ?

 

Beste hilsen Harald

[backup]

Er det samme range i alle xls-filene eller er det et virvar av ranges på tvers av filene som skal undersøkes?

[choffo]

Kan du forklare litt mer ?

Hva er dette nummeret ? Skal den finne første regnearkcelle som inneholder eksakt dette og bare det ?

Hva skal det brukes til, når og av hvem ?

Hva slags Excelfiler er det snakk om og hvilken Excelversjon har brukerne ?

 

Beste hilsen Harald

 

Det skal jeg gjøre.

Det er et 6 sifret nummer og nummeret forekommer kun en gang og kun i en av filene. Søke scriptet skal gi brukeren svar på hvilken fil nummeret ligger i.

 

Range er A60:E60

 

Det er kun en person som skal bruke det.

 

Filtype står som Excel Worksheet.

 

Dette er excel 2003 SP2.

 

Håper dette var forståelig.

[Harald Staff]

En excelmakro, håper den får deg i gang. Åpne VB-editoren (Alt F11 e.l.), Insert - Module, lim inn følgende:

 

Sub AllFolderFiles()
Dim wb As Workbook
Dim ws As Worksheet
Dim sToFind As String
Dim Found As Range
Dim TheFile As String
Dim MyPath As String
MyPath = "C:\Temp\"
sToFind = InputBox("Søk i filer etter:")
If Len(sToFind) < 6 Then Exit Sub

TheFile = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Do While TheFile <> ""
Application.DisplayAlerts = False
Set wb = Workbooks.Open(MyPath & "\" & TheFile)
DoEvents
For Each ws In wb.Worksheets
	On Error Resume Next
	Set Found = ws.Range("A60:E60").Find(sToFind, lookat:=xlWhole)
	If Not Found Is Nothing Then
		Application.ScreenUpdating = True
		MsgBox wb.FullName
		Found.Select
		Exit Sub
	End If
Next
wb.Saved = True
wb.Close
Application.DisplayAlerts = True
Set Found = Nothing
TheFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

Endre mappebane og avslutt den med \

 

HTH. beste hilsen Harald

[choffo]

En excelmakro, håper den får deg i gang. Åpne VB-editoren (Alt F11 e.l.), Insert - Module, lim inn følgende:

 

Sub AllFolderFiles()
Dim wb As Workbook
Dim ws As Worksheet
Dim sToFind As String
Dim Found As Range
Dim TheFile As String
Dim MyPath As String
MyPath = "C:\Temp\"
sToFind = InputBox("Søk i filer etter:")
If Len(sToFind) < 6 Then Exit Sub

TheFile = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Do While TheFile <> ""
Application.DisplayAlerts = False
Set wb = Workbooks.Open(MyPath & "\" & TheFile)
DoEvents
For Each ws In wb.Worksheets
	On Error Resume Next
	Set Found = ws.Range("A60:E60").Find(sToFind, lookat:=xlWhole)
	If Not Found Is Nothing Then
		Application.ScreenUpdating = True
		MsgBox wb.FullName
		Found.Select
		Exit Sub
	End If
Next
wb.Saved = True
wb.Close
Application.DisplayAlerts = True
Set Found = Nothing
TheFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

Endre mappebane og avslutt den med \

 

HTH. beste hilsen Harald

 

Tusen hjertelig takk for hjelpen Harald!

 

Fungerte bra den =)