Option Explicit
'在工程中引用Microsoft Excel类型库：
'从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Dim str As String
Dim objExcel
'str = App.Path & "\1.xls"
str = "d:\1.xlsx"
Set objExcel = CreateObject("Excel.Application") 'objExcel就是一个excel.application对象
objExcel.Visible = False '设置excel对象不可见
Dim objWorkBook As Excel.Workbook
objExcel.SheetsInNewWorkbook = 1 '新的工作簿里有几个Sheet
'Set objWorkBook = objExcel.Workbooks.Add '用excel.application创建一个新的工作簿，等效于人工操作的"新建"
Set objWorkBook = objExcel.Workbooks.Open(str) '打开路径为path的excel文件
'objExcel.Cells(8, 9) = Text1.Text '这段代码有问题，objExcel是个application，没有Cells这个成员
'应该是objWorkBook 下的 某个Sheet 下的某个Cell，像下面这样写
objExcel.Sheets(1).Cells(8, 9) = Text1.Text '把Text1.Text的内容填到第1个工作页的第8行第9列单元格，即i8单元格
objExcel.Sheets(1).Cells(9, 9) = Clipboard.GetText '把剪切板内容填到第1个工作页的第9行第9列单元格
'objWorkBook.SaveAs str '用 str 作为文件名，另存这个excel文件
objWorkBook.Save
objWorkBook.Close (True)
objExcel.Quit
Set objExcel = Nothing
End Sub
上面这个是可以不打开EXCEL的情况下，往EXCEL中写入数据的代码，但发现使用
objExcel.Sheets(1).Cells(9, 9) = Clipboard.GetText
这句时，粘贴到EXCEL中的内容全挤在9,9一个单元格中，而不是分开
请问大侠们，这句要怎么改？
比如剪切板中的内容是：
张三 30
李四 25
王五 33

这就需要你自己写一堆代码来分开了
比如这样：
Dim ss() As String, s() As String
Dim r As Integer, c As Integer
Dim i As Integer, j As Integer
r = 9: c = 9
ss = Split(Clipboard.GetText, vbCrLf)
For i = 0 To UBound(ss)
s = Split(ss(i), " ")
For j = 0 To UBound(s)
objExcel.Sheets(1).Cells(r + i, c + j) = s(j)
Next j
Next i
另外，你说这是可以“不打开”Excel的方法，这种说法是错误的，不是“不打开”，而是“后台打开”，整个操作过程你看不到Excel程序的界面，但是程序是启动了的