دوستی سوال فرمودند:
این مشکل مربوط به خود اکسل نیست مساله شبکه هست. اگر مطمئن هستید که اتصال ftp هست روش زیر جواب میدهد:
ابتدا FTPC.dll را به مجموعه reference ها اضافه می کنید. ابتدا FTPC.dll را دانلود کنید. از برای این کار در محیط ویژوال بیسیک اکسل Tools و متعاقبا references را انتخاب کنید. Browse را بزیند و در محلی که FTPC.dll ذخیره شده است بروید و آن را Add کنید.
سپس از کد زیر را برای اتصال استفاده می کنید:
'To use the object, declare it then create a new instance of it
Dim WithEvents objFTPC As FTPClient
Set objFTPC = New FTPClient
'To connect, supply it with required parameters
objFTPC.Username = "Anonymous"
objFTPC.Password = "Guest"
objFTPC.PassiveMode = True
objFTPC.RemoteHost = "ftp.ftphost.com"
objFTPC.RemotePort = 21
objFTPC.Connect
'To upload data,
objFTPC.OpenDataConnection
'Wait for Data socket to be connected
Do Until objFTPC.DataState = DS_CONNECTED
DoEvents
Loop
'Upload data
objFTPC.UploadFile "readme.txt"
'Then upload ur data whenever NeedData event is fired
Private Sub objFTPC_NeedData()
objFTPC.SendData "My data"
End Sub
'To download data,
objFTPC.OpenDataConnection
'Wait for Data socket to be connected
Do Until objFTPC.DataState = DS_CONNECTED
DoEvents
Loop
'Download data
objFTPC.DownloadFile "readme.txt"
'Then download ur data whenever IncomingData event is fired
Private Sub objFTPC_IncomingData(BytesTotal As Long)
Dim sData As String
objFTPC.GetData sData
End Sub
'That cover the basics. For more advance functions, post it here
اگر مساله ورود از طریق ftp نیست و کامپیوتر ها به صورت peer to peer به هم وصل هستند. در صورتی که از تنظیمات شبکه خود مطمئن باشید (به این مفهوم که سطح دسترسی تعریف کرده باشید برای یک یوزر شبکه و فایروال هم تنظیماتش انجام شده باشد، من فکر می کنم مشکل شما با این پست حل می شود:
http://forum.exceliran.com/thread-22...54.html#pid554
موفق و پیروز باشید.
علاقه مندی ها (Bookmarks)