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

906379829 发表于 2017-8-15 16:27:00

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

如题，CAD文件夹里面包含一个excel文件，如何利用CAD 里面的VBA程序打开这个excel文件呢

jpg102329 发表于 2017-8-16 10:13:00

(defun c:tt(/ CAD DIR DOC EXCEL WORKBOOKS X XLS)
(setq cad(vlax-get-acad-object))
(setq doc(vla-get-ActiveDocument cad))
(setq dir(vl-filename-directory(vlax-get doc 'FullName)))
(setq xls(vl-directory-files dir"*.xls*"1));xls文件列表
(setq excel(vlax-get-or-create-object "excel.application"))
(setq xls(mapcar'(lambda(x)(strcat dir "\\"x))xls))
(vla-put-visible excel 1)
(if excel
      (progn
          (setq Workbooks(vlax-get-property excel 'Workbooks))
          (foreach x xls(vlax-invoke-method WorkBooks 'Open x))
          )
      (list(alert"未安装excel")(exit)))
(prompt"***大懒猪荣誉出品***")
(princ)
)

906379829 发表于 2017-8-16 15:57:00

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
提示用户类型未定义

mikewolf2k 发表于 2017-8-16 12:54:00

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

906379829 发表于 2017-8-15 16:45:00

Public Sub 导材料实验()
Dim wb As Workbook, wk As Workbook, myfile$
myfile = Dir(ThisDrawing.Path & "\*.xls")
Set wb = Workbooks.Open(ThisDrawing.Path & "\" & myfile)
Set wk = GetObject(ThisDrawing.Path & "\" & myfile)
      
End Sub
这是我一开始编的程序，结果一运行就提示类型未定义

zjy2999 发表于 2017-8-15 17:03:00

引用excel类库

mikewolf2k 发表于 2017-8-15 17:04:00

workbooks是什么？

vbcad 发表于 2017-8-15 19:23:00

Dim MyPath As String, MyName As String
Dim objExcel As Object, objBook As Object, objSheet As Object
Set objExcel = CreateObject("Excel.Application") '建立EXCEL对象
objExcel .Visible = True'可见
MyPath = App.Path& "\"' 指定路径为当前脚本目录。
MyName = Dir(MyPath, vbNormal) ' 找寻第一项。
Do While MyName"" ' 开始循环。
    Debug.Print MyName ' 将其名称显示出来。
    if instr(lcase(MyName),".xls") then '如果MyName中的扩展名是XLS则打开表格文件
      Set objBook = objExcel.Workbooks.Open(FilePath) '打开表格文件
    endif               
    MyName = Dir ' 查找下一个
Loop

906379829 发表于 2017-8-16 10:01:00

C:\Users\Administrator\Desktop

906379829 发表于 2017-8-16 10:13:00

objExcel .Visible = True '可见
程序运行到这一步的时候提示无效或不合格的引用

查看完整版本: 求教大神，在CAD VBA程序里面如何打开这个CAD文件路径下的一个excel文件