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

@smk123
ותכלס איך כותבים את זה?
מישהו יכול לעזור לי?

@UA אמר בכמה משלמים על רעיון?:

האמת היא שאני לא מבין למה נגררנו כאן לדיון של כדאיות כלכלית.
סה"כ הוא שאל איך מתמחרים ולא האם כדאי...

אני עדיין לא מבין כאשר יש חסד מתמחרים מוצר הם בודקים 2 שלבים

1. כמה עלה להם
2. כמה הלקוח ישלם

וזה החשבון שצריך לעשות.

1. כמה זמן יקח לך לעשות את זה? (משאבים)
2. כמה הלקוח ישלם ...

אבל כאשר מדובר ברעיון (עתידי) צריך לחשב עוד משהו האם כדאי ולכן כל הדיון כאן הוא נצרך גם על כדאיות..

@OdedDvir אמר בבעיה בקוד vba להורדת קובץ משרת ftp:

פתרון אפשרי (טלאי) אולי הוא ליצור Script טקסט עבור התוכנה החיצונית, ולהריץ אותו מתוך VBA...

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

עריכה : המשך כאן

בהמשך לנושא הזה: בעיה בקוד vba להורדת קובץ משרת ftp
אני צריך להוריד קובץ csv שנמצא בשרת ftp בצורה אוטומטית דרך קוד vba
ניסיתי בנושא הקודם להוריד דרך vba אבל כל מה שניסיתי לא עבד
@OdedDvir יעץ לי לעשות סקריפט שיופעל על ידי vba (מקווה שזה אפשרי)
הבעיה הגדולה היא שאני בור ועם הארץ בנושא של הסקריפטים
ניסיתי לראות בחיפוש בגוגל וראיתי כאן את הקוד הזה

#ftp server 
$ftp = "ftp://example.com/" 
$user = "XX" 
$pass = "XXX"
$SetType = "bin"  
$remotePickupDir = Get-ChildItem 'c:\test' -recurse
$webclient = New-Object System.Net.WebClient 

$webclient.Credentials = New-Object System.Net.NetworkCredential($user,$pass)  
foreach($item in $remotePickupDir){ 
    $uri = New-Object System.Uri($ftp+$item.Name) 
    #$webclient.UploadFile($uri,$item.FullName)
    $webclient.DownloadFile($uri,$item.FullName)
}

הבעיה שהוא מחזיר שגיאה כזו

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

@dovid דבר זה קורה לפעמים ולא רק בפורום אצלך אלא נתקלתי בזה בעוד פורומים אבל אחרי כמה זמן זה מסתדר

@OdedDvir
הרבה תודה עד כה
כעת הוא מריץ רק חלק מן הקוד אבל לא מוריד אותו
איך אני יכול לדעת מה השגיאה ומה חסר לו?

@OdedDvir
העתקתי והוא מחזיר שגיאה

@OdedDvir

@OdedDvir

@OdedDvir
עכשיו מצאתי עוד קוד שאולי יכול לשפוך אור על הבעיה
זה הקוד

Function fnDownloadFile(ByVal strHostName, _
    ByVal strUserName As String, _
    ByVal strPassWord As String, _
    ByVal strRemoteFileName As String, _
    ByVal strLocalFileName As String) As String
     
    '// Set a reference to: Microsoft Internet Transfer Control
    '// This is the Msinet.ocx

    Dim FTP As Inet    'As InetCtlsObjects.Inet
    
    Set FTP = New Inet 'InetCtlsObjects.Inet
    
    On Error GoTo Errh
    With FTP
        .Url = strHostName
        .Protocol = 2
        .UserName = strUserName
        .Password = strPassWord
        .Execute , "Get " + strRemoteFileName + " " + strLocalFileName
        Do While .StillExecuting
            DoEvents
        Loop
        fnDownloadFile = .ResponseInfo
    End With
Xit:
    Set FTP = Nothing
    Exit Function

Errh:
    fnDownloadFile = "Error:-" & Err.Description
    Resume Xit
End Function

אבל עדיין הוא מחזיר שגיאה כזו

הקוד הזה ככל הנראה עובד על אותו הבסיס כמו הראשון שהבאתי

@OdedDvir
נראה לי שיש לי אופיס 64

@OdedDvir
מצאתי עכשיו את הקוד הזה

Sub DownloadTransformUploadFTP()
Dim lngINetConn
Dim lngINet
Dim blnRC As Boolean
Dim UserName As String
Dim Password As String
Dim serverName As String
Const ASCII_TRANSFER = 1
Const BINARY_TRANSFER = 2
Dim fData As WIN32_FIND_DATA
Dim Check1
Dim Check2
 serverName = "testftp.com"
 UserName = "test"
 Password = "test"
 localFile = "C:\Test.xlsx"
 hostFile = "/outgoing/Test.xlsx"
blnRC = False
lngINet = InternetOpen("MyFTP Control", 1&, vbNullString, vbNullString, 0&)
If lngINet > 0 Then
lngINetConn = InternetConnect(lngINet, serverName, 0, UserName, Password, 1, 0, 0)
If lngINetConn > 0 Then
Check1 = FtpSetCurrentDirectory(lngINetConn, "/outgoing" + vbNullString)
fData.cFileName = String(MAX_PATH, 0)
Check2 = FtpFindFirstFile(lngINetConn, "Test.xlsx", fData, 0, 0)
blnRC = FtpGetFile(lngINetConn, "/outgoing/" & fData.cFileName, localFile, 0, 0, 1, 0)
InternetCloseHandle lngINetConn
End If
InternetCloseHandle lngINet
End If
Workbooks.Open Filename:=localFile

אבל גם הוא מחזיר שגיאה
כזו

@OdedDvir לא עוזר.
אולי יש בעיה טכנית בקוד
ידוע לך על איזה קוד אחר שעושה את זה? אולי הוא יהיה יותר טוב..

@OdedDvir
הרצתי את זה
הוא מחזיר לי הודעה כזו

אח"כ סגרתי את שורת הפקודה
וניסיתי שוב להפעיל את ה vba ומחזיר את השגיאה הזו

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

@OdedDvir אמר בבעיה בקוד vba להורדת קובץ משרת ftp:

ולהריץ שורת פקודה כמנהל כך

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

@morvro9 אני עשיתי את זה בשתי קבצי גוגל שיטס מקושרים עם כל הנתונים מקווה שזה מה שאתה רוצה בכל אופן תוכל לפנות אלי במייל שבחתימה

יש לי קוד vba שראיתי כאן
אני יביא גם כן לכאן את הקוד

Function DownloadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal RemoteFileName As String, _
    ByVal LocalFileName As String) As Boolean

    Dim FTP As Inet

    Set FTP = New Inet
    With FTP
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Get " + RemoteFileName + " " + LocalFileName
        Do While .StillExecuting
            DoEvents
        Loop
        DownloadFile = (.ResponseCode = 0)
    End With
    Set FTP = Nothing
End Function

הגדרתי את הכל טוב (שם משתמש וסיסמה) אבל בכל זאת הוא מחזיר שגיאה כזו

אשמח לפתרון

נ.ב. לעניות דעתי הוא לא מצליח לגשת בכלל ל ftp עוד לפני השם משתמש וסיסמה

@אנונימי
אתה יכול לרשום לו כל מס' ב SMS?
אם כן יש לך כיום הרבה שירותים שמקבלים SMS למייל וכו'

@OdedDvir
@שרוני לא מדבר על הפעולה של הסריקת בר קוד אלא על הממשק של הוצאת מדבקות של בר קוד

@שרוני אמר בתוכנה לניהול השאלת ספרי לימוד:

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