[已解决]从控件中提取数据

excel-jing

如何从控件中批量提取数据

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-3-7 21:02

1. Sub test1()
   
2.     Dim ol As OLEObject, i&, n&
   
3.     Columns("d:e").NumberFormat = "@"
   
4.     For i = 7 To 491 Step 11
   
5.         Cells(n + 2, "d") = Me.OLEObjects(i).Object.Value
   
6.         n = n + 1
   
7.     Next
   
8.     n = 0
   
9.     For i = 11 To 495 Step 11
   
10.         Cells(n + 2, "e") = Me.OLEObjects(i).Object.Value
    
11.         n = n + 1
    
12.     Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2.     Dim ol As OLEObject
   
3.     Columns("f:f").NumberFormat = "@"
   
4.     For Each ol In Me.OLEObjects
   
5.         Cells(n + 2, "f") = ol.Object.Value
   
6.         n = n + 1
   
7.     Next
   
8. End Sub

复制代码

望帝春心

1. Sub test1()
   
2.     Dim ol As OLEObject, i&, n&
   
3.     Columns("d:e").NumberFormat = "@"
   
4.     For i = 7 To 491 Step 11
   
5.         Cells(n + 2, "d") = Me.OLEObjects(i).Object.Value
   
6.         n = n + 1
   
7.     Next
   
8.     n = 0
   
9.     For i = 11 To 495 Step 11
   
10.         Cells(n + 2, "e") = Me.OLEObjects(i).Object.Value
    
11.         n = n + 1
    
12.     Next
    
13. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

excel-jing

望帝春心 发表于 2017-3-7 21:08

你好厉害！ 但我怎么查看代码啊

望帝春心

excel-jing 发表于 2017-3-8 11:20
你好厉害！ 但我怎么查看代码啊

代码不是给你帖出来了吗？打开VBE查看代码，有sheet1中

ilovelittle

1. Sub test()
   
2.     Dim sha As Shape
   
3.     Dim k, k1
   
4.     On Error Resume Next
   
5.     k1 = 2: k = 4
   
6.     For Each sha In ActiveSheet.Shapes
   
7.         If sha.OLEFormat.progID = "Forms.HTML:Text.1" Then
   
8.             k = k + 1
   
9.             Cells(k1, k) = "'" & sha.DrawingObject.Object.Value
   
10.             If k = 14 Then k = 3: k1 = k1 + 1
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

从空间中提取数据.rar (350.36 KB, 下载次数: 1)

2017-3-8 13:12 上传

点击文件名下载附件

excel-jing

望帝春心 发表于 2017-3-8 13:11
代码不是给你帖出来了吗？打开VBE查看代码，有sheet1中

谢谢

excel-jing

ilovelittle 发表于 2017-3-8 13:12

谢谢