[讨论]：打开EXCEL两难问题？

fylinwater

下面的代码本来想打开一个指定EXCEL的，如果这个文件已经被EXCEL打开了就是不再打开文件，而是直接读取其内容，如果还没有打开就打开它！

GetObject  只可以返回Object  怎么把这个Object转换成 Excel.Application

2. 
   
3. Dim ex As Excel.Application
   
4. Dim exWorkBook As Object
   
5. Dim ExcelIsOpened As Boolean
   
6. GetEexel2Lisp = False
   
7. 
   
8. On Error Resume Next
   
9. 
   
10. Set ex = GetObject(fullFileName, "Excel.Application")
    
11. If Err <> 0 Then
    
12. 
    
13.   ExcelIsOpened = False
    
14.   Set ex = New Excel.Application
    
15.   ex.Workbooks.Open (fullFileName)
    
16. Else
    
17.   
    
18.   ExcelIsOpened = True
    
19. End If
    

<br /> Dim ex As Excel.Application<br /> Dim exWorkBook As Object<br /> Dim ExcelIsOpened As Boolean<br /> GetEexel2Lisp = False<br /> <br /> On Error Resume Next<br /> <br /> Set ex = GetObject(fullFileName, "Excel.Application")<br /> If Err <> 0 Then<br /> <br />   ExcelIsOpened = False<br />   Set ex = New Excel.Application<br />   ex.Workbooks.Open (fullFileName)<br /> Else<br />   <br />   ExcelIsOpened = True<br /> End If<br />

－－－－－自己搞定了 太容易了
Dim ex As Excel.Application  一开始 就定义为
Dim ex As Variant [/COLOR]

lsjjm

最初由 fylinwater 发布
[B]下面的代码本来想打开一个指定EXCEL的，如果这个文件已经被EXCEL打开了就是不再打开文件，而是直接读取其内容，如果还没有打开就打开它！

GetObject  只可以返回Object  怎么把这个Object转换成 Excel.Applicatio... [/B]

"指定EXCEL的" 什么意思?  Excel本身? *.xls文件?

fylinwater

文件 如果这个文件被打开 就是被打开的EXCEL，没有 就是指文件

  就是说 我想处理一个EXCEL 文件里的数据，但是
ExcelIsOpened = False
  Set ex = New Excel.Application
  ex.Workbooks.Open (fullFileName)
可能速度太慢 ，但是可以隐藏处理过程，如果用户不在乎在画图的时候打开个EXCEL，那么就自己打开文件提高处理速度，否则暗箱操作。