用vb做了个可视化的窗口,怎么将在窗口中输入的内容显示在制定的excel单元格中
答案:2 悬赏:80 手机版
解决时间 2021-04-02 13:05
- 提问者网友：半生酒醒
- 2021-04-01 16:27
用vb做了个可视化的窗口,怎么将在窗口中输入的内容显示在制定的excel单元格中
最佳答案
- 五星知识达人网友：七十二街
- 2021-03-21 01:50
Private Sub Command1_Click()
Set objexcel = CreateObject("Excel.application")
objexcel.DisplayAlerts = False
Set objworkBook = objexcel.Workbooks.Open("d:\book1.xls")
objexcel.activecell.Value = text1 '保存到当前单元格
'objworkBook.activesheet.cells(r, c).Value = text1 '保存到指定单元格用这句，需要指定r和c即第几行和第几列
objworkBook.Save
objworkBook.Close
objexcel.quit
Set objexcel = Nothing
End Sub
Set objexcel = CreateObject("Excel.application")
objexcel.DisplayAlerts = False
Set objworkBook = objexcel.Workbooks.Open("d:\book1.xls")
objexcel.activecell.Value = text1 '保存到当前单元格
'objworkBook.activesheet.cells(r, c).Value = text1 '保存到指定单元格用这句，需要指定r和c即第几行和第几列
objworkBook.Save
objworkBook.Close
objexcel.quit
Set objexcel = Nothing
End Sub
全部回答
- 1楼网友：轮獄道
- 2019-10-15 23:38
sheet1.cells(1,1).value=useform1.textbox1.value
将窗体中文本框1中的内容给表1的A1单元格，
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯