cad读取excel数据，求助啊

燕归来

Sub cc100()
Dim cc(0 To 2) As Double
Dim dd(0 To 2) As Double
Dim ExcelApp As Excel.Application
'激活要与之通信的Excel应用程序
Dim excelsheet As Worksheet '定义工作表变量
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Set ExcelApp = CreateObject("Excel.Applicationn")
End If
Set ExcelApp = CreateObject("excel.application")   '激活excel程序
ExcelApp.Workbooks.Open ("F:\vb\123.xls") '打开工作薄
Set excelsheet = ExcelApp.ActiveWorkbook.Sheets("sheet1") '当前工作表为sheet1
On Error Resume Next
Set ExcelApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Set ExcelApp = CreateObject("Excel.Applicationn")
End If
cc(0) = 1000
cc(1) = 1000
cc(2) = 0
dd(0) = Excel.Worksheets("sheet1").Range("A1").Value
dd(1) = Excel.Worksheets("sheet1").Range("A1").Value
dd(2) = 0
For i = 1 To 100 Step 10
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
Call ThisDrawing.ModelSpace.AddCircle(dd, i * 10)
Next i
End Sub

燕归来

初学vba，简单试试要把excel中的一个数据传到cad中作为圆心坐标，老是不行啊

雪山飞狐_lzh

你可以试下用Sql方式打开Excel表
网上类似的代码很多

longer1000

太难了，学不会

markc0826

2. Sub cc100()
   
3.         Dim cc(0 To 2) As Double
   
4.         Dim dd(0 To 2) As Double
   
5. 
   
6.         On Error Resume Next
   
7.         Set ExcelApp = GetObject(, "Excel.Application")
   
8.         If Err <> 0 Then
   
9.         Set ExcelApp = CreateObject("Excel.Applicationn")
   
10.         End If
    
11.         Set ExcelApp = CreateObject("excel.application")
    
12.         
    
13.         ExcelApp.Workbooks.Open ("C:\123.xls")
    
14.         Set excelsheet = ExcelApp.ActiveWorkbook.Sheets("sheet1")
    
15. 
    
16.         cc(0) = 1000
    
17.         cc(1) = 1000
    
18.         cc(2) = 0
    
19.         dd(0) = excelsheet.range("a1").Value
    
20.         dd(1) = excelsheet.range("a1").Value
    
21.         dd(2) = 0
    
22.         
    
23.         For i = 1 To 100 Step 10
    
24.             Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
    
25.             Call ThisDrawing.ModelSpace.AddCircle(dd, i * 10)
    
26.         Next i
    
27. End Sub

Sub cc100()<br />         Dim cc(0 To 2) As Double<br />         Dim dd(0 To 2) As Double<br /> <br />         On Error Resume Next<br />         Set ExcelApp = GetObject(, "Excel.Application")<br />         If Err <> 0 Then<br />         Set ExcelApp = CreateObject("Excel.Applicationn")<br />         End If<br />         Set ExcelApp = CreateObject("excel.application")<br />         <br />         ExcelApp.Workbooks.Open ("C:\123.xls")<br />         Set excelsheet = ExcelApp.ActiveWorkbook.Sheets("sheet1")<br /> <br />         cc(0) = 1000<br />         cc(1) = 1000<br />         cc(2) = 0<br />         dd(0) = excelsheet.range("a1").Value<br />         dd(1) = excelsheet.range("a1").Value<br />         dd(2) = 0<br />         <br />         For i = 1 To 100 Step 10<br />             Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)<br />             Call ThisDrawing.ModelSpace.AddCircle(dd, i * 10)<br />         Next i<br /> End Sub

sxz4494

请问在这种状态下只能用没有打开的excel，如果，excel文件是打开的呢，怎么处理

mikewolf2k

sxz4494 发表于 2016-5-26 10:11
请问在这种状态下只能用没有打开的excel，如果，excel文件是打开的呢，怎么处理

如果打开了，就getobject，获得excel对象，然后找到打开的那个文档。

sxz4494

mikewolf2k 发表于 2016-5-26 15:35
如果打开了，就getobject，获得excel对象，然后找到打开的那个文档。

谢谢，可以用

elepeipei

谢谢@markc0826，我这个老是打不开表，但是运行完以后我要把这个表删除的时候显示的是我已经打开，请教大神，我这是什么问题