用VB做一个类似于报表的程序,然后在界面输入数据后,就可以相应的在EXCEL中存储进去
求大神指导啊
回复 楼主 fuxiaotian3
数据是几行几列?数据按何规律放入excel中?
Dim xlapp As Excel.Application 'Excel对象 Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet '工作表 Dim i, j As Integer Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 xlapp.Visible = True '设置EXCEL对象可见(或不可见) Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' xlsheet.Cells(1, 1) = 2008 '写入2008 xlsheet.Range("A1") = 2008 '同上写入2008,方式不同而已