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

@מלא אמר בSMS:

@UA
יש אפשרות לקבל SMS למייל. ולהשיב דרך האתר.
כאן
955.co.il

דרך אגב אני משתמש בשירות הזה ומאד נהנה..
ממליץ בחום..

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

@יהודי-פשוט
לחצתי על הפרטים וקיבלתי את זה

כאן רואים שהמחיר הסופי הוא 190 $ ולא 132 $

@NOKIA אמר ברעיון לאכסון כלי עבודה:

איפה אני קונה מגנט כזה (בני ברק)

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

@ZACK אני גם נתקלתי בזה בהדפסה דרך גוגל שיטס
הפיתרון היחיד שמצאתי הוא להוריד את הגיליון לאקסל ולהדפיס

@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 לא עוזר.
אולי יש בעיה טכנית בקוד
ידוע לך על איזה קוד אחר שעושה את זה? אולי הוא יהיה יותר טוב..