我在给人家写程序,客户要求用计算机来考 Microsoft Excel 操作题并机器自动阅卷。
下面是我的程序片段,希望对你有帮助。
Dim e_App,e_Workbook,e_Sheet1,e_Sheet2 as Object
Set e_App = CreateObject("Excel.Application")
With e_App
.Visible = False
Set e_Workbook = .Workbooks.Add
Set e_Sheet1 = e_Workbook.Sheets(1) '第一张表
Set e_Sheet2 = e_Workbook.Sheets(2)
'一些处理
.Visible = True
End With
对于 Dim ExcelApp As Excel.Application
我觉得不是很好,至少我从来未成功过。
Dim ExcelApp as Excel.Application.9 等依赖于Office的版本号。可能有8,85,9等。谁又能保证安装后的机器上一定按一个版本Office呢。
chang:
要想更方便地使用Excel,你在设置对象时可以将ExcelApp设为
Dim ExcelApp As Excel.Application
在打开文件后,加上一条语句:
ExcelApp.Visible=True
此时应可看到,打开的文件并不是只读的,可以对打开的文件进行编辑与保存,所以我并不明白你所说的打开文件一直是只读是什么意思,也许是你后台一直有此文件的一个拷贝在运行?你可以试用“CTRL+ALT+DEL”来看看后台的进程。
另外,对文件操作完成后,应该注意将对象清空,即在最后加上
For Each EBK In ExcelApp.Workbooks 'EBK为Excel.WorkBook
EBK.Close
Next
Set ExcelApp = Nothing