vba服务器

1、如何用VBA代码把远程服务器上的文件拷到本

FileCopy 源文件 目的文件
例-复制注册表到D盘:FileCopy "C:\WINDOWS\regedit.exe","D:\regedit.exe"

2、怎么用vba实现excel与服务器时时互动

如果你能单机跨工作簿互动的话,
只要在本机影射一个盘符到服务器就可以像单机一样操作了

3、Excel VBA 自动发送邮件 与服务器的传输连接失败

发送邮件服务器：smtp.exmail.qq.com ，使用SSL，端口号465如果还是出现连接失败，可以改为25端口试试

4、如何使用VBA判断是否已经成功连接SQL Server 2012服务器

参考以下代码，连接字符串需要根据自己情况书写。

sub tryConn()     
On Error GoTo errHdl
    Dim ConnSql As New ADODB.Connection
    '以下为连接字符串，根据自己的情况填写
    ConnSql.ConnectionString = "Provider=SQLOLEDB.1;Password=" & _
                               “xxxx” & _
                               ";Persist Security Info=True;User ID=" & _
                               "sa"& _
                               ";Initial Catalog=yhsjk ;Data Source=" & _
                               "(local)"
exit sub   
errHdl:  msglenth = LenB(Err.Description) + 15
         Msg = "发生错误，请仔细查看下面的错误描述。" & Chr(13) & String(msglenth, "-") & Chr(13) & _
               "错误号 # " & Str(Err.Number) & Chr(13) & _
               "错误来源：" & _
                Err.Source & Chr(13) & "错误描述：" & Err.Description & Chr(13) & String(msglenth, "-")
end sub

5、如何用vba开发excel数据库服务器

vba是从vb衍生出来的，可以直接操作excel，建议你买本书看看就会了，其实不难的

6、VBA-邮件无法发送到smtp服务器

检查一下qq邮箱，腾讯对于类似的这种发送会有限制的。大约连续发送20封左右会提示你发送过快，限制你的发送。

7、vba 如何获取服务器时间

创建一个timer控件。时间间隔设成300-500都可以~
然后输入如下代码：
Label1=format(time,"HH:MM:SS")

8、请教VBA上传服务器代码

小鸟来云服务器niaoyun实例创建好自之后，您可以使用以下任意一种方式登录服务器：

远程桌面连接(,MSTSC)：采用这种方式登录，请确保实例能访问公网。如果在创建实例时没有购买带宽，则不能使用远程桌面连接。

管理终端VNC：无论您在创建实例时是否购买了带宽，只要您本地有网页浏览器，都可以通过管理控制台的管理终端登录实例。

使用远程桌面连接(MSTSC)登录实例

打开开始菜单>远程桌面连接，或在开始菜单>搜索中输入mstsc。也可以使用快捷键Win+R来启动运行窗口，输入mstsc后回车启动远程桌面连接。

在远程桌面连接对话框中，输入实例的公网IP地址。单击显示选项。

输入用户名，如小鸟云默认为niaoyun。单击允许我保存凭据，然后单击连接。这样以后登录就不需要手动输入密码了。

9、VBA 上传文件服务器和从服务器获取文件

其实是追问LZ，如何实现呢，我现在也是想从自己电脑上传文件到公共服务器上去。。

10、ACCESS如何用VBA代码获取SQL SERVER本机及局域网服务器名称?

Dim cn As New ADODB.Connection
Dim strCn As String
Dim strSQL As String
Dim rs As New ADODB.Recordset
 
Stpath = ThisWorkbook.Path & Application.PathSeparator & "SPSDI.accdb" '设定access文件路径
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
strCn = "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""
cn.Open (strCn)
strSQL = "SELECT * FROM table"
rs.Open strSQL, cn, adOpenStatic

这是用vba连接access的，可以修改strSQL ，这个是sql语句，sql语句是有查询数据专源和服务器的。属你通过查询可以用list控件显示出来就行了