- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不打开Excel文档获取数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128552)
-- 发布时间：2018/12/10 12:50:00
-- 不打开Excel文档获取数据
老师好。我有一个Excel文件存在d盘，如何在不打开Excel的情况下获取sheet1中某个单元格的信息？
谢谢老师！
-- 发布时间：2018/12/10 12:51:00
--
文档密码是 “123”
-- 发布时间：2018/12/10 13:32:00
--
老师，我测试了下，
Dim Book As New XLS.Book("f:\\cs.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets("sheet1")
str=sheet(0,0).value
output.show (str)
上述代码可以直接不打开文档读数据，但好像不能写数据。我有如下问题不知道如何解决：第一，如果文档有密码我怎么写代码。第二，如果sheet（0,2）.value=sheet（0,0）.value*sheet（0,1）.value，当我设置sheet（0,0）的值为某个值比如x，sheet（0,1）的值为y，我如何获取sheet（0，2）的值（应为x*y）?
谢谢老师了！！！
-- 发布时间：2018/12/10 15:10:00
--
xls.book无法打开有密码的excel文件，需要用vba打开，如
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105513&skin=0
http://www.foxtable.com/webhelp/scr/2121.htm
-- 发布时间：2018/12/10 22:59:00
--
老师好。我的cs.xlsx文件放在d盘根目录，密码是123 下列代码运行后有如下问题，烦请老师给看看：
1：依然让我输入密码
2：执行代码第一次出现错误提示，关闭错误提示后重新运行，可以运行，但提示是否替换掉原来的文档。选择替换后，原来的文档数据没有发生变化
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\cs.xlsx",password:="123")
Dim str As String
Dim ws As MSExcel.worksheet=wb.sheets("sheet1")
app.visible = True
With ws
.cells(1,1).value=200
.cells(1,2).value=200
str=.cells(1,3).value
End With
wb.save
wb.close
app.quit
output.Show (str)
-- 发布时间：2018/12/10 23:08:00
--
我测试没有问题。如果安装的office不是完整版的，请卸载重新安装完整版的office
-- 发布时间：2018/12/11 8:10:00
--
老师好！我的office是2007，我刚刚卸载 ，又重新安装，选择完全安装，运行代码还是出现如图错误提示：
此主题相关图片如下：捕获.png
-- 发布时间：2018/12/11 8:12:00
--
是这个提示：
此主题相关图片如下：捕获.png
-- 发布时间：2018/12/11 8:46:00
--
老师好。问题解决了。我把 app.visible=true 语句给提前到第二行就行了。
-- 发布时间：2018/12/11 8:52:00
--
这个原因
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127468&skin=0