Question

我想要一个操作excel的应用程序，我是新手，所以我开始寻找示例。顺便说一下，我正在使用Visual Studio 2013

Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
    Dim oXL As Application
    Dim oWB As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim oRng As Excel.Range

    ' Start Excel and get Application object.
    oXL = CreateObject("Excel.Application")
    oXL.Visible = True

    ' Get a new workbook.
    oWB = oXL.Workbooks.Add
    oSheet = oWB.ActiveSheet

    ' Add table headers going cell by cell.
    oSheet.Cells(1, 1).Value = "First Name"
    oSheet.Cells(1, 2).Value = "Last Name"
    oSheet.Cells(1, 3).Value = "Full Name"
    oSheet.Cells(1, 4).Value = "Salary"

    ' Format A1:D1 as bold, vertical alignment = center.
    With oSheet.Range("A1", "D1")
        .Font.Bold = True
        .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
    End With

    ' Create an array to set multiple values at once.
    Dim saNames(5, 2) As String
    saNames(0, 0) = "John"
    saNames(0, 1) = "Smith"
    saNames(1, 0) = "Tom"
    saNames(1, 1) = "Brown"
    saNames(2, 0) = "Sue"
    saNames(2, 1) = "Thomas"
    saNames(3, 0) = "Jane"

    saNames(3, 1) = "Jones"
    saNames(4, 0) = "Adam"
    saNames(4, 1) = "Johnson"

    ' Fill A2:B6 with an array of values (First and Last Names).
    oSheet.Range("A2", "B6").Value = saNames

    ' Fill C2:C6 with a relative formula (=A2 & " " & B2).
    oRng = oSheet.Range("C2", "C6")
    oRng.Formula = "=A2 & "" "" & B2"

    ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.
    oRng = oSheet.Range("D2", "D6")
    oRng.Formula = "=RAND()*100000"
    oRng.NumberFormat = "$0.00"

    ' AutoFit columns A:D.
    oRng = oSheet.Range("A1", "D1")
    oRng.EntireColumn.AutoFit()

    ' Manipulate a variable number of columns for Quarterly Sales Data.
    Call DisplayQuarterlySales(oSheet)

    ' Make sure Excel is visible and give the user control
    ' of Excel's lifetime.
    oXL.Visible = True
    oXL.UserControl = True

    ' Make sure that you release object references.
    oRng = Nothing
    oSheet = Nothing
    oWB = Nothing
    oXL.Quit()
    oXL = Nothing

    Exit Sub
Err_Handler:
    MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
End Sub

Private Sub DisplayQuarterlySales(ByVal oWS As Excel.Worksheet)
    Dim oResizeRange As Excel.Range
    Dim oChart As Excel.Chart
    Dim oSeries As Excel.Series
    Dim iNumQtrs As Integer
    Dim sMsg As String
    Dim iRet As Integer


    ' Determine how many quarters to display data for.
    For iNumQtrs = 4 To 2 Step -1
        sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"
        iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _
           Or vbMsgBoxSetForeground, "Quarterly Sales")
        If iRet = vbYes Then Exit For
    Next iNumQtrs

    ' Starting at E1, fill headers for the number of columns selected.
    oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)
    oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""

    ' Change the Orientation and WrapText properties for the headers.
    oResizeRange.Orientation = 38
    oResizeRange.WrapText = True

    ' Fill the interior color of the headers.
    oResizeRange.Interior.ColorIndex = 36

    ' Fill the columns with a formula and apply a number format.
    oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
    oResizeRange.Formula = "=RAND()*100"
    oResizeRange.NumberFormat = "$0.00"

    ' Apply borders to the Sales data and headers.
    oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
    oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin

    ' Add a Totals formula for the sales data and apply a border.
    oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
    oResizeRange.Formula = "=SUM(E2:E6)"
    With oResizeRange.Borders(Excel.XlBordersIndex.xlEdgeBottom)
        .LineStyle = Excel.XlLineStyle.xlDouble
        .Weight = Excel.XlBorderWeight.xlThick
    End With

    ' Add a Chart for the selected data.
    oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
    oChart = oWS.Parent.Charts.Add
    With oChart
        .ChartWizard(oResizeRange, Excel.XlChartType.xl3DColumn, , Excel.XlRowCol.xlColumns)
        oSeries = .SeriesCollection(1)
        oSeries.XValues = oWS.Range("A2", "A6")
        For iRet = 1 To iNumQtrs
            .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
        Next iRet
        .Location(Excel.XlChartLocation.xlLocationAsObject, oWS.Name)
    End With

    ' Move the chart so as not to cover your data.
    With oWS.Shapes.Item("Chart 1")
        .Top = oWS.Rows(10).Top
        .Left = oWS.Columns(2).Left
    End With

    ' Free any references.
    oChart = Nothing
    oResizeRange = Nothing
End Sub
End Class

这是我在微软支持网站上找到的例子，所以我只想在深入讨论主题之前尝试一下，但是我收到了这些错误：

Error 1 'Visible' is not a member of 'System.Windows.Forms.Application'.
    oXL.Visible = True
Error 2 'Workbooks' is not a member of 'System.Windows.Forms.Application'.
    oWB = oXL.Workbooks.Add
Error 3 'Visible' is not a member of 'System.Windows.Forms.Application'.
    oXL.Visible = True
Error 4 'UserControl' is not a member of 'System.Windows.Forms.Application'.
    oXL.UserControl = True
Error 5 'Quit' is not a member of 'System.Windows.Forms.Application'.
    oXL.Quit()

所有错误都与oXL有关，所以我不知道是否需要其他导入。

我必须说我对excel应用程序一无所知，我即将开始讨论这个主题，我真的想解决这个问题，谢谢。

Answer 1

添加这些导入：

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

并添加参考库中的引用：

如果要自动化Microsoft Office Excel 2007，则类型库在“参考”列表中显示为“Microsoft Excel 12.0对象库”。
如果要自动化Microsoft Office Excel 2003，则类型库在“参考”列表中显示为“Microsoft Excel 11.0对象库”。

找到与2013年有关的一个。你不能使用NEW关键字，这是不可能的，这就是它消失的原因。

Answer 2

为什么用这种方式初始化oXL对象？

试试这个：

Dim oXL As Application  
oXL = new Microsoft.Office.Interop.Excel.ApplicationClass();

而不是oXL = CreateObject("Excel.Application")

excel应用程序的问题

2 个答案: