ווטסאפ - לינוקס, BSD, קוד פתוח ותוכנה חופשית בעברית. Whatsup - Linux, BSD, open source and free software in Hebrew

 
 
  כניסת חברים · רישום · שכחתי סיסמה  
tux the penguin
תגובה לנושא
צפיה בנושא הבא Printable version התחבר כדי לבדוק הודעות פרטיות צפיה בנושא הקודם
אורחאורח · ·
 

הודעה פורסם: 30/12/2009 - 14:27
נושא ההודעה: GNUcash ותמיכת בנקים בארץ ב OFX או HBCI

מישהו יודע אם אחד הבנקים בארץ תומך ב OFX או HBCI ?
הייתי רוצה להוריד נתוני חשבון מהאתר של הבנק ע"י GNUcash
 
   
תגובה  עם ציטוט חזרה למעלה
חזרה לתוכן הדיון
צפריראורח · ·
 

הודעה פורסם: 30/12/2009 - 14:47
נושא ההודעה:

HBCI הוא תקן של ממשלת גרמניה. יש בנק מחוץ לגרמניה שתומך בו?
 
   
תגובה  עם ציטוט חזרה למעלה
חזרה לתוכן הדיון
אורחאורח · ·
 

הודעה פורסם: 01/01/2010 - 16:04
נושא ההודעה: הממ טוב כנראה שנדרשת קצת מחאה צרכנית

למי שיש סבלנות שישלח את הפקס הבא לבנק כלשהו :

שלום,
שמי ___ , לקוח בבנק ___ . לאחרונה גיליתי שהבנק שלי איננו מציע תמיכה בשום פרוטוקול הורדת נתונים. אשקול לעבור לבנק שלכם במידה ותציעו תמיכה באחד הפרוטוקולים המבוססים כדוגמת OFX או HBCI.

פניות הציבור:
הפועלים: 5673764 03
מזרחי: 03-5754452
אוצר החייל: 03-7556522
דיסקונט: 03-5158998
לאומי, 03-5148688
 
   
תגובה  עם ציטוט חזרה למעלה
חזרה לתוכן הדיון
idanzלא בפורום כעת ת.הצטרפות: 01/06/2013 · הודעות: 1 ·
 

הודעה פורסם: 01/06/2013 - 22:57
נושא ההודעה: למען הדורות הבאים

מאחר והשרשור הזה הוא הראשון (בעברית) שעולה בגוגל, אני מנצל"ש כדי להוסיף קוד מאקרו לאקסל.

הקוד עובד על דפי תנועות של פועלים וישראכרט\ מסטרכרד ומוחק את כל השורות והעמודות אשר יוצרות בעיות בייבוא תנועות (כולל כותרות...)

יש לשמור את הקוד במודול (רצוי בקובץ ה-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 ריקה בכוונה, כדי להשאיר עמודה לצד החובה\ זכות.
 
 צפיה בפרופיל המשתמש שלח הודעה פרטית  
תגובה  עם ציטוט חזרה למעלה
חזרה לתוכן הדיון
הצגת הודעות מלפני:     
מעבר אל:  
כל הזמנים הם GMT + 2 שעות
תגובה לנושא
צפיה בנושא הבא Printable version התחבר כדי לבדוק הודעות פרטיות צפיה בנושא הקודם
PNphpBB2 © 2003-2004 

תוכן הדיון

  1. אורח [אורח]
  2. אורח [צפריר]
  3. אורח [אורח]
  4. idanz