不定时更新
初始设定
Dim oExcel, oWb, oSheet
Set oExcel = CreateObject("Excel.Application")
Set oWb = GetObject(, "Excel.Application") 使用已打开的文件
'oWb= oExcel.Workbooks.Open("E:\其他\新装电话表.xls") 使用本地文件
Set oSheet = oWb.Sheets("Sheet1")
如果只是单个Sheet的小程序 上面的定义都可以略去。
另外 GetObject和CreateObject的区别,可以参考MSDN,简单点说就是Get和Creat的区别。如果是在Excel表里使用VBA的话,推荐GetObject。如果是外部程序要新建的话,推荐CreateObject……
可以参考这里或者附件一(精简版)
关于Range和Cell
Cell是指一个单元格Range是指一个区域的单元格Range("A1")和Cells(1,1)是指同一个单元格。Range可以配合固定字符串使用,比如range("c4:e10")
range是一种对象 cells是一个属性。 都可以用.Value 来获取、设置内容
可用 expression.Cells(row, column) 返回单元格区域中的一部分,其中 expression 是返回 Range 对象的表达式,row 和 column 为相对于该区域左上角的偏移量。下例设置单元格 C5 的值。
myChart.Application.Range("C5:C10").Cells(1, 1).Value = 35
更多可以看这里:传送门
Range("A:A") A列
Range("1:1") 第1行
Range("