xls yi xml ye çeviren kodlar

[numan şamil]

Merhaba
ekteki deneme Xls dosyamı xlm dosya şeklinde hazırlayıp "C:\ " ye atacak kodlar gerekiyor
Bir örnek kod yazabilecek arkadaşlar var mı?
Not:Xml nin düzeni çok önemli değil

 

[halit3]

Merhaba
ekteki deneme Xls dosyamı xlm dosya şeklinde hazırlayıp "C:\ " ye atacak kodlar gerekiyor
Bir örnek kod yazabilecek arkadaşlar var mı?
Not:Xml nin düzeni çok önemli değil

Bu olurmu

Sub kayıtet()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dosya = ThisWorkbook.FullName
Kayıt_Yeri = Cells(6, "d").Value
On Error Resume Next
DosyaSistemi.CopyFile Dosya, Kayıt_Yeri
MsgBox "işlem tamam"
End Sub

 

[numan şamil]

Bu olurmu

Sub kayıtet()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dosya = ThisWorkbook.FullName
Kayıt_Yeri = Cells(6, "d").Value
On Error Resume Next
DosyaSistemi.CopyFile Dosya, Kayıt_Yeri
MsgBox "işlem tamam"
End Sub

Merhaba Halit bey
Kodları denedim
Fakat "c\ " de xml dosyası hazırlamıyor galiba

On Error Resume Next

kodunu pasif yaptığımda

DosyaSistemi.CopyFile Dosya, Kayıt_Yeri

Hata veriyor
Ayrıca 1 nolu mesajımda xml düzeni önemli demiştim fakat
örn; 1. satıra "A" sutunundaki verileri
2. satıra"B" sutunundaki veriler
3. satıra"C" sutunundaki veriler
4. satıra"D" sutunundaki veriler
5.satıra "E" sutunundaki veriler
6.satıra "F" sutunundaki veriler
Gelecek şekilde xml dosyası hazırlanmasını istiyorum mümkünse

 

[halit3]

Merhaba Halit bey
Kodları denedim
Fakat "c\ " de xml dosyası hazırlamıyor galiba
kodunu pasif yaptığımda

Hata veriyor
Ayrıca 1 nolu mesajımda xml düzeni önemli demiştim fakat
örn; 1. satıra "A" sutunundaki verileri
2. satıra"B" sutunundaki veriler
3. satıra"C" sutunundaki veriler
4. satıra"D" sutunundaki veriler
5.satıra "E" sutunundaki veriler
6.satıra "F" sutunundaki veriler
Gelecek şekilde xml dosyası hazırlanmasını istiyorum mümkünse

Merhaba
ekteki deneme Xls dosyamı xlm dosya şeklinde hazırlayıp "C:\ " ye atacak kodlar gerekiyor
Bir örnek kod yazabilecek arkadaşlar var mı?
Not:Xml nin düzeni çok önemli değil

1 nolu mesajınızdaki not bölümümde önemsiz olduğunu söylüyorsunuız oysa şimdi kırmızı bölümde önemli olduğunu söylüyorsunuz.

Kodları ben çalıştırdığımda D6 hücresindeki yazan adres ve isimle aşağıdaki dosyayı elde ettim.

D6 hücresinde aynen böyle yazıyor.

C:\deneme.xlm

 

[numan şamil]

1 nolu mesajınızdaki not bölümümde önemsiz olduğunu söylüyorsunuız oysa şimdi kırmızı bölümde önemli olduğunu söylüyorsunuz.

Kodları ben çalıştırdığımda D6 hücresindeki yazan adres ve isimle aşağıdaki dosyayı elde ettim.

D6 hücresinde aynen böyle yazıyor.

C:\deneme.xlm

Hocam kusura bakma
Benim bilgisayarda bir sorun var galiba "C:\" de xml yi hazırlamıyor
Yalnız "D6" hücresine
D:\deneme.xml
yazdığımda "D:\" dosyayı eklemiş gördüm
Lakin dosyada hiç bir veri gözükmüyor
Diğer xml düzenine gelince hangi verinin hangi satıra geldiğini görürsem ilerideki bir değişiklikte kodları belki revize edebilirim diye düşünmüştüm
Ayrıca 1 nolu mesajımda xml düzeni önemli demiştim fakat
önemsiz demiştim yazacaktım
Ayrıca 1. nolu mesajımda ekli excel dosyasındaki "D6"
veri yolu
C:\deneme.xlm
şeklinde yazdım
C:\deneme.xml
olacaktı

 

[numan şamil]

Merhaba Aşağıdaki adreste
www.hellac.com/upload/is/iskur_cizelge.xls
bu konu ile ilgili xml hazırlama örneği varmış
örnek dosyadan yararlanmaya çalışacağım
Ayrıca ilgisinden dolayı Halit hocama teşekkür ederim
iyi çalışmalar

 

[Merhum İdris SERDAR]

Merhaba
ekteki deneme Xls dosyamı xlm dosya şeklinde hazırlayıp "C:\ " ye atacak kodlar gerekiyor
Bir örnek kod yazabilecek arkadaşlar var mı?
Not:Xml nin düzeni çok önemli değil

.

Dosyanız ekte.

Kodlar, yabancı bir siteden alınarak uyarlanmıştır.

.

 

[halit3]

Bu kodu denermisiniz.

Sub kayıtet()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim wb As Workbook
eski = ThisWorkbook.FullName
yeni = ThisWorkbook.Path & "/1" & ThisWorkbook.Name
DosyaSistemi.CopyFile eski, yeni

Set wb = Workbooks.Open(yeni)
Kayıt_Yeri = Cells(6, "d").Value
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Kayıt_Yeri, FileFormat:=xlXMLSpreadsheet
ActiveWorkbook.Close False
DosyaSistemi.DeleteFile yeni
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "işlem tamam"
End Sub

 

[halit3]

Birde bu var

Sub kayıtet()
Kayıt_Yeri = Cells(6, "d").Value
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A8:F14").Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=Kayıt_Yeri, FileFormat:=xlXMLSpreadsheet
ActiveWindow.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "işlem tamam"
End Sub

 

[numan şamil]

Sn Yurtaş,Sn Halit
ilginiz için çok teşekkür ederim
bir önceki mesajımdan sonra cevap yazılacağına ihtimalvermediğm için ve işlerin yoğunluğundan dolayı forma bakamadım cevaplarınızı yeni gördüm kusura bakmayın
Sayın Yurttaş bemim için düzenlediğiniz kodlar işimi görüyor
Değerli Hocalarım iyiki varsınız
iyi çalışmalar