Member 10974007 Ответов: 1

Как искать в excel с помощью VB.NET


Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim appXL As Excel.Application
      Dim wbXl As Excel.Workbook
      Dim shXL As Excel.Worksheet
      Dim raXL As Excel.Range
      ' Start Excel and get Application object.
      appXL = CreateObject("Excel.Application")
      appXL.Visible = True
      ' Add a new workbook.
      wbXl = appXL.Workbooks.Add
      shXL = wbXl.ActiveSheet
      ' Add table headers going cell by cell.
      shXL.Cells(1, 1).Value = "First Name"
      shXL.Cells(1, 2).Value = "Last Name"
      shXL.Cells(1, 3).Value = "Full Name"
      shXL.Cells(1, 4).Value = "Specialization"
      ' Format A1:D1 as bold, vertical alignment = center.
      With shXL.Range("A1", "D1")
          .Font.Bold = True
          .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
      End With
      ' Create an array to set multiple values at once.
      Dim students(5, 2) As String
      students(0, 0) = "Zara"
      students(0, 1) = "Ali"
      students(1, 0) = "Nuha"
      students(1, 1) = "Ali"
      students(2, 0) = "Arilia"
      students(2, 1) = "RamKumar"
      students(3, 0) = "Rita"
      students(3, 1) = "Jones"
      students(4, 0) = "Umme"
      students(4, 1) = "Ayman"
      ' Fill A2:B6 with an array of values (First and Last Names).
      shXL.Range("A2", "B6").Value = students
       ' Fill C2:C6 with a relative formula (=A2 & " " & B2).
      raXL = shXL.Range("C2", "C6")
      raXL.Formula = "=A2 & "" "" & B2"
       ' Fill D2:D6 values.
      With shXL
          .Cells(2, 4).Value = "Biology"
          .Cells(3, 4).Value = "Mathmematics"
          .Cells(4, 4).Value = "Physics"
          .Cells(5, 4).Value = "Mathmematics"
          .Cells(6, 4).Value = "Arabic"
      End With
      ' AutoFit columns A:D.
      raXL = shXL.Range("A1", "D1")
      raXL.EntireColumn.AutoFit()
       ' Make sure Excel is visible and give the user control
      ' of Excel's lifetime.
      appXL.Visible = True
      appXL.UserControl = True
       ' Release object references.
      raXL = Nothing
      shXL = Nothing
      wbXl = Nothing
      appXL.Quit()
      appXL = Nothing
      Exit Sub
Err_Handler:
      MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
   End Sub
End Class


Что я уже пробовал:

как найти и получить номер строки и номер столбца

CHill60

Вам нужно опубликовать код, который вы пытались найти, а не код, который вы используете для заполнения электронной таблицы

Member 10974007

ну я никогда не делал seach в excel через vb.net

Member 10974007

я ищу коды, так как мои поисковые системы неоднократно предоставляли мне один и тот же материал

Member 10974007

Если индекс = -1, то
MsgBox ("Элемент Не Найден")
Ещё
MsgBox(dv (index) ("Product_Name").Метод toString() &ампер; "" &усилитель; ДВ(индекс)("Product_Price").Метод toString())
Конец, Если

что-то вроде этого
вышеприведенные коды работают в формате xml и vb.net

Member 10974007

Dim filePath As String = "F:\source.xlsx"
Dim m_workbook As Workbook = новая рабочая книга(Путь к файлу)
Дим m_worksheet как лист = m_workbook.Рабочие листы(0)

Тусклая область как CellArea = CellArea.CreateCellArea("E3", " H6")

Дим ОПЦ как FindOptions = новый FindOptions()
выберет.LookInType = LookInType.Значения
выберет.LookAtType = LookAtType.EntireContent
выберет.SetRange (область)
Дим m_cell как клетка = ничего
Делать

m_cell = m_worksheet.Ячейки.Find("поиск", m_cell, opts)

Если m_cell-это ничто, то
Выход Делать
Конец, Если

m_cell.PutValue ("заменить")
Цикл В То Время Как Истина

m_workbook.Сохранить("F:\output.xlsx")
Подробнее о Aspose.Клетки для .Чистая



я думаю, это должно сработать ?

Patrice T

Воспользуйся Улучшить вопрос чтобы обновить ваш вопрос.
Чтобы каждый мог обратить внимание на эту информацию.

1 Ответов

Рейтинг:
2

Maciej Los

Коротко И По Существу!

Richard MacCutchan

Я не вижу причин быть многословным, когда "разработчик" не удосужился даже взглянуть на документацию.

Maciej Los

Это само собой разумеется ;D

Member 10974007

можете ли вы получить номер строки и colum

Richard MacCutchan

Я не знаю, вам нужно проверить документацию и попробовать некоторые тесты.