Kết nối dữ liệu (1 người xem)

  • Thread starter Thread starter Son2006
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Son2006

Thành viên mới
Tham gia
30/12/06
Bài viết
37
Được thích
37
Tôi có vấn đề như sau:
Trong file DuLieu.xls, tôi có các dữ liệu gốc trong sheet DuLieu, Xử lú dữ liệu trong sheet XuLy,kết quả trong sheet KetQua. Dữ liêu đã xử lý tuỳ thuộc vào các dữ liêu mà tôi cần dưa vào trong các bài toán khác nhau.
Trong 1 file PhatSinh.xls, tôi cần đưa 1 vài thông số sang file DuLieu để file này tính toán(VD thông số x=4; x=5), sau đó tôi lấy dữ liệu đã xử lý từ file này ra bỏ vào file PhatSinh.xls
Để làm điều này, tôi viết 1 function; function sẽ chuyển dữ liệu vào Sheet KetQua trong file DuLieu.xls, sau đó lấy dữ liệu đã xử lý ra.
Để không phải copy function vào nhiều file PhatSinh1.xls, PhatSinh2.xls, PhatSinh3.xls..., tôi viết code Function đó trong file DuLieu.xls, sau đó lưu thành DuLieu.xla để cho vào addin. NHư vậy trong các file mới, tôi chỉ cần goi user defined function là có thể có kết quả.
Vấn đề xảy ra là khi cửa sổ function hiện lên, cho ra kết quả rõ ràng, nhưng tại sao khi hiển thị vào excel lại cho ra #VALUE; và có khi lại chẳng ra kết quả trong bảng Function nữa.
Nhờ các bạn giúp đỡ
Bổ sung:
Tôi phát hiện ra rằng đoạn code chuyển dữ liệu vào file DuLieu.xls thường xuyên xảy ra lỗi nhưng không hiểu sai ở đâu.

PHP:
Public Function F_Phase(P_TuyetDoi, T_TuyetDoi)
    Dim thongbao As String
    
' Nhap du lieu vao file DuLieu.xls
    thongbao = ""
    Workbooks("DuLieu.xls").Worksheets("KetQua").Range("C2") = T_TuyetDoi
        thongbao = Error(Err.Number)
        MsgBox ("Loi1: " & thongbao)
        thongbao = ""
    Workbooks("DuLieu.xls").Worksheets("KetQua").Range("D2") = P_TuyetDoi
        thongbao = Error(Err.Number)
        MsgBox ("Loi2: " & thongbao)
        thongbao = ""
        
 ' Lay du lieu tu file DuLieu.xls
        
    F_Phase = Workbooks("DuLieu.xls").Worksheets("KetQua").Range("C5").Value
        thongbao = Error(Err.Number)
        MsgBox ("Loi3: " & thongbao)
End Function
PHP:
Public Sub ThuNghiem1()
    Dim Ph As Single, P As Single, T As Single
    P = 10
    T = 2
    Ph = F_Phase(P, T)
End Sub
:((
 

File đính kèm

Lần chỉnh sửa cuối:
Buồn ghê nhỉ. Cả tuần trôi qua mà koo có ai trả lời. Xin hỏi có giải pháp nào giải quyết vấn đề nhập dữ liệu vào 1 file xls từ 1 file xls khác không?
 
Web KT

Bài viết mới nhất

Back
Top Bottom