kapalı dosyadan sayfa düzeni bozulmadan veri almak

[chakistes]

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

 

[Ömer BARAN]

Merhaba.
Sorularınızı, örnek belge (verinin yazılacağı ve verinin kaynağı olan belge) üzerinden sorarak sonuca ulaşmayı kolaylaştırırsınız.

İsteğinizi "kapalı belgedeki sayfadan veri almak" yerine,
"kapalı belgedeki sayfanın kopyasını, aktif belgeye alıp ismini Sayfa2 olarak değiştirmek" şeklinde söylersek yanlış mı olur?
Eğer bu doğru ise, kapalı belge sabit bir belge midir?
Belgede kaç adet sayfa vardır, bir'den fazla sayfa varsa, hangi sayfadaki verileri almak istediğinize nasıl karar verilecek
gibi hussuları netleştirmeniz gerekiyor sanırım.
.

 

[chakistes]

açık dosyada buton koydum kapalı dosyadan veri alırken sayfa düzeni bozuk alıyor ayrıca kapalı xlsx yeride dosya aç yapıp aynı tarzda olan tablolarım var başka isimle kaydedilmiş onları da seçerek almak istiyorum.

 

[Ömer BARAN]

Tekrar merhaba.
Son eklediğiniz belgelere bakmadım. Umarım olması gereken durumu örneklendirmişsinizdir.
"Hangi belgeden" sorusunun cevabı tamam (GÖZAT ekranı üzerinden seçilen dosya) ancak diğer sorularıma cevap yazmamışsınız.
Bir önceki cevabımı takrar okuyunuz.
.

 

[chakistes]

merhaba açık olan dosyada düğme1 e bastığımda dosya aç olarak çıkmasını istiyorum

 

[Erdem Akdemir]

Merhaba,

Dosya seçmek istiyorsanız aşağıdaki kodu kullanabilirsiniz.

GetOpenFilename = Application.GetOpenFilename

 

[Ömer BARAN]

Forumda zaman zaman hakikaten şaşkınlık içerisinde kalıyorum.

Konu sayfasına cevap yazarak, bir anlamda sorununuzla ilgileneceğini vaat etmiş olan kişilerin soruları neden cevaplanmayıp,
ısrarla ve yöneltilen sorular hiç sorulmamış gibi aynı cümle tekrarlanır anlayamıyorum doğrusu.

GÖZAT ekranı üzerinden seçilecek bir dosya üzerinden veri alınacağını anlamadığımızı mı düşünüyorsunuz,
yoksa yazılan cevapları (tabii ki bu cevaplarda yöneltilen soruları) hiç okumuyor musunuz?
.