Excel tablosundan XML'e kolay aktarımı buldum :)

[membus]

Merhaba arkadaşlar,

Bir GO kullanıcısı olarak bazı işlemleri hızlandırmak için mesela devir fişlerini XML olarak kaydedip veri içeri al'dan go'ya girmek istiyordum. Ancak XML şablonları konusunda hep sıkıntılar yaşıyordum.

XML'e excel tablosu gibi verileri girme, kopyala/yapıştır işlemlerini uygulamak için bir program buldum. Devir çeklerimin tamamını bu şekilde girdim.

Şu şekilde yaptım:

  1. Hangi modüle aktarım yapacaksanız, o bölümde en az iki adet kayıt oluşturun (mesela çek kartlarında 2 adet devir çeki kaydı yapın)
  2. Sonra dışarı veri aktardan devir çeklerini dışarı aktarın.
  3. Aktarım sonucu oluşan XML dosyasının bir kopyasını alın.
  4. XML dosyasını bu yazılım ile açın. XML dosyasını farklı modlarda gösterebiliyor. Seçenekler Text-Grid-Schema/WSDL-Authentic-Browser. Bunlardan Grid'i seçiyoruz.
  5. Gridi açınca eğer ana sayfada bir şey görünmüyorsa sol üstteki aşağı oklardan alanları açın.
  6. Kaydettiğiniz devir çekleri tablo şeklinde karşınıza çıkacak.
  7. Kayıt olan mesela birinci satırı işaretleyip sağ mouse menüsünden "Copy as Structured Text" olarak kopyalayın.
  8. Boş bir Excel tablosu açın ve yapıştırın az önce kopyaladığımız verileri.
  9. İstediğiniz gibi kayıtlarınızı tabloya girin. Kaç satır kayıt olduğuna bakın.
 10. XML programına geri dönün, ve Grid görünümünde açık olan tabloda son satıra gelip satır başlığına tıklayıp satırı seçin ve Ctrl E tuşları ile yapıştıracağınız kayıt kadar satır açın.
 11. Sonra, mesela A1 hücresine gelip excel tablosundan kopyaladığınız verileri yapıştırın.
 12. Sonda boş satır varsa silin ve XML dosyasını kaydedin.
 13. Hem değiştirdiğiniz XML dosyasını hem de orjinal kopyasını WordPad ile açın.
 14. XML yazılımı ile değişiklikleri yapınca ilk birkaç satırı değiştiriyor.
 15. Bunları orjinalinden kopyala/yapıştır yapın ve kaydedin.
 16. Logo içerisinden içeri veri aldan XML dosyasını içeri alın.

Bu adımları takip ettim ve bütün devir çeklerimi başarılı bir şekilde içeri aktardım.

Yalnız şunu bilmenizi isterim, yaptığım bu işin daha kolay yolu var mıydı bilmiyorum, ama benim ulaştığım sonuç bu. Logo ve veritabanları konusunda uzman değilim. Dolayısıyla böyle bir işlem yapmadan mutlaka yedeğinizi alın ve hatta burada üstadlarımızdan bir olur alırsak daha da iyi olur.

Yukarıda saydığım işlemleri yaparken dikkat etmenizi tavsiye edeceğim hususlar:

 * İlk maddede bahsettiğim en az 2 kaydı oluşturmayınca XML yazılımında Grid seçeneğinde tablo görünümü gelmiyor.
 * İlk adımda kayıtları yaparken mesela girdiğiniz kartta kullanacağınız tüm alanlara örnek yazılar yazın. Mesela açıklama alanına bir şey yazmadıkça XML şablonunda da çıkmıyor. En azından benim yaptığım denemelerde böyle oldu.
 * Veri uzunluğunu test edin derim her hücre için.
 * Devir çeklerinde kuruş haneli kayıtların meblağları aktarılamadı. Birkaç kayıt olduğu için elde düzelttim. Belki bölgesel ayarlar ile düzelebilir.


Programı fazla kurcalama imkanım olmadı. Hatta sadece devir çeklerinde kullandım. Ama bana saatler kazandırdı. O yüzden sizinle paylaşmak istedim.

Ve eğer varsa bu işin daha hızlı ve kolay yolu, paylaşırsanız çok sevinirim.

Programın bilgisini isteyenler lütfen mesaj atsınlar.

Kendinize iyi bakın.

[lpakir]

Merhabalar

Programı gönderebilirseniz sevinirim.

lpakir@yahoo.com

[GULECKIM]

Merhabalar,
Gerçekten,,, En azından programın adını zikretseydiniz bir işe yarayabilirdi..

[membus]

Merhaba GULECKIM,

Yazdığım mesajın sonunda, bu yazılımla ilgilenenlerin bana mesaj atmasını rica etmiştim.

Bilginize.

[deneyim]

ben aynı programı 2007 de yazmıştım, excel de sadece stok adetlerini devir olarak aktarıyor,

[membus]

aynı programı yazmıştım derken, benzer bir program hakkında bilgi mi vermiştiniz?

Excel'de sadece stok adetlerini devir olarak aktaran sizin yazdığınız program mı?

Bir yanlış anlama yoktur umarım, bu konuda bahsettiğim programı ben yazmadım. Programcı olmadığım gibi sql bilgim de çok kısıtlı. Bu yüzden benim gibi acemi olanların hızlı yoldan işlemlerini aktarabilmeleri yardımcı olabilir düşüncesiyle bahsetmiştim bu yazılımdan.

Yazılımın ne olduğu bilgisini öğrenmek isteyenlerin ise özel mesaj yollamalarını rica etmiştim.

[deneyim]

şöyle bi düzeltme yapayım, excel de yazdığım makrodur, isterseniz göndereyim örnek, olarak buraya, örnek isteyen warsa, gönderebilirim mail atsın bana , ozkanmalhatun@gmail.com veya bilgi@ereglibilisim.com, logo stok devri için mükemmel oldu benim için sıfır hata,

Sub yedekal()
'ChDir "c:\stok\yedek"
'MkDir Day(Date) & Month(Date) & Year(Date) & "-" & Hour(Time) & Minute(Time)

Range("a65000").End(xlUp).Select


satir = ActiveCell.Row


klasör = Day(Date) & Month(Date) & Year(Date) & "-" & Hour(Time) & Minute(Time)
dosya = InputBox("Ad giriniz", "Ad Giriniz")

Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\" & dosya & ".xml", True)
   
a.WriteLine ("  <?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-9" & Chr(34) & "?> ")
a.WriteLine ("  <MATERIAL_SLIPS> ")
a.WriteLine ("    <SLIP DBOP=" & Chr(34) & "INS" & Chr(34) & "> ")
   
   

 '------------------------ xml bölhgesi başladı
   
'a.WriteLine ("    <INVOICE DBOP=" & Chr(34) & "INS" & Chr(34) & "> ")
a.WriteLine ("         <INTERNAL_REFERENCE>843</INTERNAL_REFERENCE>  ")
a.WriteLine ("          <GROUP>3</GROUP>  ")
a.WriteLine ("      <TYPE>14</TYPE>  ")

a.WriteLine ("      <NUMBER>dev00018</NUMBER>   ")

a.WriteLine ("       <DATE>" & "01.01.2009" & "</DATE> ")
a.WriteLine ("          <TRANSACTIONS> ")

For i = 1 To satir

a.WriteLine ("          <TRANSACTION> ")
a.WriteLine ("     <ITEM_CODE>" & Cells(i, 2) & "</ITEM_CODE>  ") ' MALZEME KODU  satırı
a.WriteLine ("           <LINE_TYPE>0</LINE_TYPE> ") ' indirim satırı
a.WriteLine ("   <QUANTITY>" & Cells(i, 5) & "</QUANTITY>  ") ' ADET satırı
a.WriteLine ("   <UNIT_CODE>" & Cells(i, 4) & "</UNIT_CODE>  ") ' BİRİM satırı
a.WriteLine ("   <UNIT_CONV1>1</UNIT_CONV1> ") ' indirim satırı
a.WriteLine ("   <UNIT_CONV2>1</UNIT_CONV2>  ") ' indirim satırı
a.WriteLine ("          </TRANSACTION> ")
    Next i
a.WriteLine ("          </TRANSACTIONS> ")
a.WriteLine ("          </SLIP> ")

a.WriteLine ("        </MATERIAL_SLIPS> ")
 
    '------------------------ xml bölhgesi bitti
   

   

'Dim RetVal
'RetVal = Shell("C:\stok\yedek.bat", 1)
'RetVal.Close


End Sub

[membus]

makro paylaşımınız için teşekkür ederim. yalnız sizden ricam, bu makroyu nasıl kullanacağımızı da kısaca özetlemeniz.

daha önce excelde hiç makro kullanmadım çünkü.

yalnız ben hala önceki mesajınızı çözemedim

[cevdet27]

merhabalar

arkadaşlar aynı işi aşağıdaki program yapıyor olabilir...
inceleyin derim... kolay gelsin..

http://www.altova.com/download/xmlspy/xml_editor_enterprise.html

[membus]

Merhabalar,

Benim bahsettiğim program da buydu

Çok aramıştım, ama bu özelliği sadece bu programda bulabilmiştim.

[Navigator- Hbv Software]

Merhabalar,

Benim bahsettiğim program da buydu

Çok aramıştım, ama bu özelliği sadece bu programda bulabilmiştim.

Üstad burada herkes bilgi paylaşırken açık oluyor.

Sen arkası yarın gibi bişey yapmışsın