Question

VB中如何把text中的内容写入指定的Excel中

VB中如何把text中的内容写入指定的Excel中,比如我要把1,2,3,4,5,6分别写入指定格式Excel中的A16,B16,C16,D16,E16,F16中,该如何操作,请高手指教

Answer 1

应该把命令写在:在TEXT1推动焦点时,进行该命令:
Dim app As Excel.Application
Dim wbk As Excel.Workbook
Dim wsh As Excel.Worksheet

Private Sub Text1_LostFocus()
Set app = CreateObject("excel.Application")
Set wbk = app.Workbooks.Open(Path)
Set wsh = app.Worksheets(1)
wsh.Activate
wsh.Cells(a, b) = Text1.Text
wbk.Close
app.Quit
Set app = Nothing
Set wbk = Nothing
Set wsh = Nothing
End Sub

Answer 2

你的问题比较含糊，是不是要把用户窗体上Textbox里的内容写入Excel表格？