[分享]不打开文件提取数据

sunhill

取数据的效率不高啊

wx-x

关闭读入.rar (7.76 KB, 下载次数: 56)

2011-9-18 23:50 上传

点击文件名下载附件

如果是这个附件，请问如何实现？读出来是容易，关键是怎样读进去？谢谢

sam.tan

一直在寻找,关注中......

hdm888888

谢谢分享，手把手进步中

田野上的白杨树

发个附件会更好

winky516

能否发个成功的例子

pioneerone

sunhill 发表于 2011-7-16 13:46
取数据的效率不高啊

也发现了，读个200x300行的数据那是死机一般，不知道是自己问题还是函数问题

marchwen01

这是受公式可以引用关闭文件数据而启发的代码

1. Sub GetClosedFileValues()
   
2.     Dim strFN As String
   
3.     strFN = ThisWorkbook.Path & "\[Test.xlsx]"
   
4.     With Worksheets("Sheet1").Range("A1:M50")
   
5.         .FormulaR1C1 = "='" & strFN & "Sheet1'!rc"
   
6.         .Value = .Value
   
7.     End With
   
8. End Sub
   
9. 
   

复制代码

ning84

1. Private Sub del6()
   
2.     Dim xChart As Chart
   
3.     Dim Pres As Presentation
   
4.     Dim Sld As Slide
   
5.     Dim Shp As Shape
   
6.     Dim ShpRng As ShapeRange
   
7.         
   
8.         Set Pres = Application.ActivePresentation
   
9.         Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
   
10.         
    
11.         Set xChart = ShpRng(1).Chart
    
12.         With xChart
    
13.                   Debug.Print .Name
    
14.                   For ii = 1 To 4
    
15.                         Debug.Print ii, .SeriesCollection(ii).Name
    
16.                         Ss = .SeriesCollection(ii).XValues
    
17.                         Debug.Print TypeName(Ss)
    
18.                         Ss1 = .SeriesCollection(ii).Values
    
19.                         Debug.Print TypeName(Ss1)
    
20.                         Stop
    
21.                   Next ii
    
22.         End With
    
23. End Sub ''
    

复制代码

Learner2022

好贴，这就是我一直在找的答案，谢谢楼主