VBScript 学习
上一篇 /
下一篇 2013-08-08 14:24:29
/ 个人分类：vbscript
二、遇到的问题
1、excel
'========================================
'创建Excel对象,关闭Excel对象--函数
'=========================================
Function getExcel(excelpath)
Set bjexcel = CreateObject("excel.application")
Set bjworkbook = objexcel.Workbooks.Open(excelpath)
objxml_inter=""
'遍历excel的每个sheet
For Each temp In objworkbook.Sheets
Set bjsheet =temp
'读入Excel数据
Call getExcelData(temp.Name)
next
End Function
2、提示activex部件不能创建对象 useraccounts.commondialog
Set IE = CreateObject("InternetExplorer.Application")
oIE.Navigate "About:Blank"
oIE.Document.Write "<HTML><BODY><INPUT TYPE='file' ID='x'/></BODY></HTML>"
Set Element = oIE.Document.getElementById("x")
oElement.Click
excelpath= oElement.Value
oIE.Quit
收藏
举报
TAG:
