- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 Excel 获取HTMLText的值
Sub qd()Dim ole As OLEObjecth = 1'Sheets(2).Columns(1).ClearFor Each ole In Sheets(2).OLEObjects If (TypeName(ole.Object)) Like "*HTMLText*" Then Sheets(2).Cells(h, 5).Value = ol...
2013-02-19 17:00:26 387
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人