VB.NET EXCEL(函数操作，求和，平均值)

最新推荐文章于 2025-05-13 11:44:02 发布

Newnotes

最新推荐文章于 2025-05-13 11:44:02 发布

阅读量2.3k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： vb.net

本文链接：https://blog.youkuaiyun.com/Newnotes/article/details/105058697

vb.net 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一段使用VBA在Excel中读取数据并进行条件求和的代码实例。代码展示了如何打开指定路径的Excel文件，读取特定工作表的数据，获取有效区域的行数和列数，以及如何利用SUMIF函数实现条件求和。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim xlApp As Object = Nothing
        Dim xlBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
        Dim xlBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
        Dim xlSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
        Dim myrange As Microsoft.Office.Interop.Excel.Range = Nothing
        ' Dim strFilePath As String = "‪C:\Users\18608\Desktop\text.xlsx"
        xlApp = New Microsoft.Office.Interop.Excel.Application()
        xlBooks = xlApp.Workbooks
        xlBook = xlBooks.Open("C:\Users\18608\Desktop\text.xlsx")
        xlSheets = xlBook.Worksheets
        xlSheet = xlSheets("Sheet1") '这里是你要读入数据的那个sheet页 
        TextBox2.Text = xlSheet.UsedRange.Columns.Count '获取Excel有效区域列数 
        rows1 = xlSheet.UsedRange.Rows.Count '获取Excel有效区域的行数
        TextBox1.Text = xlSheets.Application.WorksheetFunction.Sum(xlSheet.Range("c1:c1000")) '利用sum函数 求和
        xlBook.Close(True) '关闭工作簿
        xlApp.Quit '结束EXCEL对象
    End Sub

条件求和

https://zhidao.baidu.com/question/429596474.html
1、示例代码：
Sub test1()
Dim x As Long
x = WorksheetFunction.SumIf(Range(“A2:A9”), Range(“C2”).Value, Range(“B2:B9”))
Range(“D2”).Value = x
End Sub
2、如下图：

3、以上代码的作用是：调用工作表函数SUMIF，求A2:A9范围内符合C2单元格条件，对应的B2:B9范围内数值之和，结果输出到D2单元格。

jshe = xlSheets.Application.WorksheetFunction.SumIf(xlSheet.Range("g2:g" & rows1), xlSheet.Range("h2"), xlSheet.Range("c2:c" & rows1)) '求和
        TextBox1.Text = xlSheet.Range("h2").Value
        MsgBox(jshe)