lập trình để update tư động số liệu

[CACH]

hi mọi người,

vì công ty mình có địa điểm làm việc ở 2 nơi, 1 ở HCM, 1 ở Hà Nội.

Do đó, cuối ngày mình phải import data cho Hà Nội về số liệu ở HCM.

thế nhưng data nhiều quá, một ngày k làm hết, nên mình muốn hỏi có cách lập trình nào để tự động update dữ liệu ở HCM ra HN không?

Ai biết xin chỉ cho mình với!!!! Thanks a lot nha.

Công ty mình lưu dữ liệu trên Excel bạn ạ.

To CACH: Lần sau bạn chịu khó viết bài tiếng Việt có dấu nhé. Mình đã sửa hộ bạn rồi vì thấy câu trả lời này quan trọng có liên quan tới bài trước. Nếu ko mình đã xóa rồi.

 

[kietbui]

tôi cũng gặp trường hợp tương tư , file dữ liệu excel các xí nghiệp gởi về tôi tổng hợp gởi lại đều bằng email, các bạn hãy chỉ cách nào các xí nghiệp có thể update file tổng hợp hình thức giống như update trong các chương trình diệt virus

 

[hai2hai]

Đầu tiên, các bạn phải chuẩn bị việc tổng hợp từ các file ở xa lên file trên tổng một cách automatically chứ ko phải copy & paste.

Ví dụ:

TongHop.xls
Dvi1_Data.xls
Dvi2_Data.xls
v.v...

Từ trong file TongHop.xls đó, khi mở ra, bạn phải viết sao cho nó có thể nhận thấy có file dữ liệu mới từ đơn vị và lập tức tự động cập nhật nội dung file đó vào file TongHop.xls

Sau khi xong vấn đề đó rồi, bạn tiếp tục tính tiếp. Vậy, khi những files Dvi_n_Data.xls không phải nằm trên local thì tính sao đây?
- Phương án 1: Gửi mail, USB, v.v... quá tầm thường, ko phải ý các bạn đang nói ở trên.
- Phương án 2: Từ đơn vị, mọi người upload file đó lên 1 host nào đó (ftp hoặc http)
Ở phương án này, bạn lại bắt đầu care đến chuyện làm sao đọc được thông tin trên host đó để biết đâu là file mới, đâu là file cũ đã load về rồi. Nếu là file mới thì cho phép tự động download file đó về và tiến hành tự động cập nhật ở bước đầu.

Nói tóm lại, đây là 1 bài toán ... theo mình nghĩ vẫn có thể làm = Excel được. Tuy nhiên tương đối phức tạp chứ ko đơn giản. Mình ko quen làm Excel nên chỉ nói cách suy nghĩ, cách đặt vấn đề để các bạn giải quyết tiếp.

hic, tự nhiên hôm nay thích trả lời thế... Không biết mai còn tâm trạng này nữa ko?

 

[CACH]

Từ trong file TongHop.xls đó, khi mở ra, bạn phải viết sao cho nó có thể nhận thấy có file dữ liệu mới từ đơn vị và lập tức tự động cập nhật nội dung file đó vào file TongHop.xls
hiz hiz, bạn hai2hai ui, làm sao làm được điều này giờ????
và nếu làm theo cách bạn chỉ thì cuối cùng mình có làm được đúng yêu cầu của mình không? mình vẫn chưa hiểu cách làm cụ thể sẽ ra sao?? mà công việc nhiều quá, ngày nào cũng update quá trời dữ liệu...chắc chết quá!!!!!!!!!!!!!!1

 

[Mr Okebab]

Phải căn cứ vào tên của File ( VD : Data20070630) hoặc căn cứ vào ngày Modify File đó . . .

Mình nghĩ là như vậy.

Thân!

 

[hiepton2002]

Sub File_On_Website()
Application.ScreenUpdating = False
On Error Resume Next
'Call the macro GetRange
GetRange "[URL="http://www.rondebruin.nl/files"]http://www.rondebruin.nl/files[/URL]", "test1.xls", "Sheet1", "A1:B100", Sheets("Sheet1").Range("A1")
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
'
Sub File_In_Network_Folder()
Application.ScreenUpdating = False
On Error Resume Next
'Call the macro GetRange
GetRange "[URL="file://\\Jdb\shareddocs"]\\Jdb\shareddocs[/URL]", "test2.xls", "Sheet1", "A1:B100", Sheets("Sheet1").Range("A1")
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
'
Sub File_In_Local_Folder()
Application.ScreenUpdating = False
On Error Resume Next
'Call the macro GetRange
GetRange "C:\Data", "test3.xls", "Sheet1", "A1:B100", Sheets("Sheet1").Range("A1")
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
'
'Main macro
Sub GetRange(FilePath As String, FileName As String, SheetName As String, SourceRange As String, DestRange As Range)
Dim Start
'Go to the destination range
Application.Goto DestRange
'Resize the DestRange to the same size as the SourceRange
Set DestRange = DestRange.Resize(Range(SourceRange).Rows.Count, Range(SourceRange).Columns.Count)
'Add formula links to the closed file
With DestRange
    .FormulaArray = "='" & FilePath & "/[" & FileName & "]" & SheetName & "'!" & SourceRange
    'Wait Start = Timer
    Do While Timer < Start + 2
        DoEvents
    Loop
    'Make values from the formulas
    .Copy
    .PasteSpecial xlPasteValues
    .Cells(1).Select
    Application.CutCopyMode = False
End With
End Sub

---------------------------

 

[lethanhnhan]

hi mọi người,
vì công ty mình có địa điểm làm việc ở 2 nơi, 1 ở HCM, 1 ở Hà Nội.
Do đó, cuối ngày mình phải import data cho Hà Nội về số liệu ở HCM.
thế nhưng data nhiều quá, một ngày k làm hết, nên mình muốn hỏi có cách lập trình nào để tự động update dữ liệu ở HCM ra HN không?
Ai biết xin chỉ cho mình với!!!! Thanks a lot nha.

Theo tôi bạn có thể làm như thế này.
_Trung tâm ở HN export dữ liệu ra một file và gởi file này cho trung tâm ở TP.HCM.
_Trung tâm ở TP.HCM dùng công cụ để import vào.

Giống như hai2hai nói Excel có thể làm được điều này.

Lê Thanh Nhân

 

[CACH]

Trước hết xin cảm ơn bạn Hiepton2002 và bạn Lê Thanh Nhàn nha.

Mình mới vừa ghé thăm hôm nay và thấy đoạn Code của Hiepton2002, để mình về nhà thử và sẽ trả lởi kết quả sau hen.

còn đối với ý của bạn Nhàn thì mìh nghĩ mình biết làm nhưng mục đích là mình không muốn làm các động tác import hàng ngày. Mà cứ mỗi buổi sáng vào công ty, mìh chỉ cần mở file dữ liệu của mìh ra và nhấn nút "Refresh" là mìh có thể có tất cả dữ liệu ở HN rồi. Đó mới là update dữ liệu tự động. Vì theo mìh biết ng ta lập trình là cứ đúng 12:00pm hàng ngày là tự động update dữ liệu từ HN vào HCM.

Nhưng, anyway củm ơn các bạn nhiều lắm, mình về nhà và làm theo bạn Hiepton2002 thử nha. Mìh sẽ báo kq sơm thôi.

Bye bye

 

[levanduyet]

còn đối với ý của bạn Nhàn thì mìh nghĩ mình biết làm nhưng mục đích là mình không muốn làm các động tác import hàng ngày. Mà cứ mỗi buổi sáng vào công ty, mìh chỉ cần mở file dữ liệu của mìh ra và nhấn nút "Refresh" là mìh có thể có tất cả dữ liệu ở HN rồi. Đó mới là update dữ liệu tự động. Vì theo mìh biết ng ta lập trình là cứ đúng 12:00pm hàng ngày là tự động update dữ liệu từ HN vào HCM.

Chào bạn CACH,
Liệu bạn có mâu thuẩn không? Bạn không muốn làm các động tác Import, nhưng chỉ muốn nhấn nút Refresh? Hai động tác này có gì khác nhau đâu nhỉ !

Lê Văn Duyệt

 

[xitrum69]

nút Refresh chắc đẹp hơn nút Update hhihi J/K

 

[nmh_phocu]

Trước hết xin cảm ơn bạn Hiepton2002 và bạn Lê Thanh Nhàn nha.

Mình mới vừa ghé thăm hôm nay và thấy đoạn Code của Hiepton2002, để mình về nhà thử và sẽ trả lởi kết quả sau hen.

còn đối với ý của bạn Nhàn thì mìh nghĩ mình biết làm nhưng mục đích là mình không muốn làm các động tác import hàng ngày. Mà cứ mỗi buổi sáng vào công ty, mìh chỉ cần mở file dữ liệu của mìh ra và nhấn nút "Refresh" là mìh có thể có tất cả dữ liệu ở HN rồi. Đó mới là update dữ liệu tự động. Vì theo mìh biết ng ta lập trình là cứ đúng 12:00pm hàng ngày là tự động update dữ liệu từ HN vào HCM.

Nhưng, anyway củm ơn các bạn nhiều lắm, mình về nhà và làm theo bạn Hiepton2002 thử nha. Mìh sẽ báo kq sơm thôi.

Bye bye

Bạn Cach ơi ba năm rồi mà chưa thấy bạn báo kết quả, anh em vẫn chờ