Question

vb文本框内输入的数据怎么录入到Excel的指定单元格

Answer 1

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub excelOpen(ExcelName As String)
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(ExcelName)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(col,row).Value = Text1.Text

xlBook.Save
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub