怎么将一组数据插入一个已存在的Excel文件的指定列?我用下面代码导出数据,却无法将结果返回到C列去。
Dim objExcel As Object
Dim exSheet As Object
Set objExcel = GetObject("c:\abc.xls") '加载一个对象
'Set exSheet = Nothing
Set exSheet = objExcel.Worksheets("Sheet1")
Dim x(7, 1) As Double
For i = 0 To 7
'A列填充了数组的第一个系列
x(i, 0) = exSheet.Range("A" & i + 1).Value
'B列的值填充第二个系列。
x(i, 1) = exSheet.Range("B" & i + 1).Value
Next
结果是 Dim p(7) As Integer
For i = 0 to 7
p(i) = x(i, 0) * x(i, 1) + .......
Next2. 操作完成之后,怎么直接将该文件打开?
创建新文件时用
Set objExcel = CreateObject("Excel.Application")
Set exwbook = objExcel.Workbooks().Add
Set exSheet = exwbook.Worksheets("Sheet1")
objExcel.Visible = True
可以打开,我不要创建新文件
Dim objExcel As Object
Dim exSheet As Object
Set objExcel = GetObject("c:\abc.xls") '加载一个对象
'Set exSheet = Nothing
Set exSheet = objExcel.Worksheets("Sheet1")
Dim x(7, 1) As Double
For i = 0 To 7
'A列填充了数组的第一个系列
x(i, 0) = exSheet.Range("A" & i + 1).Value
'B列的值填充第二个系列。
x(i, 1) = exSheet.Range("B" & i + 1).Value
Next
结果是 Dim p(7) As Integer
For i = 0 to 7
p(i) = x(i, 0) * x(i, 1) + .......
Next2. 操作完成之后,怎么直接将该文件打开?
创建新文件时用
Set objExcel = CreateObject("Excel.Application")
Set exwbook = objExcel.Workbooks().Add
Set exSheet = exwbook.Worksheets("Sheet1")
objExcel.Visible = True
可以打开,我不要创建新文件
Dim exl As New Excel.Application
Dim wbook As Object
exl.SheetsInNewWorkbook = 1
Set wbook = exl.Workbooks.Open("c:\abc.xls")