㈠ VBA中如何用FtpFindFirstFile查看FTP上文件是否存在
建議你先使用SetFTPDirectory指定目錄，然後再使用FtpFindFirstFile函數，這時sFile應該就是"0000.xls"。
你可以參考一下cFTP類中的GetFTPDirectoryContent方法的代碼。
還沒有安裝FTP伺服器，還不能幫你寫出完整的代碼，你自己先試試，不好意思。
㈡ VBA如何訪問ftp路徑的文件
需要先判斷該文件是否存在。
VBA是到一個ftp伺服器上打開指定的文件，但是需要先判斷該文件是否存在，在那個cFTP的類中找到一段代碼。
㈢ 怎樣用vba實現文件上傳到ftp服務中
VBA訪問FTP進行文件傳輸的，網路上見到3種方式，用過2種。
一、VBA+DOS批處理的方式，本質上還是通過DOS來進行，有點麻煩，而且運行中會彈出CMD窗口，現在已經不用這種方法了。
VBA寫DOS：
OpengetfdForOutputAs#1
Print#1,""
Print#1,"("
Print#1,"echo;openxx.xx.xx.xx"
Print#1,"echo;user"
Print#1,"echo;pwd"
Print#1,"echo;cd""";ftpfdx8;""""
Print#1,"echo;prompt"
Print#1,"echo;dir"
Print#1,"echo;bye"
Print#1,")>""";fdx8;""""
Print#1,
Print#1,"ftp-v-i-s:""";fdx8;"""|find""ftpgroup"">""";folderx8;""""
Print#1,
VBA運行它：
Shell("ftp-v-i-s:"&ftpfile)二、VBA調用API，具體是basp21.dll
詳見http://www.hi-ho.ne.jp/babaq/eng/basp21f.html，說明很詳細，有實例
示例如下，比較簡單易懂，其中getfile為下載，上傳使用putfile就好了。
PrivateSubForm_Load()
DimftpAsObject,rcAsLong,vAsVariant,v2AsVariant
DimctrAsLong
Setftp=CreateObject("basp21.FTP")
ftp.OpenLog"c: emplog.txt"
rc=ftp.Connect("ftp.microsoft.com","anonymous","")
Ifrc=0Then
v=ftp.GetDir("bussys/winnt/winnt-public",2)
IfIsArray(v)Then
ForEachv2Inv
Debug.Printv2
Next
EndIf
v=ftp.GetDir("bussys/winnt/winnt-public")
IfIsArray(v)Then
ForEachv2Inv
Debug.Printv2
Next
EndIf
rc=ftp.GetFile("bussys/winnt/winnt-public/*","c: emp")
EndIf
End
EndSub
代碼如下：有問題，發網路消息給我。
在Microsoft visual basic中，工具－引用 Microsoft ActiveX Data Objects 2...選一個高版本的
Dim conn As New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr '連接資料庫
Dim rs As New Recordset
sql = "select * from a" '查看錶a
rs.Open sql, conn, 3, 3
Do While Not rs.EOF '循環表a的內容
MsgBox (rs("field1")) '顯示表中field1欄位內容
rs.MoveNext
Loop
'connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
'test是資料庫名
'(local)是伺服器名或IP地址，可以：192.168.1.1，可以是：www.sina.com.cn
'sa是資料庫用戶
'123是資料庫用戶密碼
㈤ Excel 求助，如何使用VBA實現遠程訪問SQL資料庫
VBA
連接
SQL
SERVER
資料庫
實例:
Dim
strConn
As
String,
strSQL
As
String
Dim
conn
As
ADODB.Connection
Dim
ds
As
ADODB.Recordset
Dim
col
As
Integer
'連接資料庫的字元串
strConn
=
"Provider=SQLOLEDB.1;Persist
Security
Info=True;User
ID=[user];Password=[password];Initial
Catalog=[database];Data
Source=[資料庫IP地址或資料庫伺服器名稱];Connect
Timeout=720;
"
'查詢語句，如果sql語句很長可以用strSQL=strSQL+來連接分成多段的語句，如果語句很短可以只寫在一行上。
strSQL
=
"select
*
from
Hy_KPI_Shop_Dept_WeekRpt
"
strSQL
=
strSQL+"where
sdate='2014-01-01'
order
by
sdate,shopid
"
Set
conn
=
New
ADODB.Connection
Set
ds
=
New
ADODB.Recordset
'打開資料庫連接
conn.Open
strConn
'該句和資料庫連接字元串處的Connect
Timeout=720，表示說如果語句運行時間很長，這兩句可以延長vba的等待時間，沒有這兩句，vba往往會報查詢超時。
conn.CommandTimeout
=
720
With
ds
'根據查詢語句獲得數據
.Open
strSQL,
conn
'自動控制加入所有列標題
For
col
=
0
To
ds.Fields.Count
-
1
'請注意Offset(0,
col)中的參數一定要正確，該句表示標題將會寫在第一行，從A1單元格開始，如果不想寫入標題行，可將下面這句注釋掉。
Worksheets("門店各課KPI周報").Range("A1").Offset(0,
col).Value
=
ds.Fields(col).Name
Next
'加入所有行數據，該句表示查詢結果將會寫在第一行，從A1單元格開始，但是由於標題行寫在第一行了，所以實際這一行從標題下的一行寫入。
Worksheets("sheet1").Range("A1").Offset(1,
0).CopyFromRecordset
ds
End
With
'關閉資料庫連接和清空資源
Set
ds
=
Nothing
conn.Close
Set
conn
=
Nothing
㈥ VBA中如何用Dir()函數查看ftp伺服器上的文件是否存在
要用SHELL函數:
shell(dir xxxx)
DOS底下的FTP 你可以查幫助
FTP -? 然後按照你的需要寫命令.
例如:
shell("ftp 12.216.10.10 -s:a.txt")
在a.txt里定義你的所有輸入行：
youruserid
password(或anonymous)
cd .\data\200804\01\
dir *.xls
quit
㈦ vba 中的用shell連接FTP伺服器問題問題
因為shell
語句
是調用
程序
來運行的，你應該調用程序，並且把
參數傳遞
給程序，這樣就行了...
比如，Shell
"C:\Program
Files\Internet
Explorer\iexplore.exe
www..com"，這樣就能用IE鏈接到網路上...
你的可以試試Shell
"C:\Program
Files\Internet
Explorer\iexplore.exe
ftp://[email protected]\123\123\12#.xls"，用Shell
"C:\WINDOWS\explorer.exe
"
&
"ftp://[email protected]\123\123\12#.xls"也可以...我這邊測試時沒
許可權
，上不去...
由於你是連接
伺服器
，有時需要
用戶許可權
，這樣的話，
參數
就要相對復雜一點...