Onedrive da makro kodu çalışmıyor.

[sinnernekolens]

İyi günler,

Ms office 2019 kullanıyorum onedrive da bulunan bir dosyam da bul butonuna tıklayınca useform açılıyordu. ancak şimdi aşağıdaki hatayı alıyorum.

Dosyayı masa üstüne atıp açtığımda sorunsuz çalışıyor.

herhangi bir ayarı varsa yardımlarınızı rica ederim.

 

[sinnernekolens]

Hataya sebep olan kod bu sanırım. nereyi düzeltirsek bu hatayı almayız.

Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus

Dim con As Object
Dim rs As Object
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

Sql = "select [NO],format([date],'dd.mm.yyyy'),[COMPANY],[PORT],[TERMINAL],[VESSEL],[FLAG],[GRT],[NRT],[DWT],[CARGO],[QUANTITY],[TEYP] from [veri$] "

Set rs = con.Execute(Sql)
If Not rs.bof Then ListBox1.Column = rs.getrows
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "60;55;130;50;60;100;50;40;40;40;50;50"

Set rs = Nothing
Set con = Nothing
End Sub

 

[Murat OSMA]

One Drive'da ADO'nun çalışmama gibi bir huyu var, bağlantı sağlanıyor ama rs kısmında hata veriyor..
Klasik VBA kodlarında bir sorun yaşamazsınız, o bir seçenek olabilir.

 

[sinnernekolens]

Merhaba, bilgi için teşekkür ederim nasıl değiştireceğiz peki kodu yardımcı olabilir misiniz.

 

[Murat OSMA]

Dosyanızı iletirseniz destek olabilirim.

 

[sinnernekolens]

İyi günler, iyi bayramlar dilerim.
Örnek dosya ektedir. ADO kodunu klasik koda nasıl çevirebilirim yardımlarınızı rica ederim. ADO office 2016 da sorunsuz çalışıyor 2019 da hata veriyor.

Ayrıca ilk sayfadaki E-Mail butonuna tıklayınca sayfayı pdf ye çevirip outlooka ekliyor. fakat pdf dosyasının isminde farklı karakterler çıkmaya başladı. yardımlarınızı rica ederim.

MSO-2019 kullanıyorum.

 

[sinnernekolens]

yardımlarınızı rica ederim.

 

[sinnernekolens]

Konu hakkında yardımlarınızı rica ederim. mso2019 da onedrive da olan dosyada ado çalışmıyor. bunu başka bir kodla değiştirebilir miyiz.
mso2016 sorunsuz çalışıyor. 2016 ya da tekrar dönmek istemiyorum

 

[sinnernekolens]

İyi akşamlar,
Örnek dosyada ki aşağıdaki ADO kodunu klasik koda nasıl çevirebilirim yardımlarınızı rica ederim.
office 2019 da onedrive da hata veriyor, dosyayı masaüstüne attığımda çalışıyor.
office 2016 onedrive da sorunsuz çalışıyor.

MSO-2019 kullanıyorum.

Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus

Dim con As Object
Dim rs As Object
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

Sql = "select [NO],format([date],'dd.mm.yyyy'),[COMPANY],[PORT],[TERMINAL],[VESSEL],[FLAG],[GRT],[NRT],[DWT],[CARGO],[QUANTITY],[TEYP] from [veri$] "

Set rs = con.Execute(Sql)
If Not rs.bof Then ListBox1.Column = rs.getrows
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "60;55;130;50;60;100;50;40;40;40;50;50"

Set rs = Nothing
Set con = Nothing
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, Son As Long
    
    Set S1 = Sheets("veri")
    
    Me.TextBox1.SetFocus
    
    ListBox1.ColumnCount = 12
    ListBox1.ColumnWidths = "60;55;130;50;60;100;50;40;40;40;50;50"
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    If Son > 1 Then ListBox1.RowSource = "veri!A2:M" & Son
    
    Set S1 = Nothing
End Sub

 

[sinnernekolens]

Korhan bey, çok teşekkür ederim elinize sağlık. süper oldu.