请问如何将一文本框中的数据存入到指定excel表中指定的单元格中？---小妹

Question

请问如何将一文本框中的数据存入到指定excel表中指定的单元格中？---小妹谢谢大家

Answer 1

第一步，建立EXCEL对象：
  如果EXCEL表已经打开，先用GetObject函数获取EXCEL应用程序对象；
  如果EXCEL表尚未打开，先用CreateObject函数打开相应的EXCEL工作薄
第二步，用赋值语句赋值

Answer 2

Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("excel.application")
    Set xlBook = xlApp.workbooks.Add
    Set xlSheet = xlBook.worksheets(1)
    xlSheet.Range("A1").Value = textname

Answer 3

工程中添加了对 Microsoft Excel 对象库的引用Private Sub Command1_Click()
'为 Microsoft Excel 应用程序、工作簿
'和工作表对象声明对象变量。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet '将对象引用赋值给这些变量。
'用 Add方法 创建新的工作簿和工作表对象。
Set xlApp = New Excel.Application
         Set xlBook = GetObject("c:\1.xls")
         Set xlSheet = xlBook.Sheets(1)
'将文本框中的值赋给Microsoft Excel 单元。
xlSheet.Cells(1, 1).Value = Text1.Text
xlSheet.Cells(2, 1).Value = Text2.Text

'用 Formula 方法将 Microsoft Excel 中的值相加。
xlSheet.Cells(3, 1).Formula = "=R1C1 + R2C1"
Text3.Text = xlSheet.Cells(3, 1)

'保存工作表
xlSheet.SaveAs "c:\Temp.xls"

'用 Quit 方法关闭 Microsoft Excel
xlApp.Quit

'释放对象
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub