2016-03-08 72 views
-1

我想在做一個更高級的項目之前做一個簡單的例子,我無法弄清楚如何在vb.net的圖表中使用excel數據。當我在網上查找時,我能找到的所有數據庫都是從vb.net或從vb.net到excel圖表。正想關閉的這一段時間,但它都沒有工作http://www.siddharthrout.com/2011/10/18/charting-with-vb-net-2010/使用Excel中的數據的vb.net圖表

然後我嘗試下面的代碼,沒有運氣,獲得運行時錯誤轉換範圍爲字符串

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

我可能不明白你在問什麼。我無法讓你的例子工作。因此,我只用了一半的代碼從這個頁面和一半的代碼從另一個頁面,我得到了一些工作。然而,因爲我無法讓你的代碼運行,我不確定這是否是你要求的。 'http://ask.brothersoft.com/how-to-use-an-excel-insertable-object-in-visual-basic-160217.html ' http://vb.net-informations.com/excel-2007/vb.net_excel_create_chart.htm

私人小組的button1_Click(發送者爲對象,例如作爲EventArgs的)把手 Button1.Click

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 
+0

我試圖在該應用一圖表顯示在vb.net不擅長。我有Excel數據文件,我希望應用程序能夠從vb.net應用程序的圖表中顯示和顯示Excel中的數據。對不起,如果我不清楚。謝謝你的回答,但你的代碼確實工作正常。只是不是我想要的。 – holi4683

+0

這聽起來像你將需要一個COM控件。在參考文獻/ com下,我有大約30個Office,我不願意進去嘗試每個人看他們是否提供圖表,搜索圖表沒有找到任何東西。這裏似乎提供了一個字符控制:https://www.microsoft.com/en-us/download/details.aspx?id=14422下載,但我沒有下載它。它不應該太難使用,你應該能夠下載並安裝它,然後在參考文獻/ com下找到它,然後拖放到表單上。 – sam

相關問題