通过vbscript批量更新excel文档oracle数据源(版本1：connection.refresh方法)

<pre><span style="font-family:Microsoft YaHei;"></span><address><span style="font-family:KaiTi_GB2312;font-size:12px;color:#ff0000;">*************************************************</span></address><address><span style="font-family:KaiTi_GB2312;font-size:12px;"><span style="font-size:12px;color:#ff0000;">** 原文： blog.csdn.net/clark_xu <span style="font-family:KaiTi_GB2312;font-size:12px;color:#ff0000;">徐长亮的专栏</span></span></span></address><address><span style="font-family:KaiTi_GB2312;font-size:12px;"></span><span style="color:#ff0000;"><span style="font-family:KaiTi_GB2312;"><span style="font-size:12px;">** 微信公众号：clark_blog      </span></span></span></address><address><span style="font-family:KaiTi_GB2312;font-size:12px;color:#ff0000;">*************************************************</span></address>

'wsript对象
dim xlsWorkBook	'workbook对象
dim xlsSheet		'worksheet对象
dim xlscon			'connection对象
dim xlsquery		'querytable对象
dim i						'connection基数
dim j						'内部循环

dim fileapp 'wscript文件对象
dim folderdir
dim folderobject
dim subfolderobject
dim filename
dim subdirpath

'wscriptExcel 对象
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.DisplayAlerts=False

'wscript 文件系统对象
Set fileapp=CreateObject("Scripting.FileSystemObject")

'文件根目录
'folderdir=InputBox("文件夹路径,例如E:\15-VB", MsgTitle)
folderdir="E:\15-VB"

'folder对象,Subfolder对象
Set folderobject=fileapp.GetFolder(folderdir)
Set subfolderobject=folderobject.SubFolders

for each i in folderobject.files
 			if i.type="Microsoft Office Excel 97-2003 工作表"  or i.type="Microsoft Office Excel 工作表" then
 			  filename=folderdir&"\"&i.name
 			  msgbox filename 
        '创建workbooks对象
				set xlsWorkBook=xlsApp.Workbooks.open(filename)
				'for next循环
				for j=1 to xlsWorkBook.connections.count
				    set xlscon=xlsWorkBook.connections(j)
				    'msgbox xlscon
						xlscon.refresh
						On Error Resume Next 
			  next
			  msgbox xlsApp.StatusBar
				msgbox xlsApp.DisplayStatusBar
				sleep 30000
			  xlsWorkBook.Save		
 			end if
next

'子目录递归处理
for each subdirpath in subfolderobject
 			for each i in subdirpath.files
 				if i.type="Microsoft Office Excel 97-2003 工作表"  or i.type="Microsoft Office Excel 工作表" then
 			  	filename=subdirpath&"\"&i.name
 			  	msgbox filename
 			  	'创建workbooks对象
					set xlsWorkBook=xlsApp.Workbooks.open(filename)
					'for next循环
					for j=1 to xlsWorkBook.connections.count
				    set xlscon=xlsWorkBook.connections(j)
				    'msgbox xlscon
						xlscon.refresh
						On Error Resume Next 
			 	 	next
			  	msgbox xlsApp.StatusBar
					msgbox xlsApp.DisplayStatusBar
					sleep 30000
			  	xlsWorkBook.Save	
 				end if
			next 
next
				
 '退出操作
'xlsWorkBook.Close
xlsApp.Quit

Set xlscon=Nothing '释放内存
Set xlsWorkBook = Nothing '释放内存
Set xlsApp = Nothing  '释放Excel对象
Set subfolderobject=Nothing '释放内存
Set folderobject=Nothing '释放内存
Set fileapp=Nothing '释放内存