使用excel数据的vb.net图表

在我做一个更高级的项目之前，我只想做一个简单的例子，但我不知道如何使用vb.net中图表单元格中的excel数据。当我在网上查找时，我所能找到的就是数据库到vb.net或从vb.net到excel图表。有一段时间我一直在做这件事，但都没用

然后我尝试了下面的代码，但没有成功，在将范围转换为字符串时出现运行时错误

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Dim appXL As Excel.Application
Dim wbsXL As Excel.Workbooks
Dim wbXL As Excel.Workbook
Dim Rangex As Excel.Range
Dim Rangey As Excel.Range
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    appXL = CreateObject("Excel.Application")
    appXL.Visible = True
    wbsXL = appXL.Workbooks
    wbXL = wbsXL.Open("C:\Users\aholiday\Desktop\Data.xlsx")

    Rangey = wbXL.Range("A1:A2")
    Rangex = wbXL.Range("B1:B2")

    With chtTest
        .Series("Series1").YValueMembers = Rangey
        .Series("Series1").XValueMember = Rangex

    End With
End Sub
End Class

---

谁能给我举一个基本的例子，用2个单元格表示x轴数据，用2个单元格表示y轴数据

我可能不明白你在问什么。我没能让你的榜样起作用。因此，我只使用了本页的一半代码和另一页的一半代码，我得到了一些工作。然而，由于我无法运行您的代码，我不确定这是否是您所要求的。 ' "

私有子按钮1\u单击（发送者作为对象，e作为事件参数）句柄 按钮1.单击

    Dim XLSApp As New Excel.Application
    XLSApp.Visible = True
    Dim XLSWbks As Excel.Workbooks = XLSApp.Workbooks
    Dim XLSWbk As Excel.Workbook = XLSWbks.Add
    Dim XLSShts As Excel.Sheets = XLSWbk.Worksheets
    Dim XLSSht As Excel.Worksheet = XLSShts("Sheet1")
    XLSSht.Range("A1").Value = "1"
    XLSSht.Range("A2").Value = "2"
    XLSSht.Range("B1").Value = "1"
    XLSSht.Range("B2").Value = "2"


    'create chart
    Dim chartPage As Excel.Chart
    Dim xlCharts As Excel.ChartObjects
    Dim myChart As Excel.ChartObject
    Dim chartRange As Excel.Range

    xlCharts = XLSSht.ChartObjects
    myChart = xlCharts.Add(10, 80, 300, 250)
    chartPage = myChart.Chart
    chartRange = XLSSht.Range("A1", "B2")
    chartPage.SetSourceData(Source:=chartRange)
    chartPage.ChartType = Excel.XlChartType.xlColumnClustered


End Sub

---

我正在尝试在vb.net而不是excel中的应用程序中显示图表。我有excel文件，其中包含我希望应用程序从中提取的数据，并在vb.net应用程序的图表中显示excel中的数据。对不起，我不清楚。谢谢你的回答，你的代码工作正常。只是不是我想要的。听起来你需要一个com控件。在references/com网站下，我有大约30个人要找办公室，我不愿意进去尝试每个人，看看他们是否提供了图表，而搜索图表却什么也找不到。这里似乎提供了一个char控件：下载，但我还没有下载它。它应该不会太难使用，您应该能够下载并安装它，然后在references/com下找到它，然后拖放到表单上。