Kapalı Dosyaya Kaydet

[DeliBalta58]

Herkese merhabalar.

Ekli dosyada Kitap1 ve kitap2 var.
Kitap1 açıldığında userform1 aktif oluyor ve Texbox1'e kitap2 A1 hücresindeki veri getiriliyor

Private Sub UserForm_Activate()
TextBox1 = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[kitap2.xls]Sayfa1'!R1C1")
End Sub

Yapmak istediğim ise Kaydet Butonuna basılınca Textbox1'de girilen verinin kapalı olan kitap2 B2 hücresine yazılması.
Teşekkürler.

 

[Recep İpek]

Aşağıdaki konuyu inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=11613

 

[DeliBalta58]

Sayın uzmanım Konuya daha önce baktım.
Burda direk adres belirtiliyor
"C:\Rapor.xls "

C nin içinde Rapor kitabı gibi

Benim yapmaya çalıştığım bir klasör içinde olacak klasörü ister C de İster D de çalıştırabileyim

 

[Recep İpek]

İlgili dosyadaki

Const DBpath As String = [COLOR=blue]"C:\Rapor.xls"
[/COLOR]Const ShName As String = "[Liste$]"
Const Rngs As String = "(Isim, Soyad)"
'
Private Sub CommandButton1_Click()
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" &  [COLOR=blue]DBpath[/COLOR] _
           & ";Extended Properties=Excel 8.0;"
   conn.Execute "Insert into " & ShName & Rngs & _
                " values ('" & TextBox1 & "','" & TextBox2 & "')"
   conn.Close
   Call GetData
   TextBox1 = ""
   TextBox2 = ""
   TextBox1.SetFocus
End Sub

satırlarını

Const DBpath As String = [COLOR=blue]"\Rapor.xls"
[/COLOR]Const ShName As String = "[Liste$]"
Const Rngs As String = "(Isim, Soyad)"
'
Private Sub CommandButton1_Click()
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & [COLOR=blue]ThisWorkbook.Path & DBpath[/COLOR] _
           & ";Extended Properties=Excel 8.0;"
   conn.Execute "Insert into " & ShName & Rngs & _
                " values ('" & TextBox1 & "','" & TextBox2 & "')"
   conn.Close
   Call GetData
   TextBox1 = ""
   TextBox2 = ""
   TextBox1.SetFocus
End Sub

olarak deneyiniz.

 

[DeliBalta58]

verdiği hata mesajı ekte

 

[Recep İpek]

Userform_Activete bölümünde yazılan kodları silerek deneyiniz.

 

[DeliBalta58]

Eklediğim dosya üzerinde uyğulayarak yapmanız mümkünmü acaba