Bir cep telefonundan veya mobil cihazdan görüntülenmek üzere Excel verilerini nasıl dışa aktarırsınız?
Aşağıda, bir Excel elektronik tablosundaki bir sütunu sunucunuza yüklenebilen ve bir cep telefonundan erişilebilen bir Wml(Kablosuz İşaretleme Dili) dosyasına aktarmak için bir makro kullanmanın temel bir örneği verilmiştir.
Deney: Excel'de Sayfa1'in A sütununda CD'deki parça listesiyle bir listem var: Perfect Circle - Mer De Noms. Önce verileri Excel'den Wml formatında dışa aktarmak, ikincisi sunucuma yüklemek ve son olarak cep telefonumun tarayıcısından parça listesini görüntülemek istiyorum. Bir grafik gösterimi:
Bunu başarmak için bir VBA makrosu ve Wml kullandım. Temel bir Wml anlayışı için sizi w3schools'dan başka bir öğreticiye yönlendiriyorum.
Excel'den Wap'a denememin nihai sonucunu aşağıdaki adreste görüntüleyebilirsiniz:
| 1 | www.automateexcel.com/pl/wap1.wml |
ve bunu mobil cihazınızın tarayıcısında yapabilir, adresi kopyalayıp bir wap öykünücüsüne yapıştırabilir veya bu çok bulanık resmi görüntüleyebilirsiniz (yeni bir dijital kamera zamanı!).
Kendin dene
1. Aşağıdaki kodu Excel'deki bir Modüle kopyalayın (yardım?)
2. Sayfa 1'deki Sütun A'ya bir miktar metin yerleştirin ve Kaydetmek çalışma kitabınız
3. Makroyu Çalıştırın
4. Açtığınız çalışma kitabıyla aynı klasörde bir Wml dosyası oluşturulacaktır.
5. Wml dosyasını sunucunuza yükleyin ve cep telefonunda görüntüleyin.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | Alt WAP()Dim WapTitle As StringDize Olarak WapName DimDize Olarak DocType DimSayacı Tamsayı Olarak DimBelge Türü = ""'dosya yazılacak yerWapName = ThisWorkbook.Path & "/wap1.wml"'Dosya zaten varsa öldürLen(Dir(WapName)) > 0 iseWapName'i öldürBitir'wap başlığını alWapTitle = InputBox("Başlık", "MyInputTitle", _"Wap Sitenizin Başlığını Girin")'wap başlığı yoksa çıkWapTitle = "Wap Sitenizin Başlığını Girin" _Veya WapTitle = "" SonraMsgBox "Üzgünüz Bir Başlığa İhtiyacınız Var - Şimdi Çıkılıyor"Alt ÇıkışBitir'çalışma kitabını aç ve wml başlık bilgisi yaz# 1 Olarak Eklemek İçin ThisWorkbook.Path & "wap1.wml" dosyasını açın#1 yazdır, "<?xml version=""1.0""?>"Baskı #1, Belge Türü#1, "" yazdır#1, "" yazdır#1, _ yazdır""" & WapTitle & """>"#1, "" yazdır1 numarayı yazdır, "
"'sayfa1'de dolaşın, içeriği yazınSayaç için = 1'den ActiveSheet.UsedRange.Rows.Count'aEğer Boş Değilse(Sayfa1.Hücreler(Sayaç, 1)) SonraPrint #1, Sheet1.Cells(Sayaç, 1) & " |
Kredi: "Metin dosyasına yaz" kodu, J-walk'ın günlük kullanıcılarının bir türevidir.
Sonuç: Wml'ye kısa girişimden sonra, verilerden birden çok sayfa oluşturmak ve birden çok veri kümesi için bir bağlantı menüsü oluşturmak da mümkün görünüyor. Ayrıca, kullanıcıya Excel verilerinden dışa aktarılan büyük bir veri kümesini aramanın bir yolunu sunmak için bir uygulama araştırmak istiyorum.
Excel'i Wml'e aktarma konusunda herhangi bir görüş veya fikir, özellikle olası kullanımlar veya diğer düşünceler?
