使用脚本在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 '关闭表格