Excel'den Visual Basic 6'ya nasıl bilgi aktarılır

Excel'de bilgi oluşturmak VB6'dan daha kolaydır, bu nedenle Excel'den VB6'ya bilgi aktarmak bazen daha pratiktir.

1. Adım

Yeni bir Visual Basic projesi başlatın.

2. Adım

Forma bir liste kutusu ve bir komut düğmesi ekleyin.

3. adım

"Proje Menüsü" nü seçin ve ardından "Referanslar" seçeneğini seçin. Oradan "Microsoft Excel Kitaplığı" nı seçin.

4. Adım

Aşağıdaki kodu girin: Özel Sub Command1_Click () Dim objXLApp As Excel.Application Dim intLoopCounter As Tamsayı

ObjXLApp = New Excel.Application öğesini ayarlayın

ObjXLApp ile .Workbooks.Open "C: \ File.xls" .Workbooks (1) .Worksheets (1) .Select

İntLoopCounter için = 1 için CInt (.ActiveSheet.Cells.SpecialCells (xlCellTypeLastCell) .Row) List1.AddItem .Range ("To" & intLoopCounter) Sonraki intLoopCounter

.Workbooks (1). Yanlış Yanlış .Quit End With

ObjXLApp = Nothing End Sub öğesini ayarlayın

Adım 5

Excel dosyanızın adını "C: \ File.xls" olarak değiştirin. Bu şimdi bilgileri Excel elektronik tablonuzdan içe aktarır.