前几天为了工作想将Ftp文件自动下载解压然后将数据导入到excel，这样上班后就可以直接应用数据了，开始想看好多办法，比如PHP VB 等，但是最后都觉得不太好用，采用了系统自带的DOS 系命令，不过这个DOS 真是不太好用啊，研究了三天，就写了不到100 行的代码，但是最后还是成功了，跟大家分享一下
iis7服务器管理工具适用群体为：机房管理、站长、运维工作、程序员，等需要大量服务器或者电脑的用户朋友。
IIS7服务器管理工具可以批量管理、定时上传下载、同步操作、数据备份、到期提醒、自动更新。IIS7服务器管理工具适用于Windows操作系统和liunx操作系统；支持Ftp客户端批量操作。
第一、就是自动开机了，自动开机可以自电脑启动时进入主板设置， 电源管理 -> RTC 唤醒时间
第二、开机后自动运行bat 文件，这个设置直接百度吧
第三、cmd 实现rar 解压缩：首先下载安装winRAR软件，安装后默认安装在C:\Program Files\WinRAR 下了，或者安装时注意一下安装路径，安装完毕将安装路径下winRAR.exe 复制到 C:\Windows 下并将WinRAR.exe 重命名rar.exe 目的是为了在cmd 命令下能够应用WinRAR 软件，完成后再cmd命令下可以直接使用rar 命令
第四、设置自动登录
这里针对有密码用户，没有密码跳过直接看下一步自动登录方式有很多，经过大量的测试，最后选择自动登录，然后在bat 文件内锁定windows，这样不影响文件运行，也可以密码登录安全选择本机登录用户，然后去掉对勾，应用，弹出密码框，输入密码，确定，下次重启登录，将会自动登录，但是密码依然存在
第五、ftp 网盘的文件 自动下载下来保存解压上代码：
@echo off&setlocal enabledelayedexpansion
if %time:~0,2% leq 9 (goto:next) else goto:finish ##设置 当前时间小于9点执行，大于9点不在执行，目的是防止工作是必要重启电脑重复下载
:next
%windir%\System32\rundll32.exe user32.dll,LockWorkStation ##锁定windows 目的是如果有密码前面设置了自动登录后直接登录了，这样登录后不安全，需要密码登录
set desktop=E:\Desktop ##设置下载后的文件以及自动生成的excel 文件保存的位置
echo %time:~0,11%>c:\filename.txt ##输出时间到文件
echo WScript.sleep 5000 > sleep.vbs ##输出到文件
echo open 192.168.1.108>ftp.txt ##输出到文件 ftp ip地址
echo administrator>>ftp.txt ##输出到文件 ftp 用户名
echo 111>>ftp.txt ##输出到文件 ftp密码
echo dir / localfile.txt>>ftp.txt
echo quit>>ftp.txt
echo 欢迎使用ftp 自动下载工具
set /a t=4
:loop
set /a var=0
set d=%date:~0,10%
::set t=%time:~0,2%
echo %d%>tet.txt
if %t% leq 9 (set td=0%t%)else set td=%t%
echo 时间为%date:~2,8%-%time:~0,8%
for /f "tokens=1,2* delims=/" %%a in (tet.txt) do set d=xstz_%%a%%b%%c%td%
echo 文件名应为 %d%
echo 建立ftp 连接......
FTP -s:ftp.txt
echo 搜索要下载的文件....
for /f "tokens=1,2,3,4,5,7 delims=:- " %%a in (localfile.txt) do if "%%f"=="%d%.zip" (set /a var=1)
echo 搜索文件数为：%var%
echo %t%
Wscript sleep.vbs
if %var% geq 1 (goto:ftpDownLoad) else (if %t% leq 20 (set /a t=t+1) else set /a t=4 ) && goto:loop
echo 查找文件成功准备下载！！
:ftpDownLoad
echo 下载
echo open 192.168.1.108>ftps.txt
echo administrator>>ftps.txt
echo 111>>ftps.txt
echo lcd %desktop%>>ftps.txt
echo prompt>>ftps.txt
echo hash>>ftps.txt
echo bin>>ftps.txt
echo cd />>ftps.txt
echo mget %d%.zip>>ftps.txt
echo quit>>ftps.txt
echo %desktop%>>c:\filename.txt
echo ftp下载开始时间： %time:~0,8%>>c:\filename.txt
FTP -s:ftps.txt
del tet.txt
del localfile.txt
del ftp.txt
del ftps.txt
del sleep.vbs
mkdir %desktop%\%d%
echo ftp下载结束时间： %time:~0,8%>>c:\filename.txt
echo 100>>c:\filename.txt
echo %d%>>c:\filename.txt
echo 导入excel时间： %time:~0,8%>>c:\filename.txt
rar e -o+ %desktop%\%d%.zip %desktop%\%d%
##执行解压缩
1.xlsm
:finish
第六 excel 文件自动执行
excel 处理这里不写了，有需要的可以跟我联系
Private Sub Workbook_Open()
msgbox "哈哈，我是自动运行的呦"
End Sub
