엑셀 셀 포맷 텍스트의 변경

Question

나는 엑셀 시트를 사용한다. 엑셀 시트에 다른 값이 떨어진다. 아무런 문제가 없다. 그러나이 숫자 열 (00023785678)이 떨어졌다. 열 처음으로 제로는 그것을 얻을 수 없습니다 .. 그래서 내가 텍스트의 셀 형식으로 열을 변경했다 ..

어떻게 Vb.net 코드를 만들 수 있습니다 .. 이미 나는이 방법을 엑셀 시트 떨어졌다 ...

 Dim oXL As Excel.Application 
      Dim oWB As Excel.Workbook 
      Dim oSheet As Excel.Worksheet 
      Dim columnrange = oSheet.Columns 
      Dim therange = oSheet.UsedRange 
      ' Dim wb As Microsoft.Office.Interop.Excel.Workbook 
      ''Dim style As Microsoft.Office.Interop.Excel.Style 
      oXL = CreateObject("Excel.Application") 
      oXL.Visible = True 
      oWB = oXL.Workbooks.Add 
      oSheet = oWB.ActiveSheet 
      'oXL.Selection.num() 
      oXL.Selection.NumberFormat = "Text" 

      For c As Integer = 0 To dt.Columns.Count - 1 
       oSheet.Cells(1, c + 1).Value = dt.Columns(c).ColumnName 

      Next 
      For rCnt As Int16 = 2 To therange.Rows.Count 
       Dim rowArray(therange.Columns.Count) As String 
       For cCnt As Int16 = 1 To therange.Columns.Count 
        Dim Obj = CType(therange.Cells(rCnt, cCnt), Excel.Range) 
        Dim celltext As String 
        celltext = Obj.Value.ToString 
        rowArray((cCnt - 1)) = celltext 

       Next 
      Next 

      For r As Integer = 0 To dt.Rows.Count - 1 
       For c As Integer = 0 To dt.Columns.Count - 1 
        oSheet.Cells(r + 2, c + 1).Value = dt.Rows(r)(c) 
        oSheet.Cells(r + 2, c + 1).numberformat = "0" 
       Next 
      Next 
      'With oWB 
      ' .Cells(seriesName.GetUpperBound(0) + 7, 3).numberformat = "#.00" 
      ' .Cells(seriesName.GetUpperBound(0) + 7, 5).numberformat = "0" 
      'End With 


      'With oSheet.Range("A1", "ZZ1") 
      ' .Font.Bold = True 
      ' .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter 
      ' .HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter 
      ' .EntireColumn.AutoFit() 
      ' .EntireRow.AutoFit() 
      'End With 

      Dim FirstRow As Long 
      Dim SecentRow As Long 
      Dim ThirdRow As Long 
      With oSheet.Range("A1", "BD1") 
       FirstRow = 1 
       SecentRow = 2 
       ThirdRow = 3 
       .Rows(0 + 1).EntireRow.Insert() 
       .Rows(0 + 1).EntireRow.Insert() 
       .Rows(0 + 1).EntireRow.Insert() 
       .Font.Bold = True 
       .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter 
       .HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter 
       .EntireColumn.AutoFit() 
       .EntireRow.AutoFit() 

       '.EntireRow.TextToColumns() 


       .Offset.Justify() 
       .Offset.BorderAround() 
       .Offset.WrapText = True 
       .Offset.Select() 
      End With 

는하지만 지금 idon't는 ANS를 얻을 ... 은 ...

도와주세요 PLS하기

Answer 1

앞에 오는 작은 따옴표 '이있는 텍스트로 처리하려는 셀의 값 앞에 접두사를 붙입니다. 이렇게하면 Excel에서 셀을 텍스트로 처리하고 작은 따옴표는 시트에 표시되지 않습니다.

Answer 2

oSheet.Range("A1", "BD1").NumberFormat = "@" 

이 트릭을 수행 할 것입니다.