明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 906379829

求教大神,在CAD VBA程序里面如何打开这个CAD文件路径下的一个excel文件

[复制链接]
发表于 2017-8-16 12:54 | 显示全部楼层
Sub LinkExcel(ExcelApp)
    On Error Resume Next
    Set ExcelApp = GetObject(, "Excel.application")
    If Err Then
        Err.Clear
        Set ExcelApp = CreateObject("Excel.application")
        If Err Then
            MsgBox ("不能运行Excel,请检查是否安装了Excel")
            Exit Sub
        End If
        ExcelApp.Application.Visible = True
        ExcelApp.Workbooks.Add
    End If
    ExcelApp.StatusBar = "Ready"
End Sub
发表于 2017-8-16 12:55 | 显示全部楼层
参考里面要引用excel object library
 楼主| 发表于 2017-8-16 15:57 | 显示全部楼层
vbcad 发表于 2017-8-15 19:23
Dim MyPath As String, MyName As String
Dim objExcel As Object, objBook As Object, objSheet As Objec ...

Public Sub 导材料实验()
Dim MyPath As String
Dim objExcel As Object, objBook As Object
Dim objSheet As Excel.Workbook

Set objExcel = CreateObject("Excel.Application") '建立EXCEL对象


MyPath = Dir(ThisDrawing.Path & "\*.xls")   ' 指定路径为当前脚本目录。

Do While MyPath <> "" ' 开始循环。
        Set objSheet = Workbooks.Open(ThisWorkbook.Path & "\" & MyPath)
        Set objBook = objExcel.Workbooks.Open(FilePath) '打开表格文件
   
    MyPath = Dir ' 查找下一个
Loop
End Sub
我用的你的程序,稍作修改做的,运行到Dim objSheet As Excel.Workbook
提示用户类型未定义
发表于 2017-8-16 16:02 | 显示全部楼层
906379829 发表于 2017-8-16 15:57
Public Sub 导材料实验()
Dim MyPath As String
Dim objExcel As Object, objBook As Object

参考里面要引用excel object library
 楼主| 发表于 2017-8-16 17:35 | 显示全部楼层
mikewolf2k 发表于 2017-8-16 16:02
参考里面要引用excel object library

明白了,就是引用栏里添加excel
发表于 2017-11-7 16:13 | 显示全部楼层
不知道打开后关闭excel怎么写,我只想读取数据,但是打开excel后屏幕上看不到cad图形
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:39 , Processed in 0.188334 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表