import com
var IE = com.CreateObject( "InternetExplorer.Application.1" )
with IE {
Menubar = false ;
AddressBar = false ;
ToolBar = false ;
Top = 200
Left = 200
Width=300
Height=300
FullScreen = false ;
Resizable = true ;
Visible = true
Navigate2( "http://www.baidu.com" )
}

import com
IE = com.CreateObject( "InternetExplorer.Application.1" )
namespace IE {
Menubar = false ;
AddressBar = false ;
ToolBar = false ;
Top = 200
Left = 200
Width=300
Height=300
FullScreen = false ;
Resizable = true ;
Visible = true
Navigate2( "http://www.baidu.com" )

quickerfans 发表于 2011-8-12 10:24
对命名空间还不理解。发现理解它对编程提高很多。希望quicker能赐教浅谈几句。谢谢，

上面语句，如果不放在命名空间里 你要如下面写法才能执行
import com
//Create an Instance of IE
IE = com.CreateObject( "InternetExplorer.Application.1" ) // 创建IE对象
IE.Menubar = false ;
IE.AddressBar = false ;
IE.ToolBar = false ;
IE.Top = 200
IE.Left = 200
IE.Width=300
IE.Height=300
IE.FullScreen = false ;
IE.Resizable = true ;
IE.Visible = true
IE.Navigate2( "http://www.baidu.com" )
放在命名空间里，你就可以省略每行都写IE. 是方便也便于归纳 。
本帖最后由 quickerfans 于 2011-8-13 14:24 编辑

qqmmcc 发表于 2011-8-13 13:45
上面语句，如果不放在命名空间里 你要如下面写法才能执行
import com

namespace IE {
这一句声明了IE的命名空间。这些属性，方法，在IE命名空间里就可以直接用了。不再在其前面加上命名空间IE.的前缀。这一个还算好理解。import win
aa1234="123456"
bb="cc"
win.msbox(self["aa"++1234],"aardio")，这个同样属于命名空间的问题，似乎就绕一个弯 //excel to table http://bbs.aardio.com/
import com;
excel=com.CreateObject("Excel.Application");
excel.Workbooks.open("c:\2.xls");
excel.visible=false;
excel.DisplayAlerts = False;
sheet=excel.workbooks(1).sheets(1);
//sheet.range("a1:f9").value2=5;
//io.open();
//初始行为1，求有几行;
while(sheet.cells(H+1,1).value2!=null){
H+=1;
//初始列为1,求有几列;
while(sheet.cells(1,L+1).value2!=null){
L+=1;
var tabsum={};
//txt=io.open("c:\test.txt","w")
for(j=1;H;1){
//定义一个空表
var tab={};
for(k=1;L;1){
//从每一行的第一列打印到最后一列;
//io.print(sheet.cells(j,k).value2);
//txt.write(tostring(sheet.cells(j,k).value2)+" ");
//把单元格中的数值压入表中,空单元格或为null或为10个空格
if(tostring(sheet.cells(j,k).value2)!='          '){
table.push(tab,tostring(sheet.cells(j,k).value2));
else {
table.push(tab,"null")
//txt.write('\r\n')
//将子表中的数值压入总表中成二维数组
table.push(tabsum,tab);
excel.quit();
//for(i=1;H;1){
io.open();
//变量i从1至表中键值对数量之和 递增为1
for(i=1;#tabsum;1){
//总表 中 子表 键值对 枚举
for(k,v in tabsum[ i ]){
io.print(k,v);
本帖最后由 quickerfans 于 2011-8-31 10:39 编辑

Kevinch 发表于 2011-8-18 12:33
while(sheet.cells(H+1,1).value2!=null){
H+=1;
sheet.cells(1,1).end(-4121).row;
//xlDown=-4121;
/*END属性：返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。*/
//xlToRight=-4161;
sheet.cells(1,1).end(-4161).select()
sleep(1000);
//xlToLeft=-4159;
sheet.cells(1,1).end(-4159).select()
//xlDown=-4121;
sleep(1000)
sheet.cells(1,1).end(-4121).select()
io.open()
io.print(sheet.cells(1,1).end(-4121).row)
io.print(sheet.cells(1,1).end(-4161).column)
这个方法是要简单些，这样封装一个exceltotable的函数用不了几行代码。仍然不连续的单元格不适用
谢谢，又学了些东东。
++++++摘自nvt303空间+++++
//得到使用的行数和列数，包括不连续行，行，
books=excel.workbooks;
excel.workbooks(1).sheets(1). Activate()
l=excel.ActiveSheet. UsedRange .Columns.count
h=excel.ActiveSheet.UsedRange.Rows.Count
io.open()
io.print(h,l)
++++++++++++++++++++
设置某单元格格式为文本
sheet.Range("A1"). NumberFormatLocal = "@"
设置单元格格式为数值
sheet.Range("A1").NumberFormatLocal    =    "0.00"  //保留小数点后两位
设置单元格格式为时间
sheet.Range("A1").NumberFormatLocal    =    "h:mm    AM/PM"
sheet.Range( "A1"). HorizontalAlignment =-4108;   //水平居中
sheet.Range( "A1"). VerticalAlignment =-4108;  //垂直居中