vb.net을 사용하여 기존 엑셀 파일에 데이터를 추가하는 방법은 무엇입니까?

Question

필자는 기존 엑셀 파일에서 비어 있지 않은 마지막 행을 찾는 코드를 가지고 있습니다. 5 열의 텍스트 상자에서 다음 5 셀의 데이터를 열에 삽입하고 싶습니다. 나는 그것을 어떻게 코딩하는지 모른다. 제발 도와주세요, 여기 내 코드는 다음과 같습니다.

With xlWorkSheet 
     If EXL.WorksheetFunction.CountA(.Cells) <> 0 Then 
      lRow = .Cells.Find(What:="*", _ 
          After:=.Range("A2"), _ 
          LookAt:=Excel.XlLookAt.xlPart, _ 
          LookIn:=Excel.XlFindLookIn.xlFormulas, _ 
          SearchOrder:=Excel.XlSearchOrder.xlByRows, _ 
          SearchDirection:=Excel.XlSearchDirection.xlPrevious, _ 
          MatchCase:=False).Row 
     Else 
      lRow = 1 
     End If 

    End With 

Answer 1

여기에는 두 가지 문제가 있습니다. 두 번째 항목이 더 마음에 들었습니다. 어떤 항목에서 마지막 항목을 결정할 수 있고 다른 항목으로 참조를 돌릴 수 있기 때문입니다.

Dim nextrow As Integer = excel.Rows.End(XlDirection.xlDown).Row + 1 

Dim ws As Worksheet = excel.ActiveSheet 
Dim nRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row + 1 

그런 다음 값을 지정해야하는 모두는 다음과 같습니다

excel.Range("A" & nRow).Value = "test" 
excel.range("B" & nRow).value = "adjacent column" 

그 아래 5 세포에 루프를 원하는 경우 다음을 수행하십시오

Dim ws As Worksheet = excel.ActiveSheet 
Dim lRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row 

For i = 1 To 5 
    excel.Range("A" & lRow).Offset(i, 0).Value = "variable here" 
Next