VBA读写EXCEL文档的一般方法

tcsl9621

非常简单。呵……与VB调用EXCEL一样？先添加EXCEL对像。在VBA下定义一个EXCEL对像。再获取或新建一个EXCEL对像。

调用EXCEL下的WORKBOOKS.sheets.item(1)

就可以写入对像了。

great_kevin

Sub excell()
Dim x, y As Variant
Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
Set ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls") '
Set ExcelWorkbook.Visible = True
Set ExcelSheet = ExcelWorkbook.Worksheets("基础数据") '
ExcelSheet.Activate '
x(0) = 0: x(1) = 0: x(2) = 0
For i = 1 To 50
y(0) = ExcelSheet.cells(i, 1).Value
y(1) = ExcelSheet.cells(i, 2).Value
y(2) = 0
Call ThisDrawing.ModelSpace.AddLine(x(i), y(i))
y = x
Next
End Sub
……………………………………………………………………
我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
程序不报错，也没反应，不知为何？

great_kevin

Sub excell()
Dim x, y As Variant
Dim i As Integer
Dim Excel   As Excel.Application
Dim ExcelSheet   As Object
Dim ExcelWorkbook   As Object
On Error Resume Next
  Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
    Set Excel = CreateObject("Excel.Application")
End If
Set ExcelWorkbook = Excel.Workbooks.Open("d:\基础数据.xls")
Set ExcelWorkbook.Visible = True
Set ExcelSheet = ExcelWorkbook.Worksheets("基础数据")
ExcelSheet.Activate
x(0) = 0: x(1) = 0: x(2) = 0
For i = 1 To 50
   y(0) = ExcelSheet.cells(i, 1).Value
   y(1) = ExcelSheet.cells(i, 2).Value
   y(2) = 0
   Call ThisDrawing.ModelSpace.AddLine(x, y)
   x = y
   Next
End Sub

……………………………………………………………………
我的本意是从excel文件（50行、2列）中读取数据，分别作为横纵坐标，Z坐标赋值为0，然后画线
程序不报错，也没反应，不知为何？

上面的代码贴错了，这个事最后的！

xiaowen

新手,学习中,感谢分享.

xiaowen

新手,学习中,感谢分享.

短歌行

谢谢 学习了

lik132

非常感谢楼主

monkeylzx

多谢楼主分享，学习一下

为什么任兵

楼主辛苦了，很好的教程

江湖远人

楼主辛苦了，长见识了！