求教VB做一个命令控件把已有TEXT1的数据写到OLE中EXCEL单元格里的代码
答案:1 悬赏:40 手机版
解决时间 2021-04-06 12:24
- 提问者网友：未信
- 2021-04-06 06:54
求教VB做一个命令控件把已有TEXT1的数据写到OLE中EXCEL单元格里的代码
最佳答案
- 五星知识达人网友：封刀令
- 2021-04-06 07:58
Private Sub Command1_Click()
Dim i As Integer, xls As Object
Set xls = OLE1.object.sheets(1)
Do
i = i + 1
Loop Until xls.cells(i, 1).Value = ""
xls.cells(i, 1).Value = Text1.Text
End Sub
Dim i As Integer, xls As Object
Set xls = OLE1.object.sheets(1)
Do
i = i + 1
Loop Until xls.cells(i, 1).Value = ""
xls.cells(i, 1).Value = Text1.Text
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯