mt940 formatlı banka ekstresinin excele alma

[neromero]

sevgili ustadlarım bankadan swift mt940 formatında banka ektresi gelmekte bunu acaba excele nasıl alırız. bu işi çözeceğinizi umarım.

 

[Muzaffer Ali]

Eğer bankaya sorarsanız bu konuda size yardımcı olabilirler. Ellerinde excel formatına dönüştürme aracı bulunabilir.
Eğer yardım alamazsanız bir örnek dosya eklemelisiniz ki belki çözüm arayıp bulunabilir.

 

[krmstfbkt]

bu makro işinizi görür

Sub BANKA_940()
Selection.EntireColumn.Insert
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = "=+R[1]C[1]"
Range("A1").Select
Selection.Copy
Range("A1:A3000").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Range("A1:B3000").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("D:G").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWindow.Zoom = 85
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
OtherChar:=":", FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(24, 1)), _
TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.Zoom = 70
ActiveWindow.Zoom = 85
Columns("D").Select
Selection.NumberFormat = "#,##0.00"
Range("D13").Select
End Sub