VB-script, excel

Det framgår inte hur man skall kunna välja filer så detta är ett exempel att summera alla öppnade filer utom den aktiva arbetsboken.

Exemplet förutsätter att Blad1 i varje fil innehåller de aktuella data som skall behandlas.

Den totala summan (formeln) skrivs i B15 i aktiva arbetsboken.

Sub SumFilesColums()
Dim v
Dim w As Object
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
v = v & "SUM([" & w.Name & "]Blad1!$B$1:$B$6)+"
End If
Next w
v = "=" & Left(v, Len(v) - 1)
Range("B15").Formula = v
End Sub

I det här exemplet kan du enkelt välja filer efter behov, eni taget med hjälp av Ctrl-tangenter eller i i serier med Shift-tangent.

$B$1:$H$1 väljer horisontellt rad 1 från B till H. Det att ändra till vad man behöver.

Sub SumFilesColumsII()
Dim v
Dim vf
Dim i As Integer
Dim iPosRev As Integer
Dim sPath As String

On Error GoTo Error_handler:
v = Application.GetOpenFilename("xls files (*.xls), *.xls", , , , True)

For i = 1 To UBound(v)

iPosRev = InStrRev(v(i), "\")
sPath = Left(v(i), iPosRev)

vf = vf & "SUM('" & sPath & "[" & Mid(v(i), iPosRev + 1) & "]Blad1'!$B$1:$H$1)+"

Next i
vf = "=" & Left(vf, Len(vf) - 1)
Range("B20").Formula = vf

Exit Sub
Error_handler:
Exit Sub
End Sub

Edit: Ännu än en ny version

Oj då!

Är det alltid en och samma kolumn i varje fil som skall användas?
Är antalet rader alltid lika många i varje fil/eller vet man radantalet i förväg?
I vilken rad börjar data.
Frågan är egentligen att kanske behöva söka slutet av data för inte jobba med tomma rutor.

Det går att utveckla exemplet genom att sätta en for loop till för rader och formler så att den placeras på motsvarande rad i resultatbladet.

Har ingen koll på böcker. Jag har själv lärt genom att på arbetet programmerat rätt mycket i Excel (och VB, Access osv).

Det är nog så att maxlängden på en formel är (troligen) 1024 tecken vilket innebär att om sökvägen + filnam blir 50 tkn så formeln klarar inte mer ca 20 filen.

Därför skrev jag om koden så att data från flerna läses till kolumner C, D, E osv samt radvisa summan för alla filer visas i kolumn B.

Om det är inte bra så här så det går att programmera så att ett ledigt blad används för insamling av data och sedan kopiera summakolumnen dit man vill ha den.

Sub SumFilesColumsIII()
Dim v
Dim vf
Dim i As Integer
Dim iRow As Integer
Dim iPosRev As Integer
Dim sPath As String
Dim rwIndex, colIndex
Dim iFileCount As Integer
Dim iDataRows As Integer

On Error GoTo Error_handler:
v = Application.GetOpenFilename("xls files (*.xls), *.xls", , , , True)
If VarType(v) = vbBoolean Then
Beep
MsgBox "Inga filer valda!"
Exit Sub
End If
iDataRows = 50
rwIndex = 3
colIndex = 2
iFileCount = UBound(v)

For i = 1 To iFileCount
iPosRev = InStrRev(v(i), "\")
sPath = Left(v(i), iPosRev)
vf = "='" & sPath & "[" & Mid(v(i), iPosRev + 1) & "]Blad1'!$B3"
With Worksheets("Blad1").Cells(rwIndex, colIndex + i)
.Formula = vf

End With
Next i

Range("B3").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[" & iFileCount & "])"
Worksheets("Blad1").Range(Cells(rwIndex, colIndex), Cells(rwIndex, colIndex + iFileCount)).Select
Selection.AutoFill Destination:=Range(Cells(rwIndex, colIndex), Cells(rwIndex + iDataRows - 1, colIndex + iFileCount)), Type:=xlFillDefault

Exit Sub
Error_handler:
MsgBox Error
Exit Sub
End Sub

Grymt är det Visual basic som man ska lära sig för att bli bra på att koda basic i Excel eller? Är det värt att gå en 5p kurs i VB för det? *Jag har inte rört VB*

Jag såg även i den andra tråden hur smidigt basic var i Excel http://www.sweclockers.com/forum/showthread.php?s=&threadid=6...
Det är ju perfekt för diverse ekonomikalkyler etc. för inte tusan kodar man ett eget program till sånt.

Grunden i Excels kodning är ju Visual Basic = VBA = Visual Basic for Applications.
Sedan i Excel tillkommer mycket olika saker som inte finns i VB t.ex. diagramhantering osv. Men dessa Excel-specifika saker är lätthanterade genom att spela in makron och (oftast) modifiera dem så att de passa ihop med den övriga koden.
Så 5p kurs i VB är nog vettigt.

lite off kanske... men hur är det man får upp VB från exel? jag har för mig att det är något snabbkommando..

Jag går in i menyn Verktyg->Makro->Spela in ett nytt makro
och slå in något i en ruta och stoppar inspelningen.

Då kan man komma in i VB via Verktyg->Makro->Makron->Redigera
eller Alt-F8.

Det finns kanske andra sätt också men det här fungerar i alla fall.

Det är inte säkert att jag har fattat rätt.
Jag gjorde ett förslag från scratch:

http://www.flypicture.com/download/OTM4OTk=

Finns det 5p kurser i VBA/Avancerad Excel? Har letat lite men hittar inte, vore kanon om det fanns på distans alt. kvällskurs, nån vet vilka som håller dessa typer av kurser? (gärna gratis)

Jag gjorde något slags "prototyp" där kanske cellerna är inte som du ville ha det. Jag fick inte riktigt ihop att i Ex. A t.ex. C3= 10 och D4 ='410-18 som jag antar är det som skall användas som fliknamn i sammanställningen.
Jag borde kanske haft några filer att jobba mot.

Jag har gjort enligt det som finns i bifogade exempelfiler för data.

http://www.flypicture.com/download/MTA0Mjc4

Globala variabler deklareras utanför någon funktion efter Option Explicit :

Option Explicit
Public aglobalVariabelhere

Sub SumFilesColumsIV()
Dim v
Dim vf
Dim i As Integer
Dim iRow As Integer

Hej igen!
Exempel på lösningen:

Sub Makro1()
Application.DisplayAlerts = False
Sheets("Blad2").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

Gjorde ett försökt men hittade tyvärr inge lösning, inte säker på att det går