ppt excel link gömme

[Kemal Demir]

Arkadaslar merhaba,

ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, FileName:="[b]C:\Kitap.xls!Sheets(2)[/b]", Link:=msoFalse).Select

Altı çizili alanda hata alıyorum.Aşagıdaki şekilde sorun yok.Ben link alacagım sheetı tanımlamak istiyorum.yukarıdaki koddaki sıkıntıyı nasıl gideririz.

Teşekkurler.

ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, FileName:="C:\Kitap.xls", Link:=msoFalse).Select

 

[parametre]

ben burada grafigi yonlendirmek için excelden link alıyordum bunu alırken bag yontemini denemiştim sende dene istersen

 

[Kemal Demir]

parametre selam,

Öncelikle ilginizden dolayı teşekkurler.Yalnız calisma biraz farklı olacak şöyle ki,

Aradıgım farklı birşey.Tek bir sayfada birden fazla sheetın var.

Link alacagım yer.

C:\Kitap.xls dosyada 45 adet sheetım var.Buna bir dongu bağlamayı dusunuyorum ama yapamadım.

Tekrar geridonusun için teşekkurler.

 

[parametre]

Dim db As Object
Dim rs As Object

Set db = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

'Excel Dosyasının Tam Yolu
Dim dosya_yolu As String
dosya_yolu = "c:\erolmercan.xls"

' Sheet / Sayfa Adı
Dim excel_tablo As String
' Size sayfa1'in bütn sutunlarını ve satırlarını gönderir
excel_tablo = "Sayfa1$"

' Bu da belirli bir alanı size döndürür
excel_tablo2 = "Sayfa1$A1:B2"

' Excel Dosyası Açmak için gerekli ConnectionString
Dim dbconn As String

dbconn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dosya_yolu & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"""

db.open dbconn

' Kayıtlara ulaşalım
rs.open "Select * from [" & excel_tablo & "]", db, 1, 1
While Not rs.EOF
' Buraya size gerekli kodu yerleştirin.
MsgBox rs(0).Value
Wend
rs.Close
db.Close

' Hafızadan komple silelim.
Set rs = Nothing
Set db = Nothing

bir yerden boyle bir kod yakaladım ama senin kodlarınla inceledim sanırım faydalı olacaktır

 

[Kemal Demir]

Teşekkurler parametre.