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