Question

求vb高手设计一个小程序，在form1的text1中，输入“很高兴见到你”，点击command1后

求vb高手设计一个小程序，在form1的text1中，输入“很高兴见到你”，点击command1后求vb高手设计一个小程序，在form1的text1中，输入“很高兴见到你”，点击command1后，自动录入到我的电脑，D盘，文件夹名称“汇总”中，的excel表格中的B4位置，excel表格名称是“总公司”
求高手帮忙，测试可用会追加悬赏！

Answer 1

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Text1 = "很高兴见到你"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("d:\汇总\总公司.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
xlSheet.Range("B4") = Text1 '给单元格（B4）赋值
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

追问

用不了

这一句xlApp As Excel.Application

提示用户类型未定义，请问是怎么回事？

追答

在工程菜单的引用选项中吧excel库加上