Açık Çalışma Kitabının yeniden açılması

[DeliBalta58]

Private Sub UserForm_Activate()
Workbooks.Open ThisWorkbook.Path & "\tedavi_yolluk_bildirimi.xls"

kodu ile tedavi_yolluk_bildirimi çalışma kitabını açmaya çalıştığımızda
kitap açık olduğu zaman
kitap zaten açık yeniden açmak istiyormusunuz diye uyarı veriyor.
bu uyarıyı vermeden açılmasını istiyorum.Bunu nasıl gerçekleştireceğiz
ekte hata mesajı var.

 

[Orion1]

Yalnız kaydetmediğiniz veriler silincektir.
Uyarması benden.

Application.DisplayAlerts = False
Workbooks.Open ThisWorkbook.Path & "\tedavi_yolluk_bildirimi.xls"
Application.DisplayAlerts = True

 

[DeliBalta58]

Elinize sağlık.

Peki hocam bu uyarıyı neden verir. Kaydedip kapatıyorum.
bu kodla açmaya çalıştığımda her defasında bu uyarı ile karşılaşıyorum.

 

[Orion1]

Elinize sağlık.

Peki hocam bu uyarıyı neden verir. Kaydedip kapatıyorum.
bu kodla açmaya çalıştığımda her defasında bu uyarı ile karşılaşıyorum.

Çünkü dosya açık ve açılırsa veriler silinecek,onun için sizi sizi uyarıyor.

 

[Zeki Gürsoy]

for each wb in workboks
if wb.name = "tedavi_yolluk_bildirimi.xls" then _
a= "tedavi_yolluk_bildirimi.xls"
next
if a <> "" then msgbox "Dosya a&#231;&#305;kt&#305;r."

 

[Orion1]

Sayın DeliBalta58 ,Sayın anemos'un verdiği alternatif cevaba baktınızmı.Belki size o kodlar lazım olmuştur.

 

[DeliBalta58]

Hocam. İşi başkan anlatmak gerekli.
Form aktif olduğunda aynı kyasördeki 4 tane kitap açılıyor,bilgiler alınıp. tekrar kapatılıyor. Yeni bir veri girişi olmuyor.

tedavi_yolluk_bildirimi.xls hariç digerlerinde sıkıntı yok.
Bunu çözmeye ugraşıyorum. Neden olabilir ve nasıl engellerim.

Private Sub UserForm_Activate()
Workbooks.Open ThisWorkbook.Path & "\kurum.xls"
Workbooks.Open ThisWorkbook.Path & "\ekonomik_kod.xls"
Workbooks.Open ThisWorkbook.Path & "\personel_bilgi.xls"
Workbooks.Open ThisWorkbook.Path & "\tedavi_yolluk_bildirimi.xls"

Set krm= Workbooks("kurum.xls").Worksheets("sayfa1")
Set ek_kod= Workbooks("ekonomik_kod.xls").Worksheets("sayfa1")
Set pers = Workbooks("personel_bilgi.xls").Worksheets("sayfa1")

Workbooks("tedavi_yolluk_bildirimi.xls").Worksheets("sayfa2").Select

TextBox40.Text = krm.[B18]
TextBox41.Text = ek_kod.[B18]
TextBox42.Text = pers.[B18]

ComboBox1.RowSource = "Sayfa2!A2:A66" 'Saatler
ComboBox2.RowSource = "Sayfa2!A2:A66" 'Saatler
ComboBox7.RowSource = "Sayfa2!A2:A66" 'Saatler

Workbooks("kurum.xls").Close False 
Workbooks("ekonomik_kod.xls").Close False 
Workbooks("ekonomik_kod.xls").Close False 
Workbooks("tedavi_yolluk_bildirimi.xls").Close False 
End Sub

 

[Orion1]

Sayın anemos'un kodlarını kullanmanız dağa doğru olacaktır.

 

[Zeki Gürsoy]

Dosyayı açmak yerine kapalı iken B18 değerlerini Excel4Macro ile neden almıyorsunuz?

 

[DeliBalta58]

Kapalı dosya uygulamalarına çok baktım.Ancak hiç bir bilgim ve tecrübem olmadığı için hiç ugraşmadım.Bunun yerine dosyayı açıp bilgiyi alıp kapatma yoluna gittim.

 

[RFspur]

Excel 2003, "veri dosyası kapalı olsa bile" link verdiğinizde ilgili veriyi almıyor mu? (Ben bu uygulamayı sıkça kullanıyorum). Yoksa makro içerisinde bu uygulama geçersiz midir?

 

[hussain]

tesekkurler