Visual Basic ile Excel

eastking

Üye
Katılım
8 Kas 2008
Mesajlar
42
Puanları
1
Yaş
36
Herkese kolay gelsin,

Visual Basic ile bir program yazmaya çalışıyorum fakat takıldığım iki nokta var.

1. visual basic ile mevcut xlsx dosyalarını açmakta sıkıntı yaşamıyorum ama text1.text e yazılan dosya adı ile yeni xlsx dosyası yaratamıyorum. Örneğin,

Dim x, a, mes
kitapyolu = "C:\istakip\eastking.xlsx"
Workbooks.Open (kitapyolu)
Sheets("islistesi").Select
Range("A1").Select
x = WorksheetFunction.Count(Range("A1:A65000")) + 1
a = (ActiveCell.Offset(0, 5).Value) + 1
ActiveCell.Offset(a, 1).Value = Text1.Text
ActiveCell.Offset(a, 2).Value = Text2.Text
ActiveCell.Offset(a, 3).Value = Text3.Text
mes = MsgBox("BİLGİLER KAYDEDİLMİŞTİR", vbOKOnly, "GÜNLÜK KAYDI")
ActiveCell.Offset(0, 5).Value = a

şimdi bu program c klasöründeki istakip dosyasının içinden eastking adlı excel dosyasını açıyor ve içine istediğimi yazıyorum.

benim istediğim ise text1 kutusuna eastking yazdığım zaman gidip bu dosyayı açsın ve bu bir döngü içinde olsun yani hangi ismi yazarsam yazayım o dosyaya ulaşsın.

bunun için şöyle bir kod düşündüm.

dim t
t= text1.text
workbooks.open "C:\istakip\t.xlsx"
....

bu kodda da gidip direk t adlı dosyayı açıyor, text1 içine yazdığım dosyayı açmıyor.

bu konuda yardımcı olursanız sevinirim...

herkese iyi çalışmalar
 
Herkese kolay gelsin,

Visual Basic ile bir program yazmaya çalışıyorum fakat takıldığım iki nokta var.

1. visual basic ile mevcut xlsx dosyalarını açmakta sıkıntı yaşamıyorum ama text1.text e yazılan dosya adı ile yeni xlsx dosyası yaratamıyorum. Örneğin,

Dim x, a, mes
kitapyolu = "C:\istakip\eastking.xlsx"
Workbooks.Open (kitapyolu)
Sheets("islistesi").Select
Range("A1").Select
x = WorksheetFunction.Count(Range("A1:A65000")) + 1
a = (ActiveCell.Offset(0, 5).Value) + 1
ActiveCell.Offset(a, 1).Value = Text1.Text
ActiveCell.Offset(a, 2).Value = Text2.Text
ActiveCell.Offset(a, 3).Value = Text3.Text
mes = MsgBox("BİLGİLER KAYDEDİLMİŞTİR", vbOKOnly, "GÜNLÜK KAYDI")
ActiveCell.Offset(0, 5).Value = a

şimdi bu program c klasöründeki istakip dosyasının içinden eastking adlı excel dosyasını açıyor ve içine istediğimi yazıyorum.

benim istediğim ise text1 kutusuna eastking yazdığım zaman gidip bu dosyayı açsın ve bu bir döngü içinde olsun yani hangi ismi yazarsam yazayım o dosyaya ulaşsın.

bunun için şöyle bir kod düşündüm.

dim t
t= text1.text
workbooks.open "C:\istakip\t.xlsx"
....

bu kodda da gidip direk t adlı dosyayı açıyor, text1 içine yazdığım dosyayı açmıyor.

bu konuda yardımcı olursanız sevinirim...

herkese iyi çalışmalar

dim t
t= text1.text
a= "C:\istakip\"& t & ".xlsx"
workbooks.open a
 

Forum istatistikleri

Konular
127,967
Mesajlar
913,969
Kullanıcılar
449,612
Son üye
esperran

Yeni konular

Geri
Üst