******************************************************************************
定义IE对象、Document对象
Set oIE=CreateObject("InternetExplorer.Application")
oIE.Visible="True"
oIE.navigate="http://www.baidu.com"
while oIE.Busy :Wend '等待IE加载完成
Set oDoc=oIE.Document
******************************************************************************
Set oExcel= CreateObject("excel.application") '建立excel对象
Set eWorkBook= eApp.Workbooks.Open(parafilepath) ‘设置工作表
Set eSheet= eWorkBook.Sheets("Sheet1") ’设置sheet
usedrows=eSheet.UsedRange.rows.Count ‘获得已被使用的行数
******************************************************************************
Set fso=CreateObject("scripting.filesystemobject") '建立文本对象
******************************************************************************
定义IE对象、Document对象
Set oIE=CreateObject("InternetExplorer.Application")
oIE.Visible="True"
oIE.navigate="http://www.baidu.com"
while oIE.Busy :Wend '等待IE加载完成
Set oDoc=oIE.Document
******************************************************************************
Set oExcel= CreateObject("excel.application") '建立excel对象
Set eWorkBook= eApp.Workbooks.Open(parafilepath) ‘设置工作表
Set eSheet= eWorkBook.Sheets("Sheet1") ’设置sheet
usedrows=eSheet.UsedRange.rows.Count ‘获得已被使用的行数
******************************************************************************
Set fso=CreateObject("scripting.filesystemobject") '建立文本对象