Xin giúp đỡ về Quản lý công văn. Có file.xls đính kèm!

[KennyPham]

Xin kính chào BQT và các thành viên diễn đàn giaiphapexcel!Tôicó vướng mắc cần giúp đỡ liên quan đến vấn đề Quản lý công văn (có file đínhkèm), cụ thể như sau:
Tôimuốn file “Phan mem theo doi cong van den cua Cuc Thue.xls” tự động cập nhật dữ liệu từ file “CrystalReportView1.xls” với các tiêu chí các Cột trong excel của CrystalReportView1 sang các Cột của file Phan mem theo doi cong van den cua Cuc Thue như sau: (FileCrystalReportView1 mình kết xuất từ trên webservices của Đơn vị hàng ngày, nên khi tự động cập nhật xong mình xoá file này đi, ngày hôm sau mình lại kết xuất và lưu vào thư mục có đường dẫn cố định nào đó như C:\QuanLyCongVan\CrystalReportView1.xls)
1. Cột STT
2. Cột Số ký hiệu
3. Cột Ngày Công văn
4. Cột Nơi gửi
5. Cột Trích yếu
Xin chân thành cảm ơn sự quan tâm và giúp đỡ của BQT cũngnhư các thành viên của diễn đàn!

 

[Lê Duy Thương]

xin kính chào bqt và các thành viên diễn đàn giaiphapexcel!tôicó vướng mắc cần giúp đỡ liên quan đến vấn đề quản lý công văn (có file đínhkèm), cụ thể như sau:
Tôimuốn file “phan mem theo doi cong van den cua cuc thue.xls” tự động cập nhật dữ liệu từ file “crystalreportview1.xls” với các tiêu chí các cột trong excel của crystalreportview1 sang các cột của file phan mem theo doi cong van den cua cuc thue như sau: (filecrystalreportview1 mình kết xuất từ trên webservices của đơn vị hàng ngày, nên khi tự động cập nhật xong mình xoá file này đi, ngày hôm sau mình lại kết xuất và lưu vào thư mục có đường dẫn cố định nào đó như c:\quanlycongvan\crystalreportview1.xls)
1. Cột stt
2. Cột số ký hiệu
3. Cột ngày công văn
4. Cột nơi gửi
5. Cột trích yếu
xin chân thành cảm ơn sự quan tâm và giúp đỡ của bqt cũngnhư các thành viên của diễn đàn!

thông thường cái này tôi chỉ làm bằng tay. Nhưng tôi cũng rec. được đoạn code làm biếng. Bạn giải nén vào ở d rồi chạy thửnhé

 

[KennyPham]

Cảm ơn bạn Lê Duy Thương giúp đỡ, nhưng file khi run macro thì báo lỗi. Mình gửi bạn file chụp màn hình báo lỗi, mong bạn fixed cho chuan giúp mình nhé. Cảm ơn bạn nhiều! Mong sớm nhận được trả lời của bạn!

 

[Lê Duy Thương]

Cảm ơn bạn Lê Duy Thương giúp đỡ, nhưng file khi run macro thì báo lỗi. Mình gửi bạn file chụp màn hình báo lỗi, mong bạn fixed cho chuan giúp mình nhé. Cảm ơn bạn nhiều! Mong sớm nhận được trả lời của bạn!

hình như bạn dùng excel 2003. bạn dùng excel2007 trở lên nhé

 

[Lê Duy Thương]

Cảm ơn bạn Lê Duy Thương giúp đỡ, nhưng file khi run macro thì báo lỗi. Mình gửi bạn file chụp màn hình báo lỗi, mong bạn fixed cho chuan giúp mình nhé. Cảm ơn bạn nhiều! Mong sớm nhận được trả lời của bạn!

chép đè đoạn macro này thử xem sao

Sub lambieng()
Workbooks.Open Filename:="D:\THEODOICV\CrystalReportViewer1.xls", UpdateLinks:=0
    Cells.Copy
    Windows("Phan mem theo doi cong van den cua Cuc Thue.xls").Activate
    Sheet2.Range("A1").PasteSpecial (12)
    Sheet2.Range("A:A,C:C,E:E,G:G,H:H,J:L,N:R").Delete (2)
    Sheet2.[$A6:$f65000].Sort Sheet2.[a6], 1
    Sheet2.Range("A6:F" & Sheet2.[a65000].End(3).Row - 1).Copy
    Sheet1.Range("A65536").End(3).Offset(1, 0).PasteSpecial (12)
    Sheet2.Cells.Clear
    Application.CutCopyMode = False
   Windows("CrystalReportViewer1.xls").Activate
   ActiveWorkbook.Close
End Sub