תחומים - פורום חרדי מקצועי

@חוקר לא.
אחרי כמה ימים.
הקבלה קיימת כבר, ואפשר להוריד אותה דרך האתר, אבל אני מחפש API שיעשה את זה.
תודה.

שלום וברכה.
אני משתמש בפלטפורמה של איזיקאונט (www.ezcount.co.il) להנפקה של קבלות.
אני מנסה לכתוב קוד להוריד קבלות אחרי שהם כבר הונפקו באמצעות הקישור של הקבלה.
אמנם בקודים הרגילים של ההורדה (URLDownloadToFile וכדו') אני נתקל בשגיאות.
האם מישהו משתמש באתר שלהם ויש לו ניסיון בזה?
יצויין שאני מנסה להוריד דרך VBA באקסס.
תודה רבה.

@laswater כתב בבאקסס- עדכון ממשק ללא איבוד נתונים:

אני חושב שהמיקום נשמר!

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

@laswater אתה פשוט מעביר את הטבלאות לקובץ אחר, או באופן ידני 'גזור-הדבק', או באופן אוטומטי בתפריט כלי מסד נתונים>מסד נתונים של Access שם יש לך פיצול מסד נתונים.
לאחר מכן אתה בקובץ של הטפסים נכנס לתפריט נתונים חיצוניים>מנהל טבלאות מקושרות, ושם אתה מקשר את הטבלאות לקובץ של הטפסים.
את הקובץ של הטבלאות אתה יכול לשמור בכל מקום, רק בניהול טבלאות מקושרות (כך קוראים לחיבור של שתי הקבצים) אתה מכניס את המיקום של הקובץ.
בעדכון, אם אתה רק מעדכן את הטפסים אתה פשוט שולח ללקוח קובץ חדש והוא מחליף את הישן בחדש, ואז הוא יצטרך מסתמא לעדכן את מיקום הטבלאות (בתפריט הנ"ל).
אם אתה רוצה גם לעדכן טבלאות, זה קצת יותר מסובך ותצטרך לעשות את זה באמצעות קוד VBA.

@laswater אז ככה.
תוכנת אקסס בנויה בגדול משלושה שלבים, 1. טבלאות, 2. שאילתות, 3. טפסים.
כל הנתונים נשמרים בטבלאות, בשאילתות אפשר ל'שחק' עם הנתונים, והטפסים הם אלו שהלקוח רואה בפועל.
כיון שרוב העדכונים הם בטפסים, מקובל לעשות שיש שתי קבצי אקסס, קובץ אחד שבו נמצאות הטבלאות, וקובץ נוסף שבו נמצאים השאילתות והטפסים.
וכך אפשר לעדכן את הקובץ שבו שמורים הטפסים בלי לפגוע בנתונים.

אם כבר יש נושא בעניין זה, אז אצרף את מה שמפריע לי.
כיון שתמיד רואים את כותרת הנושא, וכן אי אפשר לצמצם את טופס התגובה. מה שקורה זה שכשכותבים תגובה אי אפשר תוך כדי לראות תגובות קודמות.
דבר שדי מפריע כשרוצים להתייחס לכמה נקודות וכדו'.

@chagold גם זה אפשרות
https://data.gov.il/dataset/moag-district

@one1010 אתה בטוח שהיא לא נמצאת במנהל משימות?
זה אמור להופיע בתור תהליך ברקע.

@ארי כתב בעריכת קובץ שאילתת אקסס:

תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

מה קורה כשאתה עושה את זה?

@one1010 מה הסיומת של הקובץ?
תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

@פלורידה מצורפת דוגמא.

חוברת1.xlsx

שלום וברכה.
יש לי קוד למיזוג דואר מקובץ אקסל לקובץ וורד, הקוד עובד במחשב שלי מצוין.
אבל במחשב של הלקוח מופיעה הודעת שגיאה שהפקודה 'OpenDataSource' לא פעילה.
הקוד של המיזוג הוא:

wordApp.Documents.Open FileName:=WordPath, ReadOnly:=True
If err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד" & vbCrLf & err.Description, vbOKOnly + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function

With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With
wordApp.Quit False
Set wordApp = Nothing

השגיאה מופיעה על הקטע

.OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"

מה יכולה להיות הבעיה?
תודה!

@Y-Excel-Access הקובץ שהבאת ממש לא עובר דיבאג...

@one1010 הקוד הזה עובד לך?

Sub SumYellowCells()
Dim rng As Range
Dim cell As Range
Dim sum As Double

Set rng = Range("A7:AG355")

For i = 1 To rng.Count
    If rng.Cells(i).Interior.Color = RGB(255, 255, 0) Then
        If rng.Cells(i).HasFormula = False Then
            If InStr(1, rng.Cells(i).Formula, "SUM(") = 0 Then
                sum = sum + rng.Cells(i).Value
            End If
        End If
    End If
Next i

MsgBox "The sum of yellow cells that are not circular references is: " & sum
End Sub

הוא אמור לעבור בלולאה על כל התאים בצבע צהוב (בטווח שבין A7 לAG355) ולסכם אותם (בתנאי שהם לא נוסחה ולא סיכום).

משום מה נראה לי שהקוד שהבאת בתחילת השרשור לא קשור לקוד שאתה צריך...
הקוד ההוא עובר בלולאה (בשביל לבדוק כמה תאים חייבת להיות לולאה שעוברת עליהם) ואם הוא מוצא שלושה תאים עם אותו תאריך הוא מקפיץ הודעה, וכן אם הוא מוצא שלושה תאריכים שיש ביניהם אותו הבדל של ימים גם כן מקפיץ הודעה.
איך זה קשור לקוד שהבאת מקודם שמסכם את כל התאים בצהוב?

@one1010 כתב במאקרו רץ בלולאה:

וגם 15 בראשון 16 בשני ו17 בשלישי

נראה לי שבשביל זה אתה צריך משהו יותר מתוחכם ממה שאני יודע....

@one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?
תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

@one1010 אכן כך.
רק שים לב כמו שכתבתי למעלה שהוא מציג גם תאריכים לא צמודים.

@one1010 כתב במאקרו רץ בלולאה:

@ארי כתב במאקרו רץ בלולאה:

איזה הודעה הוא מקפיץ לך?

זאת:

וכשאתה לוחץ אישור הוא מציג אותה שוב?

@one1010 כתב במאקרו רץ בלולאה:

לעצם מה שכתבת, עד עכשיו הוא כן חישב רק את מה שצבוע בצהוב.

לא אמור להיות קשר לקוד, הוא רץ על לולאה בלי קשר לצבע.

לגבי התאריכים, זה קשור לזה שבחודש 2 יש רק 28 יום, וממילא בין ה15/1 עד ל15/2 יש 31 יום, וגם בין ה15/2 ל18/3 יש 31 ימים.

בלולאה, איזה הודעה הוא מקפיץ לך? את אותה ההודעה?אולי יש לך קובץ דוגמא, כי לי בקובץ דוגמא שעשיתי זה עובד מצוין. מצרף דוגמא.

לולאה על טווח תאריכים.xlsm

@one1010 שתי הערות בקוד הנ"ל.

1. האם הוא צריך למצוא רק תאריכים רצופים כמו שכתבת? כי זה נראה שהוא מוצא גם אם הם לא רצופים (וגם בלי קשר לצבע שלהם).
2. הבעיה שלו זה שגם אם הוא מוצא שלוש שדות ריקות הוא מתייחס לזה שהם שווים, צריך להוסיף לו תנאי שאם שלושתם ריקים שיתעלם.

בשביל לפתור את זה שהוא רץ לנצח (אגב, לא לנצח אלא עד שגומר לרוץ על כל הטווח שמוגדר לו) צריך לשנות את השורה הזו:

                If date1 = date2 And date2 = date3 Then

לזה:

If date1 = date2 And date2 = date3 And date1 <> "00:00:00" And date2 <> "00:00:00" And date3 <> "00:00:00" Then

וככה אם השדות ריקות הוא יתעלם מהם.