vb如何导出为excel表格

其中的一段 Private Sub Command1_Click()
Dim mystr As String

Dim newxls As New Excel.Application
Dim newbook As New Excel.Workbook
Dim newsheet As New Excel.Worksheet

Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表

newsheet.Range("A1").Value = "时间"
newsheet.Range("B1").Value = "压力"

编译说 用户定义类型未定义 是为什么呢

你需要点工程菜单，然后选用引用，找到Microsoft Excel 12.0 Object Library，然后选中引用即可
中间的12.0是版本号，可能由于你的电脑装的Excel版本不一样而不一样

一个按钮，五个文本框（文本框用复制方式） dim xlsapp as excel.application dim xlsbook as excel.workbook dim xlssheet as excel.worksheet set xlsapp = new excel.application set xlsbook = xlsapp.workbooks.add set xlssheet = xlsbook.worksheets(1) xlssheet.application.columns("a:l").numberformatlocal = "@" '文本格式为通用 xlssheet.cells.horizontalalignment = xlcenter '文本居中 xlssheet.columns("a:l").columnwidth = 5 '调整列宽（从a列到l列 dim i as integer for i = 0 to 4 xlssheet.cells( 2, i+ 1) = text1(i).text next i xlsapp.visible = true set xlsapp = nothing 自己可以研究一下上面的代码（其中文本框用复制做数组）