מאחר והשרשור הזה הוא הראשון (בעברית) שעולה בגוגל, אני מנצל"ש כדי להוסיף קוד מאקרו לאקסל.
הקוד עובד על דפי תנועות של פועלים וישראכרט\ מסטרכרד ומוחק את כל השורות והעמודות אשר יוצרות בעיות בייבוא תנועות (כולל כותרות...)
יש לשמור את הקוד במודול (רצוי בקובץ ה-persnal של אקסל) ולהריץ ישירות על הקובץ שהורד מאתר הבנק.
הקוד לא ישנה את קובץ המקור, אלא רק ישמור את התנועות לקובץ CSV באותה תקייה כמו קובץ המקור.
(סלחו לי על הקוד הלא אופטימלי... אני לא עוסק בתכנות ואין לי שום עניין בלחסוך שורות קוד)
קוד: |
Sub RemoveRows()
Dim s As String
Dim i As Integer
For i = Range("A65536").End(xlUp).Row + 6 To 1 Step -1
' MsgBox i & " " & IsDate(Cells(i, 1))
If Not IsDate(Cells(i, 1)) Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
s = ActiveWorkbook.Path & "\transactions.csv"
ActiveSheet.Columns(1).NumberFormat = "dd/mm/yyyy"
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False
Application.Quit
End Sub
Sub Convert2CSV()
Select Case ActiveWorkbook.Name
Case "output.xls"
Columns("c:c").Select
Selection.ClearContents
Columns("E:F").Select
Selection.ClearContents
Call RemoveRows
Case "HomePagePoalim.xls"
Columns("A:J").Select
Selection.UnMerge
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.ClearContents
Columns("c:d").Select
Selection.NumberFormat = "General"
Call RemoveRows
Case Else
MsgBox "תבנית לא ידועה"
End Select
End Sub
|
** עמודה 3 ריקה בכוונה, כדי להשאיר עמודה לצד החובה\ זכות.