Visual Studio 2015 - 操纵Excel？

Question

我有，我想

1. 清洁通过删除有星号的航向数据的列750个Excel文件，
2. 然后采取一些数据，并把它放在一个新的工作簿的工作表，其他数据放入同一个工作簿工作表中，并将一些其他数据放入第二个新工作簿中。

我在Visual Studio 2015年创建的WPF项目与2个单选按钮一个小对话框

1. 干净的数据，
2. 产生新的文件。

这是我的VB代码：

Class MainWindow 
    Dim wb As Microsoft.Office.Interop.Excel._Workbook 
    Dim ws As Microsoft.Office.Interop.Excel._Worksheet 
    Dim iCol As Integer 
    Dim strName As String 
    Dim iIndex As Integer 
    Dim strPath As String 
    Dim strFile As String 

    Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click 
     If cleanRadioButton.IsChecked = True Then 
      strPath = "c:\test\old\" 
      strFile = Dir(strPath & "*.csv") 
      Do While strFile <> "" 

       wb = wb.Open(Filename:=strPath & strFile) 

       'Loop through the sheets. 
       For iIndex = 1 To Application.Worksheets.Count 
        ws = Application.Worksheets(iIndex) 

        'Loop through the columns. 
        For iCol = 1 To ws.UsedRange.Columns.Count 
         'Check row 1 of this column for the char of * 
         If InStr(ws.Cells(10, iCol).Value, "*") > 0 Then 
          'We have found a column with the char of * 
          ws.Columns(iCol).EntireColumn.Delete 
          ws.Columns(iCol + 1).EntireColumn.Delete 
          ws.Columns(iCol + 2).EntireColumn.Delete 
         End If 
        Next iCol 

       Next iIndex 
       wb.SaveAs(Filename:="C:\test\new\" & wb.Name, FileFormat:=xlOpenXMLWorkbook) 
       wb.Close(SaveChanges:=False) 
       strFile = Dir() 
      Loop 
      MessageBox.Show("The csv files have now been cleaned. Congrats.") 
     Else inputRadioButton.IsChecked = True 
      MessageBox.Show("The data has now been split into Trajectory and ForcePlate input files. High 5.") 
     End If 
    End Sub 
End Class 

我得到的3个错误，但无法工作，如何解决这些问题。

一个）工作表是不应用[线19]

b）中的一员工作表是不应用的成员[线路20]

C） 'xlOpenXMLWorkbook' 未声明。由于其保护级别，它可能无法访问。

Answer 1

对于a）和b）中，图案是：

Application.Workbooks.Worksheets

对于c）所示，最简单的方法进行：

从走进VBE Excel（Alt + F11）

按F2显示对象浏览器

查找xlOpenXMLWorkbook

结果：Const xlOpenXMLWorkbook = 51 (&H33) 所以，仅仅由值51取代它！

---

这是您的修改代码：

Class MainWindow 
    Dim wb As Microsoft.Office.Interop.Excel._Workbook 
    Dim ws As Microsoft.Office.Interop.Excel._Worksheet 
    Dim iCol As Integer 
    Dim strName As String 
    Dim iIndex As Integer 
    Dim wbIndex As Integer 
    Dim strPath As String 
    Dim strFile As String 

    Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click 
     If cleanRadioButton.IsChecked = True Then 
      strPath = "c:\test\old\" 
      strFile = Dir(strPath & "*.csv") 
      Do While strFile <> "" 

       wb = wb.Open(Filename:=strPath & strFile) 

       'Loop through the sheets. 
       For wbIndex = 1 To Application.Workbooks.Count 
        For iIndex = 1 To Application.Workbooks(wbIndex).Worksheets.Count 
         Ws = Application.Workbooks(wbIndex).Worksheets(iIndex) 

         'Loop through the columns. 
         For iCol = 1 To Ws.UsedRange.Columns.Count 
          'Check row 1 of this column for the char of * 
          If InStr(Ws.Cells(10, iCol).Value, "*") > 0 Then 
           'We have found a column with the char of * 
           Ws.Columns(iCol).EntireColumn.Delete 
           Ws.Columns(iCol + 1).EntireColumn.Delete 
           Ws.Columns(iCol + 2).EntireColumn.Delete 
          End If 
         Next iCol 

        Next iIndex 
       Next wbIndex 
       'Const xlOpenXMLWorkbook = 51 (&H33) 
       wb.SaveAs(Filename:="C:\test\new\" & wb.Name, FileFormat:=51) 
       wb.Close(SaveChanges:=False) 
       strFile = Dir() 
      Loop 
      MessageBox.Show ("The csv files have now been cleaned. Congrats.") 
     Else: inputRadioButton.IsChecked = True 
      MessageBox.Show ("The data has now been split into Trajectory and ForcePlate input files. High 5.") 
     End If 
    End Sub 
End Class 

Answer 2

要引用一个工作表油可以使用ws = wb.Worksheets(1)或ws = wb.Worksheets("Sheet1")或ws = excelApp.ActiveWorkbook.Worksheets(1)和使用xlOpenXMLWorkbook使用相应枚举XlFileFormat以及名称：XlFileFormat.xlOpenXMLWorkbook。

这个简单的例子打开工作簿Test.xlsx，在单元格A1 写文本，并将其保存到新的文件夹。

Imports System.IO 
Imports Microsoft.Office.Interop.Excel 

Public Class MainWindow 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim excelApp As Application 
     Dim wb As _Workbook 
     Dim ws As _Worksheet 
     Dim rng As Range 
     Dim strPathOld = "c:\temp\old" 
     Dim strPathNew = "c:\temp\new" 

     ' get excel application reference 
     excelApp = New Application 
     excelApp.Visible = True 
     excelApp.ScreenUpdating = True 

     ' open the workbook 
     wb = excelApp.Workbooks.Open(Path.Combine(strPathOld, "Test.xlsx")) 

     ' set reference to the sheet with index 1 
     ws = wb.Worksheets(1) 

     ' or use sheet name 
     ' ws = wb.Worksheets("Sheet1") 

     ' or use ActiveWorkbook if it exists 
     ' ws = excelApp.ActiveWorkbook.Worksheets(1) 

     ' write text in cell A1 
     rng = ws.Range("A1") 
     rng.Formula = "Test123" 

     ' save the workbook in new location 
     wb.SaveAs(Filename:=Path.Combine(strPathNew, wb.Name), _ 
       FileFormat:=XlFileFormat.xlOpenXMLWorkbook) 

     excelApp.Quit() 

    End Sub 
End Class 

注：以MS Office的互操作添加引用您的Excel版本（这里例如为Excel 2007）。