在VB窗体上直接编辑excel,不用启动excel,而不是在后台编辑,把excel嵌入窗体中进行录入等操作,谢谢！
Set XLAPP = CreateObject("Excel.Application")
Set xlBook = XLAPP.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 2) = “项目说明" XLAPP.Workbooks(1).Saved = True '/FALSE 判断文件是否需要保存
XLAPP.Workbooks(1).SaveAs strfile
xlBook.Close
Set xlsheet = Nothing
Set xlBook = Nothing
Set XLAPP = Nothing
代码很多，只能给你关键代码了。开动你聪明的大脑，会成功的！
Set xlBook = XLAPP.Workbooks.Add
Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 2) = “项目说明" XLAPP.Workbooks(1).Saved = True '/FALSE 判断文件是否需要保存
XLAPP.Workbooks(1).SaveAs strfile
xlBook.Close
Set xlsheet = Nothing
Set xlBook = Nothing
Set XLAPP = Nothing
代码很多，只能给你关键代码了。开动你聪明的大脑，会成功的！
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-11-05
vb自带有excel控件,本身就是一个excel表格，对于它的操作代码和操作数据库是一样的。
