- Katılım
- 17 Kasım 2009
- Mesajlar
- 295
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 24-12-2023
merhaba arkadaşlar aşağıdaki kodla veri alabiliyorum fakat ayarlanmış sayfa düzeni bozuluyor kapalı dosyadan tüm sayfayı sayfa düzeni bozulmadan nasıl alabilirim ve kapalı olarak seçmeden dosya seç ile seçtikten sonra almak istiyorum.
sub deneme ( )
Dim con As Object, rs As Object
Dim dosya As String
dosya = ThisWorkbook.Path & "\kapalı.xlsx"
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
With Sayfa2
.Range("A1:K65536").ClearContents
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & dosya & _
";extended properties=""Excel 12.0;hdr=no"""
rs.Open "select * from [Sayfa1$]", con, 1, 1
If rs.RecordCount > 0 Then
.Range("A1").CopyFromRecordset rs
End If
rs.Close: con.Close
End With
Sayfa2.Select
Set rs = Nothing: Set con = Nothing
dosya = vbNullString
End sub
sub deneme ( )
Dim con As Object, rs As Object
Dim dosya As String
dosya = ThisWorkbook.Path & "\kapalı.xlsx"
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
With Sayfa2
.Range("A1:K65536").ClearContents
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & dosya & _
";extended properties=""Excel 12.0;hdr=no"""
rs.Open "select * from [Sayfa1$]", con, 1, 1
If rs.RecordCount > 0 Then
.Range("A1").CopyFromRecordset rs
End If
rs.Close: con.Close
End With
Sayfa2.Select
Set rs = Nothing: Set con = Nothing
dosya = vbNullString
End sub