16. april 2015 - 20:29
Der er
2 kommentarer og
1 løsning
VBA script
har en tekst fil fra en PLC komma sp - den importere jeg så den står i et ARK- derfra skal jeg kopiere record ud på ark som hedder Jan,Feb,Marts,
A B C
1 16-04-2015 15:00:35;20,6;TXT
2 16-04-2015 15:01:35;20,7;TXT
3 16-04-2015 15:02:35;20,8;TXT
4 16-04-2015 15:03:35;20,9;TXT
5 16-04-2015 15:04:35;20,9;TXT
6 16-04-2015 15:05:35;21,0;TXT
altså jeg mangler en kode der læser datoformalt(A1) linje for linje og kopiere Linje (A1,B1,C1,ud på det rigtige faneblad for den pågældende måned og indsætter det fra top
17. april 2015 - 10:38
#1
Prøv med noget i stil med dette
Sub Fordeling()
Range("A1", Range("A" & Rows.Count).End(xlUp)).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Dim c As Range
Dim maaned As String
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)).Cells
maaned = MonthName(Month(c.Value), True)
If Not FindesArkfanen(maaned) Then Worksheets.Add().Name = maaned
c.EntireRow.Copy Destination:=Worksheets(maaned).Range("A" & Worksheets(maaned).Rows.Count).End(xlUp).Offset(1, 0)
Next
End Sub
Public Function FindesArkfanen(navn As String) As Boolean
FindesArkfanen = Not (IsError(Evaluate(navn & "!A1")))
End Function
