Đẩy dữ liệu từ Excel lên PowerPoint

[hadoan-pap]

Kính gửi mọi người.

Em có bài toàn rất mong mọi ng giúp đỡ như bên dưới ạ.

E muốn đẩy dữ lieu từ file excel lên file pptx như đính kèm ạ.

Trên file excel thực tế nó có khoảng vài nghìn dòng , nhưng file e ví dụ ở đây chỉ vài dòng thôi ạ..... e muốn tham chiếu các giá trị tại cột A " Code " trong file excel tương ứng với các TextBox trong file pptx có " Code " như nhau thì sẽ lấy giá trị ô cột B & C từ file excel và gán lên các TextBox tương ứng trên file pptx sau khi ấn 1 nút button trên file pptx.

Rất mong mọi người giúp ạ.

E xin cảm ơn!

 

[giaiphap]

Kính gửi mọi người.

Em có bài toàn rất mong mọi ng giúp đỡ như bên dưới ạ.

E muốn đẩy dữ lieu từ file excel lên file pptx như đính kèm ạ.

Trên file excel thực tế nó có khoảng vài nghìn dòng , nhưng file e ví dụ ở đây chỉ vài dòng thôi ạ..... e muốn tham chiếu các giá trị tại cột A " Code " trong file excel tương ứng với các TextBox trong file pptx có " Code " như nhau thì sẽ lấy giá trị ô cột B & C từ file excel và gán lên các TextBox tương ứng trên file pptx sau khi ấn 1 nút button trên file pptx.

Rất mong mọi người giúp ạ.

E xin cảm ơn!

Bạn thao khảo bài này có code lấy dữ liệu từ Excel và đưa vào PowerPoint nè.
https://giaiphapexcel.com/diendan/t...rắc-nghiệm-với-powerpoint.136937/#post-875076

 

[hadoan-pap]

Bạn thao khảo bài này có code lấy dữ liệu từ Excel và đưa vào PowerPoint nè.
https://giaiphapexcel.com/diendan/threads/chia-sẻ-file-tạo-trắc-nghiệm-với-powerpoint.136937/#post-875076

Gửi anh!
Nếu dc rất mong a làm giúp em bài toán nhỏ e có gửi để e học ạ.... Ví dụ của anh nhìn code dài quá e k cô đọng để đọc hiểu dc ạ.

E cảm ơn anh!

 

[giaiphap]

Gửi anh!
Nếu dc rất mong a làm giúp em bài toán nhỏ e có gửi để e học ạ.... Ví dụ của anh nhìn code dài quá e k cô đọng để đọc hiểu dc ạ.

E cảm ơn anh!

Bạn mô tả chi tiết vấn đề cần thực hiện để mình xem thử.
Còn bạn có khả năng tự nghiên cứu thì có thể tham khảo code sau:

Sub GetData()
    Dim OWB As Object, Ws As Object, xlApp As Object, Arr()
    Dim i As Integer, k As Integer, s As String
        Set xlApp = CreateObject("Excel.Application")
        'Mo file excel Code.xls
        Set OWB = xlApp.Application.Workbooks.Open(ActivePresentation.Path & "\Code.xlsx")
        'Dat Ws la sheet 1 trong file Code.xlsx
        Set Ws = OWB.Worksheets(1)
      
        ReDim Arr(1 To 4, 1 To 3)
        Arr = Ws.UsedRange.Value
        'Arr = Ws.Range("A1:C4").Value   'Lấ dữ liệu trong File Code.xlsx vào mảng Arr
        OWB.Close False     'Đóng file Code.xlsx lạ vàkhông lưu
        Set xlApp = Nothing 'Giả phóng bộ nhớ
        Set OWB = Nothing   'Giả phóng bộ nhớ
        Set Ws = Nothing   'Giả phóng bộ nhớ
        For i = 1 To 4      'Duyệt qua từng dòng dữ liệu
            s = ""
            For k = 1 To 3  'Mỗi dòng tương ứng duyệt qua 3 cột
                If s = "" Then
                    s = Arr(i, k)
                Else
                    s = s & " - " & Arr(i, k)
                End If
            Next k
            MsgBox s      'Hiển thị kết quả để xem
        Next i
End Sub

 

[hadoan-pap]

Bạn mô tả chi tiết vấn đề cần thực hiện để mình xem thử.
Còn bạn có khả năng tự nghiên cứu thì có thể tham khảo code sau:

Sub GetData()
    Dim OWB As Object, Ws As Object, xlApp As Object, Arr()
    Dim i As Integer, k As Integer, s As String
        Set xlApp = CreateObject("Excel.Application")
        'Mo file excel Code.xls
        Set OWB = xlApp.Application.Workbooks.Open(ActivePresentation.Path & "\Code.xlsx")
        'Dat Ws la sheet 1 trong file Code.xlsx
        Set Ws = OWB.Worksheets(1)
     
        ReDim Arr(1 To 4, 1 To 3)
        Arr = Ws.UsedRange.Value
        'Arr = Ws.Range("A1:C4").Value   'Lấ dữ liệu trong File Code.xlsx vào mảng Arr
        OWB.Close False     'Đóng file Code.xlsx lạ vàkhông lưu
        Set xlApp = Nothing 'Giả phóng bộ nhớ
        Set OWB = Nothing   'Giả phóng bộ nhớ
        Set Ws = Nothing   'Giả phóng bộ nhớ
        For i = 1 To 4      'Duyệt qua từng dòng dữ liệu
            s = ""
            For k = 1 To 3  'Mỗi dòng tương ứng duyệt qua 3 cột
                If s = "" Then
                    s = Arr(i, k)
                Else
                    s = s & " - " & Arr(i, k)
                End If
            Next k
            MsgBox s      'Hiển thị kết quả để xem
        Next i
End Sub

E cảm ơn nhé!