私有子命令1_Click()
暗淡我壹樣長
Dim Sum1，Sum2為Long
將VBExcel顯示為Excel。應用
將xlbook調成Excel。練習本
將xlssheet顯示為Excel。工作表
設置VBExcel = CreateObject("Excel。應用”)
CommonDialog1。文件名= " "
常用對話框1.filter = "Excel文件(*。xlsx)|*。xlsx "
CommonDialog1。ShowOpen
If CommonDialog1。文件名= " "那麽
出口接頭
其他
設置xlbook = VBExcel。workbooks . Open(common dialog 1。文件名)
設置xlssheet = xlbook。工作表(1)
VBExcel。可見=真
對於i = 2到35535
如果xlssheet。Cells(i，1) = " "那麽
為...退出
其他
如果xlsxsheet。cells (I，1) = "張三"然後'檢查第壹行第壹列的數據，可以自己定義。
Sum1 = Sum1 + xlssheet。細胞(I，2)
如果…就會結束
如果xlsxsheet.cells (I，1) =“李四”則
Sum2 = Sum2 + xlssheet細胞(I，2)
如果…就會結束
如果…就會結束
然後
如果…就會結束
Text1。Text = Sum1
文本2。Text = Sum2
xlbook。關閉(真)
設置xlssheet = Nothing
設置xlbook =無
設置VBExcel =無
末端接頭