אופיס 365 עדכון אוטמטי של שער הדולר - אקסס

אריה123 · 1/3/09

איך אפשר להוריד את שער הדולר מהאתר של בנק ישראל לאקסס ?

DDFF · 1/3/09

העתק הדבק.

saryoram · 1/3/09

יש כאן 2 דוגמאות http://www.dr-vb.co.il/search.php?what=%F9%F2%F8+%E3%E5%EC%F8&field=1
אומנם זה vb6 אך ניתן להתאים ל VBA

אריה123 · 18/3/09

איך אפשר לשנות מVB6 ל VBA ?

אני מכירה טוב את הבייסיק באקסס אבל בכלל לא את ה VB הרגיל, תוכל לעזור לי בזה ?

אודה לך מאד.

saryoram · 19/3/09

בבקשה

צפה בקובץ המצורף 34898

קוד:

[SIZE=2]Option Compare Database[/SIZE]
[SIZE=2]Option Explicit[/SIZE]
[SIZE=2]Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long[/SIZE]
[SIZE=2]Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer[/SIZE]
[SIZE=2]Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias _[/SIZE]
[SIZE=2]"InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, _[/SIZE]
[SIZE=2]ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, _[/SIZE]
[SIZE=2]ByVal dwFlags As Long, ByVal dwContext As Long) As Long[/SIZE]
[SIZE=2]Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As _[/SIZE]
[SIZE=2]Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, _[/SIZE]
[SIZE=2]lNumberOfBytesRead As Long) As Integer[/SIZE]
[SIZE=2]Const INTERNET_OPEN_TYPE_PRECONFIG = 0 ' use registry configuration[/SIZE]
[SIZE=2]Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000[/SIZE]
 
[SIZE=2]Public Function MyGetDollar()[/SIZE]
[SIZE=2]On Error GoTo ErrorHandler[/SIZE]
 
[SIZE=2]Dim hInternetSession As Long[/SIZE]
[SIZE=2]Dim hUrl As Long[/SIZE]
[SIZE=2]Dim ok As Boolean[/SIZE]
[SIZE=2]Dim NumberOfBytesRead As Long[/SIZE]
[SIZE=2]Dim Buffer As String, Buffer2 As String[/SIZE]
[SIZE=2]Dim vLine As Variant[/SIZE]
[SIZE=2]Dim URL As String[/SIZE]
[SIZE=2]URL = "http://www.bankisrael.gov.il/heb.shearim/currency.php?curr=01"[/SIZE]
[SIZE=2]' open an Internet session, and retrieve its handle[/SIZE]
[SIZE=2]hInternetSession = InternetOpen("", INTERNET_OPEN_TYPE_PRECONFIG, _[/SIZE]
[SIZE=2]vbNullString, vbNullString, 0)[/SIZE]
[SIZE=2]If hInternetSession = 0 Then Err.Raise vbObjectError + 1000, , _[/SIZE]
[SIZE=2]"An error occurred calling InternetOpen function"[/SIZE]
[SIZE=2]' open the file and retrieve its handle[/SIZE]
[SIZE=2]hUrl = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, _[/SIZE]
[SIZE=2]INTERNET_FLAG_EXISTING_CONNECT, 0)[/SIZE]
[SIZE=2]If hUrl = 0 Then Err.Raise vbObjectError + 1000, , _[/SIZE]
[SIZE=2]"An error occurred calling InternetOpenUrl function"[/SIZE]
[SIZE=2]' prepare the receiving buffer[/SIZE]
[SIZE=2]Buffer = Space(4096)[/SIZE]
 
[SIZE=2]Do[/SIZE]
[SIZE=2]' read a chunk of the file - returns True if no error[/SIZE]
[SIZE=2]ok = InternetReadFile(hUrl, Buffer, Len(Buffer), NumberOfBytesRead)[/SIZE]
[SIZE=2]' exit if error or no more data[/SIZE]
[SIZE=2]If NumberOfBytesRead = 0 Or Not ok Then Exit Do[/SIZE]
 
[SIZE=2]' save the data to the local file[/SIZE]
[SIZE=2]Buffer2 = Buffer2 & Left$(Buffer, NumberOfBytesRead)[/SIZE]
[SIZE=2]Loop[/SIZE]
 
 
[SIZE=2]' [/SIZE][FONT=Courier New (Hebrew)][SIZE=2]חלוקת הקובץ שהורד לשורות[/SIZE][/FONT]
[SIZE=2]vLine = Split(Buffer2, vbLf)[/SIZE]
[SIZE=2]' [/SIZE][FONT=Courier New (Hebrew)][SIZE=2]חילוץ החלקים השונים מהקובץ: תאריך העדכון, השער והשינוי מהשער הקודם[/SIZE][/FONT]
[SIZE=2]MyGetDollar = CheckPart("RATE", vLine)[/SIZE]
 
[SIZE=2]' Update = CheckPart("LAST_UPDATE", vLine)[/SIZE]
[SIZE=2]' Change = CheckPart("CHANGE", vLine)[/SIZE]
 
 
[SIZE=2]' flow into the error handler[/SIZE]
[SIZE=2]ErrorHandler:[/SIZE]
[SIZE=2]' close internet handles, if necessary[/SIZE]
[SIZE=2]If hUrl Then InternetCloseHandle hUrl[/SIZE]
[SIZE=2]If hInternetSession Then InternetCloseHandle hInternetSession[/SIZE]
 
[SIZE=2]' report the error to the client, if there is one[/SIZE]
[SIZE=2]If Err Then Err.Raise Err.Number, , Err.Description[/SIZE]
[SIZE=2]End Function[/SIZE]
 
 
[SIZE=2]Function CheckPart(part As String, vArray As Variant) As String[/SIZE]
[SIZE=2]Dim vItem As Variant[/SIZE]
[SIZE=2]' XML-[/SIZE][FONT=Courier New (Hebrew)][SIZE=2]פונקציה זו מחלצת את האיבר הרצוי מהשורה המתאימה מקובץ ה[/SIZE][/FONT]
[SIZE=2]For Each vItem In vArray[/SIZE]
[SIZE=2]If Left(vItem, Len(part) + 2) = "<" & part & ">" Then[/SIZE]
[SIZE=2]CheckPart = Mid(vItem, Len(part) + 3, Len(vItem) - ((Len(part) * 2) + 4) - 1)[/SIZE]
[SIZE=2]Exit For[/SIZE]
[SIZE=2]End If[/SIZE]
[SIZE=2]Next[/SIZE]
[SIZE=2]End Function[/SIZE]

אריה123 · 23/3/09

NO לחץ

אריה123 · 23/3/09

עשיתי - עובד מצוין. תודה רבה

אריה123 · 24/3/09

אני מחפשת קוד לשלוח מייל ישר מהאקסס (בלי ללחוץ שלח באאוט לוק, אולי בסוף המיילים ללחוץ על שלח/קבל פעם אח&#1514

תודה מראש

אריה123 · 24/3/09

יש אתר שנותן את זה בVB אבל אני צריכה את זה באקסס VBA.
saryoram<SCRIPT type=text/javascript> vbmenu_register("postmenu_235842", true); </SCRIPT> ? ? אפשר לעזור ? אין לך מושג כמה עזרת לי בהודעה הקודמת.

יהודה מילר · 24/3/09

מאקרו - שליחת מייל

יש מאקרו של שליחת מייל באקסס, מצ"ב קובץ

לפרטים נוספים ניתן לפנות במייל.

אריה123 · 25/3/09

תודה מילר, זה מצוין - רק המחשב מודיע לי שמנסים לשלוח מייל לא חוקי על שמי, איך מורידים את ההודעה הזו ?

יהודה מילר · 25/3/09

נכתב ע"י מיכל123;238552:
תודה מילר, זה מצוין - רק המחשב מודיע לי שמנסים לשלוח מייל לא חוקי על שמי, איך מורידים את ההודעה הזו ?

איני יודע איך מורידים את ההודעה אבל לא צריך להוריד את ההודעה, זה רק אזהרה.

צריך להמתין (5 שניו&#1514

שיסיים את התהליך וללחוץ "כן" מצ"ב קובץ

אריה123 · 25/3/09

אז לא הרוחתי כלום, אני יכולה ללחוץ על שלח, זה יהיה יותר מהר.

piku · 26/3/09

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

יהודה מילר · 26/3/09

נכתב ע"י מיכל123;238871:
אז לא הרוחתי כלום, אני יכולה ללחוץ על שלח, זה יהיה יותר מהר.

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

אריה123 · 26/3/09

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

ו"פיקו" - אני שולחת דרך 013 (אני יכולה לשלוח באאוט לוק גם דרך GMAIL), לא משנה לי.

saryoram · 26/3/09

שלום,
ב MS Outlook2003 אי אפשר להפטר מהודעה מעצבנת זו!
אך ב 2007 אפשר, אני הכרחתי לקוח לעבור ל2007 רק בגלל בעיה זו.
אם מגדרים את Outlook Express כתוכנת ברירת לדוא"ל, אז אפשר גם שם להפטר מהודעה זו, אני ניסיתי את זה בVB6, לא יודע אם אקסס ישלח דרך Outlook Express.

אריה123 · 2/4/09

בתוכנת המייל של מוזילה זה עובד

אם תוכנת המייל של מוזילה (תסלחו לי שאיני יודע לאיית את המילה הזו בעברי&#1514

מוגדרת כברירת מחדל זה עובד מצוין.. אבל בכ"א אני מעדיפה דרך OUTLOOK - שעדיין אין לו מתחרים - ועם 2007 אני לא מסתדרת.
סתם בשביל הידיעה אקסס עובדת עם אאוטלוק אקספרס אבל אין לזה כבר תמיכה של מיקרוסופט.

פרוגבוט

פרסומת

אופיס 365 עדכון אוטמטי של שער הדולר - אקסס

משתמש מקצוען

משתמש פעיל

משתמש רשום

משתמש מקצוען

משתמש רשום

קבצים מצורפים

משתמש מקצוען

משתמש מקצוען

משתמש מקצוען

משתמש מקצוען

מנהל פורום חשבונאות ומס

קבצים מצורפים

משתמש מקצוען

מנהל פורום חשבונאות ומס

קבצים מצורפים

משתמש מקצוען

משתמש צעיר

מנהל פורום חשבונאות ומס

משתמש מקצוען

משתמש רשום

משתמש מקצוען

פרוגבוט

תוכן שיווקי

איזה כיף שהצטרפתם לניוזלטר שלנו!