有时间看看这个
2008-10-09 13:29
288 查看
Dim ExcelApp
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.WorkBooks.Open "F:/Test.xls"
Dim myWorkBook
Set myWorkBook = ExcelApp.workbooks(1)
myWorkBook.WorkSheets("Sheet1").Activate
Dim myWorkSheet
Set myWorkSheet = myWorkBook.worksheets("Sheet1")
msgbox myWorkSheet.Cells(1,1).Value
myWorkSheet.Cells(1,1).Value = "temp"
myWorkBook.Save
Set ExcelApp = nothing
myWorkBook.Close
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.WorkBooks.Open "F:/Test.xls"
Dim myWorkBook
Set myWorkBook = ExcelApp.workbooks(1)
myWorkBook.WorkSheets("Sheet1").Activate
Dim myWorkSheet
Set myWorkSheet = myWorkBook.worksheets("Sheet1")
msgbox myWorkSheet.Cells(1,1).Value
myWorkSheet.Cells(1,1).Value = "temp"
myWorkBook.Save
Set ExcelApp = nothing
myWorkBook.Close
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 可能是多线程的吧，没尝试这个类怎么样，有时间时候看看
- JAVA面试题-1 这个主要是怕手生，时间长了看看
- 大家看看这个问题怎么解决啊（哎，论坛没分了）
- 大家帮忙看看如果面对这个升级文档该怎么处理，或者怎样才能处理得快一些（问在tianvcms改版前）
- 如何在Datagrid中呈现选择题（选项个数不定）这个随便看看就好
- Webconfig配置刷新时间,前台页面调用这个时间
- 求助求助——请教各位高手，抽出一点宝贵的时间根据这个实例讲解一下应该如何分层呢？
- 突然想起来我还有浏览历史这个东西可以用来找回我没发微博和说说的那段时间
- 关于用js在网页中显示时间的问题 这个例子不错 来自网络
- 收集的文档，源码多了，时间稍长就忘了那些是干嘛的，不好找。就写了这个小玩艺儿。
- 看看这个经验里的一些题
- 大家帮我看看这个是什么树，还结果子呢！
- 为什么报表里面记录的创建时间 比我们电脑客户端的世界时间 隔8个小时？这个是什么原因？
- Timestamp utils 在使用这个的时候，经常涉及到和Hibernate时间的转换
- 指向数组的指针 一定要好好看看这个文章
- boj 1336 简单的问题 不过自己没想到 别人解释的~~学习~~这个是 第二类Stirling数 需要再好好看看
- 透过上网管理 看看上班时间员工都在干啥？
- 最近在探讨关于缓冲区溢出的相关问题，各位大侠帮忙看看这个程序，两个for循环导致内存内容不一样，其中的玄妙在哪里？我是嫩草，谢啦谢啦~~
- 看看这个函数
- 看看这个笑话，你就知道干IT的不容易了！！