kapalı dosyada sheet açma

[Fuat Şirin]

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 32000
    If (Sayfa5.Cells(i, 1) = "") Then
        Sayfa5.Cells(i, 1) = TextBox1.Text
        MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        CommandButton2_Click
        CommandButton3_Click
        Exit Sub
    End If
Next i
End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
X = Sheets("LİSTE").Cells(65536, 1).End(xlUp).Row
isim = Cells(X, 1)
Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Sheets("LİSTE").Cells(X, 1), Text)
ActiveSheet.Range("B1").Value = ActiveSheet.Name
Sheets("LİSTE").Select
End Sub
Private Sub CommandButton3_Click()
Module1.refresh
Sayfa5.Select
Range("A1:D500").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

arkadaşlar bu kodları kullanarak
çalışma kitabımda sayfa açıyorum
istediğim kapalı olan
"firma" adlı çalışma kitabında kalıyken açması
böle bişey yapılabilir mi?
saygılar

 

[Fuat Şirin]

hocalarım yardımcı olursanız sevinirim

 

[Zeki Gürsoy]

Denemeden cevap yazmak istemedim. İşe yarıyor, test edin.

Sub test()
Set cn = CreateObject("adodb.connection")

cn.Open _
"driver={microsoft excel driver (*.xls)};readonly=true;dbq=" & _
ThisWorkbook.Path & "\db.xls"

cn.Execute "create table zeki (adi varchar(10), soyadi varchar(20));"

cn.Close

Set cn = Nothing

End Sub

 

[Fuat Şirin]

hocam bunu nasıl yapıcam çözemedim
kapalı dosyada açıcağım sheet ismini nereye yazıcam
sölerseniz çok makbule geçer

 

[Fuat Şirin]

textboxa yazdığım isim adına
şablonu kopyalasa
açsa süper olur hocam

 

[Zeki Gürsoy]

İki tane kayıtlı dosya oluşturun (aynı dizinde) ve biri db.xls isimli,
diğeri de "app.xls" olabilir.

tablo ismin "zeki" olarak verdim. Sütun isimleri de "adi" ve "soyadi" şeklindedir.

Verdiğim proseduru de, "app.xls" dosyasından çalıştırın.

 

[Fuat Şirin]

hocsm dediğim gibi olmaz mı peki
çünkü müşterileri girip hesaplarını bir dosyada tutucam
ve kapalı olarak serverde tutucam
onun için kusura bakmayın tam anlatamadım herhalde başta

 

[Zeki Gürsoy]

Ben soruyu yanlış anladım galiba..

 

[Fuat Şirin]

peki hocam dediğime çözüm var mıdır
3 gündür uyumadım bu prog için bir tek bu kapalı dosya olayı kaldı
dosya şişiyor hocam aynı sayfaya açınca
yardımcı olursanız gerçekten çok sevinirim

 

[Haluk]

Zeki bey,

Güzel bir kod, teşekkürler...


.

 

[Fuat Şirin]

hocam peki benim dediğim gibi bir şeyi yapmak mümkün değil mi

 

[papyrux]

Zeki bey,

Güzel bir kod teşekkürler, oldukça işe yarayacak...

 

[Fuat Şirin]

degerli hocalarim
textbox a yazdigim ismi
kapali dosyada sheet acmak mumkun
degil mi

ve

o sheetleri comboda goruntulemek

 

[Fuat Şirin]

degerli hocalarim
textbox a yazdigim ismi
kapali dosyada sheet acmak mumkun
degil mi

ve

o sheetleri comboda goruntulemek

bu konuda yardımcı olursanız
en azından olmaz derseniz
başka çözümler deniyeyim
olursa sitede de kaynak olacak bir çalışma olur


saygılar

 

[Korhan Ayhan]

Selamlar,

Zeki beyin önerdiği kodları ekteki örnek dosyada derledim. İncelermisiniz.

Not: Ekteki ÖRNEK.rar klasöründe iki dosya bulunmaktadır. İki dosyayıda aynı klasör içine yerleştirip VERİ GİRİŞİ isimli dosyadaki formu açıp deneyiniz.

 

[Fuat Şirin]

hocam çok saolun hakkınız ödenmez

 

[Fuat Şirin]

hocam
kapalı dosyadaki verileri gördük
yeni sheette açabiliyoruz
o shettleri
aktif olan
"hesap" sheetine atabilir miyiz
hesaptada mesela bir düzeltme yaptık
yada bir giriş yaptık
tekrar kapalı dosyaya kaydedebilir miyiz

bu olursa süper olur

amacım müşterileri kapalı olan dosyada tutup
program olan dosyayı şişirmemek
işlem yapıp
geri yerine yollucam

şimdiden çok tşk

 

[Fuat Şirin]

17 .mesajımda yardımcı olunabilirse çok sevinirim

 

[Orion1]

Korhan bey 2 alan oluşturulmuş.Bunlara string değerler girilecek.
Peki bir alan daha oluşturulsa ve bunada double tipinde sayısal değerler girilecek olsa idi kodda nasıl bir ilave olacaktı.Veya Alan oluşturuken bu alanın sayısalmı metinmi olduğuna bakılmıyorda veriler kaydedilirkenmi oluyor?
Bu şekilde koddaki değişikliği yapıp yollarmısınız?

 

[Fuat Şirin]

sorunuz bana değil sanırım
korhan bey e dimi