access tablosundaki verileri sayfalara aktarmak

[yahyamacit]

arkadaşlar bir bağlantı buldum güzel çalıştı. Ama aynı klasör içindeki access dosyasına bağlayamadım. kod:
Sub Import()
Dim cn As Object, rs As Object
Dim MySql As String

Let MySql = "SELECT * from Table1"

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\temp\test.mdb"

Set rs = CreateObject("ADODB.Recordset")

With rs
.Open MySql, cn, 3, 3
Sheets("3").Range("a1").CopyFromRecordset rs
.Close
End With

cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub

 

[yahyamacit]

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& app.path&"\text.mdb"

olmadı hata nerede bilmiyorum

 

[soylu17]

:yardim:

 

[soylu17]

acces toblolar gerekli

 

[ALPEN]

[vb:1:2715baea2f]Sub Import()
Dim cn As Object, rs As Object
Dim MySql As String

Let MySql = "SELECT * from Table1"

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ActiveWorkbook.Path & "\test.mdb"

Set rs = CreateObject("ADODB.Recordset")

With rs
.Open MySql, cn, 3, 3
Sheets("3").Range("a1").CopyFromRecordset rs
.Close
End With

cn.Close
Set rs = Nothing: Set cn = Nothing

End Sub[/vb:1:2715baea2f]

 

[veyselemre]

[vb:1:f3f59e26e0]Sub s()
Dim cn As Object, rs As Object
Dim MySql As String
MySql = "SELECT * from Tablo1"

Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=""C:\Documents and Settings\asd\Belgelerim\vt2.mdb"""

Set rs = CreateObject("ADODB.Recordset")
rs.Open MySql, cn, 3, 3
For iCols = 0 To rs.Fields.Count - 1
Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
Range(Cells(1, 1), Cells(1, rs.Fields.Count)).Font.Bold = True
Range("A2").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub[/vb:1:f3f59e26e0]

 

[ALPEN]

Böyle daha güzel göründü. Tebrikler.