Skip to main content

AccessTr.neT


Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme

Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme

Çözüldü #1
Merhaba

Benim sorum; Visual Basıc 6'da Msflexgrid'e Excel'den Veri Çekme ilgili. Baya bi araştırdım bununla ilgili türkçe bi kaynak bulamadım.
https://accesstr.net/konu-msflexgrid-dek...#pid176977 konusunda bahsettiğim şekilde, Bir excelde sutün sutün yazılı olan koordinatları programa okutmam lazım. Yardımcı olabilirmisiniz lütfen ?
birde bununla alakalı bir sorum olacak. Galiba bu sitede okudum.
Vb'de Excel kütüphanesi seçilecek galiba. X bilgisayarda microsoft ofis Excel kurulu değişse çalışmama durumu varmı ? Kurulu olması gerekiyor diye bişey okudum. Bazı kullanıcılar Başka Excel programları kullanıyor. buda sorun olabilir.

birde extradan çok küçük sorum olacak:
'-----------
Function verisayisi()
Dim vsayi As Integer
Open "c:\veri.txt" For Input As 1
Do While True
If Not EOF(1) Then
Input #1, a, b, c
List1.AddItem a
vsayi = List1.ListCount
Else
Close #1
MSFlexGrid1.Rows = vsayi + 1
Exit Function
End If
Loop
End Function


Private Sub Command1_Click()
Dim v1, v2, v3 As Double
Dim satir, sutun As Integer
verisayisi
Open "c:\veri.txt" For Input As 1
satir = 1
sutun = 0
Do While True
If Not EOF(1) Then
Input #1, v1
Input #1, v2
Input #1, v3
MSFlexGrid1.Row = satir
MSFlexGrid1.Col = sutun
MSFlexGrid1.Text = v1
MSFlexGrid1.Col = sutun + 1
MSFlexGrid1.Text = v2
MSFlexGrid1.Col = sutun + 2
MSFlexGrid1.Text = v3
satir = satir + 1
sutun = 0
Else
Close #1
Exit Sub
End If
Loop
End Sub

'--------------
Bu kodlarla TXT dosyasını okutuyorum. Burada Open "c:\veri.txt" For Input As 1 kodundan dolayı ufak bir sıkıntım var.
burada okunacak dosyayı kullanıcıya seçtirmek istesek ?
1) CommonDialog mu kullanmamız gerekli ?

2) Bu OCX bazı bilgisayarlarda olmayabiliyor. Farklı bir yol varmı ?
Son Düzenleme: 04/02/2021, 19:11, Düzenleyen: ikayserili.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Visual Basıc 6, Msflexgrid'e Excel'den Veri Çekme - Yazar: ikayserili - 04/02/2021, 19:09
Task