请教各位一个有趣的问题 谢谢!
vb吧
全部回复
仅看楼主
level 3
lfn1915 楼主
现在有一个excel表格
然后设定 a=12345
b=23456
c=13592
接着有一个文本输入框
输入a的时候 就自动读取 excel表格的内容 显示12345
输入c的时候 就自动读取 excel表格的内容 显示13592
请问如何实现呢?
谢谢大神!
2020年06月14日 01点06分 1
吧务
level 13
' VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) ' 第1张表
' ……
' 单元格描述;i 表示行号,j 表示列号
Newsheet.cells(i, j) = …… ' 向单元格里面写入
变量名 = Newsheet.cells(i, j) ' 读出单元格的数据
' ……
Newbook.Close ' 关闭表
Oexcel.quit ' 退出 Excel 文件打开状态
2020年06月14日 01点06分 2
佩服啊 大神! 我是想得出的效果是 输入a的时候 自动调用excel 显示12345
2020年06月14日 01点06分
level 8
excel表格是用a1 a2 b3 y6 这样表示
楼上方法可以获得整张工作表,整张表都获得了,还有什么是不能做的吗?
2020年06月14日 02点06分 3
1