• Trang chủ click to expand contents 

  • Lấy dữ liệu từ File excel sau khi đóng workbook

  • Lấy dữ liệu từ File excel sau khi đóng workbook

    tuanvr > 12-08-22, 11:54 PM

    Chào mọi người!
    Xin mọi người tư vấn hướng xử lý vấn đề của mình với nhé, vấn đề như sau:
    Mình thiết kế 1 form trên đó có các controls và 1 button có chức năng mở 1 file excel mẫu (sTemp) và truyền các dữ liệu trên điều khiển vào các range của file excel này, sau đó vì lý do riêng mình muốn khi đóng file excel này lại thì truyền ngược lại 1 số dữ liệu ở các range vào các điều khiển trên form đang mở để có thể nạp vào bảng theo ý muốn (Do cần tính toán và xử lý trên file excel mẫu nên ko thể dùng access thay thế mẫu này).
    Đoạn code mở file excel mẫu và lấy thông tin từ các controls của form đang mở vào excel mình đã làm được( Nhờ sự trợ giúp của Ongke, nhân đây xin cảm ơn a Bảo nhiều ak), code như sau:
        
    Mã:
    Dim appExcel As Object

    Dim xlsx As Object
    Dim sFileName As String
    Dim sTemp As String
    Dim xlsPath As String String
    Dim s$

    stemp=CurrentProject.path & "\TempHS\"TPTB.xlsx"
    xlsPath = sTemp
      Set appExcel = CreateObject("Excel.Application")
      Dim xlBook As Object
          On Error Resume Next
            Set xlBook = appExcel.Workbooks.Open(xlsPath)
            Set xlsx = xlBook.Worksheets("TP")
                With xlsx
                    .Range("D6").Value = Me.txtChuPT
                    .Range("Y6").Value = Me.txtDC
                    .Range("G5").Value = Me.txtTenTau
                    .Range("AJ5").Value = Me.cboKH
                    .Range("Z9").Value = Me.txtDT
                    .Range("AC65").Value = Day(Now())
                    .Range("AH65").Value = Month(Now())
                    If Me.otpCPK = True Then
                    .Range("AG61").Value = Me.txtSum.Value * 1000
                    .Range("D63").Value = Me.txtDiengiai
                    End If
                    .SaveAs fileName:=spath & sFileName
                End With


            s = """" & spath & sFileName & """"
            Shell "C:\windows\explorer.exe " & s, 1
        appExcel.Quit
        Set appExcel = Nothing
    End Sub

     Vấn đề còn lại là lấy 1 số dữ liệu từ file excel này (sau khi người dùng nhập và tính toán trên excel) vào các điều khiển còn thiếu thông tin trên form mình chưa xử lý được. Xin mọi người giúp đỡ và xin cảm ơn
    Link
    https://drive.google.com/file/d/19THMNvG...sp=sharing