在vb里 读取excel某一列数据

在vb里输入一个助记码,这个助记码是excel里的某一列的值,通过这个助记码找到和它对应的一个数值,并进行累加... 在vb里输入一个助记码,这个助记码是excel里的某一列的值,通过这个助记码找到和它对应的一个数值,并进行累加 展开
 我来答
xlzzc
2011-08-26 · TA获得超过7301个赞
知道大有可为答主
回答量:4205
采纳率:50%
帮助的人:1443万
展开全部
'引用:
'添加对该对象的引用 工程菜单-->引用,找到 Microsoft Scripting Runtime
'引用microsoft Excel 14.0 object library
'
Dim elApp As Excel.Application
Dim elBooks As Excel.Workbook
Dim ekSheet As Excel.Worksheet
Dim TblMap_Card '创建一个变量

Private Sub Command1_Click()
Dim i As Integer
openEl
Set dic = CreateObject("Scripting.Dictionary")
'MsgBox ekSheet.Cells(Rows.Count, 1).End(3).Row
For i = 2 To ekSheet.Cells(Rows.Count, 1).End(3).Row
If dic.Exists(ekSheet.Cells(i, 2).Value) Then
dic(ekSheet.Cells(i, 1).Value) = dic(ekSheet.Cells(i, 1).Value) + ekSheet.Cells(i, 2).Value
Else
dic(ekSheet.Cells(i, 1).Value) = ekSheet.Cells(i, 2).Value
End If
Next i

ekSheet.Range("H:J").Clear

'ekSheet.Cells(1, 9).Resize(1, 2) = Array("商品", "售量")
ekSheet.Cells(2, 9).Resize(dic.Count, 1) = Application.Transpose(dic.Keys)
ekSheet.Cells(2, 10).Resize(dic.Count, 1) = Application.Transpose(dic.Items)

End Sub

Private Sub openEl()
Dim myPath As String
myPath = "\week.xlsx"
Set elApp = CreateObject("Excel.Application")
Set elBooks = elApp.Workbooks.Open(App.Path & myPath)
Set ekSheet = elBooks.Worksheets("Sheet1")
'Set ekSheet = elBooks.Worksheets(1)
elApp.Visible = True
End Sub

张志晨:VB6的,测试通过。界面上只有一个按钮。
lanniao007
2011-09-02 · TA获得超过1012个赞
知道小有建树答主
回答量:1489
采纳率:40%
帮助的人:448万
展开全部
你想知道什么?不太明白你的问题。要是想用VB实现上述业务的话,可以这样来做:
1,一个画面追加一个textbox,一个按钮。
2,按钮事件中追加读取Excel该列值的处理。将该列值保存到动态数组中。
3,然后将你输入的助记码到数组中对比。找到匹配的值后,再加入你自己所说的累加运算。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
尚心部落
2011-08-25 · TA获得超过302个赞
知道小有建树答主
回答量:534
采纳率:0%
帮助的人:562万
展开全部
这是我写的读写excel的代码,你可以参考一下:
Dim EXCEL对象 As Excel.Application
Dim 工作薄 As Excel.Workbook
Dim 工作表 As Excel.Worksheet

Dim i As Integer
Dim j As Integer

Private Sub Form_Load()

Set EXCEL对象 = CreateObject("Excel.Application")
Set 工作薄 = EXCEL对象.Workbooks.Open(App.Path & "\123.xls")
Set 工作表 = 工作薄.Worksheets(1)
EXCEL对象.Visible = False
i = 1
j = 1
End Sub

Private Sub 开始_Click()

Do
Do While (j < 10)
工作表.Cells(i, j) = i * j
j = j + 1
Loop
j = 1
i = i + 1
Loop Until (i >= 10)
工作薄.Save
工作薄.Close
EXCEL对象.Quit

End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2011-08-25 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5649万
展开全部
你这个代码不是读的,是写的,并且按钮不能连按两次
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式