Results 1 to 19 of 19

Thread: [RESOLVED] VBNet2008 Retrieve Data from Excel to fill DataGrid

Threaded View

  1. #15
    Discovering Life Siddharth Rout's Avatar
    Join Date
    Feb 2005
    Location
    Mumbai, India
    Posts
    12,001

    Re: VBNet2008 Retrieve Data from Excel to fill DataGrid

    Exactly

    So

    When the loop runs for the 1st time, objSheet.Cells(excelRow, 1) is actually referring to objSheet.Cells(6, 1) which is Cell A6 as you have declared excelRow as 6 and 1 refers to Column A and when the loop runs for the 2nd time objSheet.Cells(excelRow, 1) is actually referring to objSheet.Cells(7, 1) which is Cell A7. So on...

    So simply make these changes in your code...

    Code:
            Try
                Do While bolFlag = True
    
                     If objSheet.Cells(excelRow, 1) = "" Then
                          bolFlag = False
                          Exit Do
                     End If
    
                    With DataGridView1
                        .Rows.Add()
                        DGVRow += 1
                        excelRow += 1
    
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 1)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 2)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 3)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 4)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 5)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 6)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 7)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 8)
                        .Rows(DGVRow).Cells(0).Value = objSheet.Cells(excelRow, 9)
                      
                    End With
                Loop
    Hope you are with me on this one?
    Last edited by Siddharth Rout; May 27th, 2010 at 06:18 AM.
    A good exercise for the Heart is to bend down and help another up...
    Please Mark your Thread "Resolved", if the query is solved


    MyGear:
    ★ CPU ★ Ryzen 5 5800X
    ★ GPU ★ NVIDIA GeForce RTX 3080 TI Founder Edition
    ★ RAM ★ G. Skill Trident Z RGB 32GB 3600MHz
    ★ MB ★ ASUS TUF GAMING X570 (WI-FI) ATX Gaming
    ★ Storage ★ SSD SB-ROCKET-1TB + SEAGATE 2TB Barracuda IHD
    ★ Cooling ★ NOCTUA NH-D15 CHROMAX BLACK 140mm + 10 of Noctua NF-F12 PWM
    ★ PSU ★ ANTEC HCG-1000-EXTREME 1000 Watt 80 Plus Gold Fully Modular PSU
    ★ Case ★ LIAN LI PC-O11 DYNAMIC XL ROG (BLACK) (G99.O11DXL-X)
    ★ Monitor ★ LG Ultragear 27" 240Hz Gaming Monitor
    ★ Keyboard ★ TVS Electronics Gold Keyboard
    ★ Mouse ★ Logitech G502 Hero

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width