是用VB做吗?以前做个一个相关的东东,你看看对你有没有帮助吧: 新建一工程引用EXCEL.EXE,在窗体上放一文本框和一按钮 Private Sub Command1_Click() On Local Error Resume Next Dim i, j As Integer Dim XLApp As Excel.Application Dim XLBook As Excel.Workbook Dim XLSheet As Excel.Worksheet Set XLApp = New Excel.Application XLApp.SheetsInNewWorkbook = 1 Set XLBook = XLApp.Workbooks.Add Set XLSheet = XLBook.Worksheets(1) For j = 2 To 6 For i = 1 To 8 XLSheet.Cells(j, i) = Me.Text1.Text Next i Next j XLBook.SaveAs "c:\test1.xls" XLApp.Quit Set XLBook = Nothing Set XLApp = Nothing End Sub
新建一工程引用EXCEL.EXE,在窗体上放一文本框和一按钮
Private Sub Command1_Click() On Local Error Resume Next
Dim i, j As Integer
Dim XLApp As Excel.Application
Dim XLBook As Excel.Workbook
Dim XLSheet As Excel.Worksheet
Set XLApp = New Excel.Application
XLApp.SheetsInNewWorkbook = 1
Set XLBook = XLApp.Workbooks.Add
Set XLSheet = XLBook.Worksheets(1)
For j = 2 To 6
For i = 1 To 8
XLSheet.Cells(j, i) = Me.Text1.Text
Next i
Next j
XLBook.SaveAs "c:\test1.xls"
XLApp.Quit
Set XLBook = Nothing
Set XLApp = Nothing
End Sub