使用脚本在Excel中插入数据

 

例1. 把数据写入到Excel中，并另存为：

ExcelObj.ActiveWorkbook.Saveas"C:\Users\oushuxian\Desktop\11.xlsx"

ExcelObj：为创建的excel对象

 

例2. 创建新excel表，脚本如下：

Dim Excel,ExcelSheet,fs

Set Excel=CreateObject("Excel.Application")           \'创建Excel的对象

Set ExcelSheet=CreateObject("Excel.Sheet")         \'创建Excel中的Sheet活动工作表的对象

 

Set new1=ExcelSheet.WorkSheets.Add            \'创建新一个新表

new1.name="new1"                          \'把该表命名为“”new1“”

 

Set new2=ExcelSheet.WorkSheets.Add

new2.name="new2"

 

Excel.ActiveWorkbook.Saveas("C:\Users\oushuxian\Desktop\222.xlsx")   \'把表格另存为222.xlsx

 

则创建的新表如下：

 

 

例3. 在上面的脚步语句中加入插入数据的语句，如下所示，

new1.Cells(1,1).value=6   \'在该活动表中的第一行，第一列插入数据

 

例4. 使用例2和例3中的脚本，在Excel中只会脚本中输入的数据，覆盖Excel之前的数据，如果要保持Excel中本具有的数据，则需要打开已有的excel后，在该文档中插入新的数据，脚本如下：

Dim Excel,ExcelSheet,fs

Set Excel=CreateObject("Excel.Application")           \'创建Excel的对象

 

fs="C:\Users\oushuxian\Desktop\Test .xlsx"           \'fs表示Excel文档Test 的路径

Excel.Workbooks.Open(fs)                         \'打开该Excel文档

 

Set new1=Excel.WorkSheets("new1")            \'打开Excel表中的活动工作表new1

new1.Cells(7,1).value=77                  \'在该表new1中的第七行第一列中插入数据77

 

Excel.ActiveWorkbook.Save               \'保存表格

Excel.Quit                             \'关闭表格

 

例5. 在例4的基础上，插入循环语句，脚本如下：

Dim Excel,ExcelSheet,fs

Set Excel=CreateObject("Excel.Application")           \'创建Excel的对象

 

fs="C:\Users\oushuxian\Desktop\Test .xlsx"           \'fs表示Excel文档Test 的路径

Excel.Workbooks.Open(fs)                         \'打开该Excel文档

 

Set new1=Excel.WorkSheets("new1")           \'打开Excel表中的活动工作表new1

 

\'使用循环语句插入数据

Dim i

i=1

Do while i<10

new1.Cells(8,i+1).value=i+5                 \'在该表new1中的第七行第i+1列中插入数据

i=i+1

Loop

 

Excel.ActiveWorkbook.Save               \'保存表格

Excel.Quit                             \'关闭表格