Làm cách nào để bạn xuất dữ liệu Excel để xem từ điện thoại di động hoặc thiết bị di động?
Sau đây là ví dụ cơ bản về việc sử dụng macro để xuất một cột từ bảng tính Excel sang tệp Wml (Ngôn ngữ đánh dấu không dây), tệp này có thể được tải lên máy chủ của bạn và được truy cập từ điện thoại di động.
Thử nghiệm: Tôi có một danh sách trong cột A của Sheet1 trong Excel với danh sách theo dõi từ CD: Perfect Circle - Mer De Noms. Đầu tiên, tôi muốn Xuất dữ liệu từ Excel ở định dạng Wml, thứ hai, tải lên máy chủ của tôi và cuối cùng xem danh sách theo dõi từ trình duyệt trên điện thoại di động của tôi. Biểu diễn đồ họa:
Để thực hiện điều này, tôi đã sử dụng macro VBA và Wml. Để có hiểu biết cơ bản về Wml, tôi giới thiệu cho bạn một hướng dẫn khác từ w3schools.
Bạn có thể xem kết quả cuối cùng của thử nghiệm Excel to Wap của tôi tại địa chỉ sau:
| 1 | www.automateexcel.com/pl/wap1.wml |
và có thể làm như vậy trong trình duyệt trên thiết bị di động của bạn, sao chép và dán địa chỉ vào trình giả lập wap hoặc bằng cách xem hình ảnh rất mờ này (thời gian dành cho máy ảnh kỹ thuật số mới!).
Hãy tự mình thử
1. Sao chép mã sau vào Mô-đun trong Excel (trợ giúp?)
2. Đặt một số văn bản trong Cột A của Trang tính 1 và Cứu Workbook của bạn
3. Chạy Macro
4. Tệp Wml sẽ được tạo trong cùng thư mục với sổ làm việc bạn đã mở.
5. Tải tệp Wml lên máy chủ của bạn và xem trên điện thoại di động.
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 | WAP phụ ()Dim WapTitle As StringDim WapName thành chuỗiDim DocType As StringDim Counter As IntegerDocType = ""'vị trí để ghi tệpWapName = ThisWorkbook.Path & "/wap1.wml"'Hủy tệp nếu nó đã tồn tạiNếu Len (Dir (WapName))> 0 ThìGiết WapNameKết thúc nếu'lấy tiêu đề wapWapTitle = InputBox ("Tiêu đề", "MyInputTitle", _"Nhập tiêu đề của trang web Wap của bạn")'thoát ra nếu không có tiêu đề wapIf WapTitle = "Nhập tiêu đề trang web Wap của bạn" _Hoặc WapTitle = "" Sau đóMsgBox "Xin lỗi bạn cần một chức danh - Bỏ ngay bây giờ"Thoát SubKết thúc nếu'mở sổ làm việc và viết thông tin tiêu đề wmlMở ThisWorkbook.Path & "wap1.wml" để thêm vào là # 1In # 1, "<? Xml version =" "1.0" "?>"In # 1, DocTypeIn # 1, ""In # 1, ""In # 1, _"" "& WapTitle &" ""> "In # 1, ""In # 1, "
"'lặp qua sheet1, viết nội dungĐối với Bộ đếm = 1 Đến ActiveSheet.UsedRange.Rows.CountNếu không phải là IsEmpty (Sheet1.Cells (Counter, 1)) ThìIn # 1, Sheet1.Cells (Bộ đếm, 1) & " |
Tín dụng: Mã "Ghi vào tệp văn bản" là một dẫn xuất của người dùng nhật ký của J-walk.
Kết luận: Sau phần giới thiệu ngắn của tôi về Wml, nó cũng có vẻ khả thi khi tạo nhiều trang từ dữ liệu và tạo menu các liên kết cho nhiều bộ dữ liệu. Tôi cũng muốn nghiên cứu một ứng dụng để trình bày cho người dùng cách tìm kiếm một tập dữ liệu lớn được xuất từ dữ liệu Excel.
Bất kỳ ý kiến hoặc ý tưởng nào về chủ đề xuất Excel sang Wml, các cách sử dụng cụ thể có thể có hoặc suy nghĩ khác?
