Hej,
Första gången på detta forum, nedanstående script försöker jag att använda och det är till för att hämta information om namn på alla excel filer i en mapp samt hämta information från celler i dokumenten och skriva ut dem i min Grundfil.
Detta fungerar mycket bra, dock så stöter jag på ett problem: När jag kör skriptet så skriver den in filnamnet på första filen och sedan så kommer det upp en popup window som ber mig att "update Value" och då måste jag leta reda på filen som den ska uppdatera värde ifrån För Varje Värde som den ska hämta. Dvs att om jag har 5 excel filer i en mapp och ska hämta information från 3 celler i varje fil så måste jag Browse och dubbelklicka på den filen 3 ggr, dvs en gång för varje fil. Detta resulterar i 15 ggr för fem filer. Jag har nu 50 filer i mappen :(
Om jag klickar på ESC när den frågar mig att uppdatera så kommer det fram #REF!, om jag är inne i filen och sedan går in en av excel filerna så uppdateras det värdet på en gång.
Jag förstår ingenting, har helt kört fast. Det jag vill är att den utan att fråga vart ifrån den ska uppdatera värdet hämtar informationen så att när jag kör skriptet så ska jag inte behöva välja något mer :)
Här är skriptet som jag kör:
Sub getFileInfo()
Dim myDir As String, nextFile As String, nextRow As Integer
myDir = "Q:\Sales\"
nextFile = Dir(myDir & "*.xls")
nextRow = 1
Do While nextFile <> ""
If InStr(nextFile, "Förarutköp") > 0 Then
mySheet = "Sheet1"
myCell = "$A$59"
youCell = "$F$8"
Else
mySheet = "Köpeavtal"
myCell = "$I$2"
youCell = "$B$2"
End If
Cells(nextRow, 1) = nextFile
Cells(nextRow, 2).Formula = "='" & myfiles & "[" & nextFile & "]" & mySheet & "'!" & myCell
Cells(nextRow, 3).Formula = "='" & myfiles & "[" & nextFile & "]" & mySheet & "'!" & youCell
nextRow = nextRow + 1
nextFile = Dir
Loop
End Sub