Question

用vb做了个可视化的窗口,怎么将在窗口中输入的内容显示在制定的excel单元格中

Answer 1

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

Answer 2

sheet1.cells(1,1).value=useform1.textbox1.value
将窗体睁码陪中文本框1中的内容给表1的模缓A1单元悉蠢格，