none
Me sale el siguiente error: application es ambiguo en el espacio de nombres visual basic 2012 Microsoft.Office.Interop.Excel RRS feed

  • Pregunta

  • Estoy trabajando Visual Basic 2012 con excel 2010. Este es el código

    Imports Excel = Microsoft.Office.Interop.Excel
    Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
    
            Dim xlApp As Excel.Application
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
            Dim misValue As Object = System.Reflection.Missing.Value
    
            xlApp = New Excel.ApplicationClass
            xlWorkBook = xlApp.Workbooks.Add(misValue)
            xlWorkSheet = xlWorkBook.Sheets("sheet1")
    
            'add data
            xlWorkSheet.Cells(1, 1) = ""
            xlWorkSheet.Cells(1, 2) = "Student1"
            xlWorkSheet.Cells(1, 3) = "Student2"
            xlWorkSheet.Cells(1, 4) = "Student3"
    
            xlWorkSheet.Cells(2, 1) = "Term1"
            xlWorkSheet.Cells(2, 2) = "80"
            xlWorkSheet.Cells(2, 3) = "65"
            xlWorkSheet.Cells(2, 4) = "45"
    
            xlWorkSheet.Cells(3, 1) = "Term2"
            xlWorkSheet.Cells(3, 2) = "78"
            xlWorkSheet.Cells(3, 3) = "72"
            xlWorkSheet.Cells(3, 4) = "60"
    
            xlWorkSheet.Cells(4, 1) = "Term3"
            xlWorkSheet.Cells(4, 2) = "82"
            xlWorkSheet.Cells(4, 3) = "80"
            xlWorkSheet.Cells(4, 4) = "65"
    
            xlWorkSheet.Cells(5, 1) = "Term4"
            xlWorkSheet.Cells(5, 2) = "75"
            xlWorkSheet.Cells(5, 3) = "82"
            xlWorkSheet.Cells(5, 4) = "68"
    
            'create chart
            Dim chartPage As Excel.Chart
            Dim xlCharts As Excel.ChartObjects
            Dim myChart As Excel.ChartObject
            Dim chartRange As Excel.Range
    
            xlCharts = xlWorkSheet.ChartObjects
            myChart = xlCharts.Add(10, 80, 300, 250)
            chartPage = myChart.Chart
            chartRange = xlWorkSheet.Range("A1", "d5")
            chartPage.SetSourceData(Source:=chartRange)
            chartPage.ChartType = Excel.XlChartType.xlColumnClustered
    
            'exporting chart as picture file
            xlWorkSheet.ChartObjects(1).chart.Export(FileName:= _
            "C:\excel_chart_export.bmp", FilterName:="BMP")
    
            'load the pipcture into the picture box
            PictureBox1.Image = New System.Drawing.Bitmap _
    			("C:\excel_chart_export.bmp")
    
            xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
    
            releaseObject(xlApp)
            releaseObject(xlWorkBook)
            releaseObject(xlWorkSheet)
    
            MsgBox("Chart File Exported !")
        End Sub
    
        Private Sub releaseObject(ByVal obj As Object)
            Try
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
                obj = Nothing
            Catch ex As Exception
                obj = Nothing
            Finally
                GC.Collect()
            End Try
        End SubEnd Class


    miércoles, 23 de noviembre de 2016 23:05