AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé!

[Nguyễn Duy Tuân]

Đây là video hướng dẫn cách tạo DLL trên Delphi nhưng sử dụng trong VBA, Excel. Đây là phương pháp lập trình chuyên nghiệp nhưng không phải là khó. Giúp bạn bảo mật code của phần mềm tốt hơn.

Loạt video hướng dẫn lập trình Delphi cơ bản của mình tại đây:
https://www.giaiphapexcel.com/diend...-trình-delphi-cơ-bản-từ-bluesofts-net.138736/

 

[Kiều Mạnh]

Em nghĩ phải khai báo biến variant rồi gán cái giá trị cell đó vô biến variant đó.

mạnh thử hết rồi nó vẫn thế... khả năng phải khai báo lại trong Delphi sao đó cho nó nhận giá trị trên Cells

 

[Kiều Mạnh]

Các Bạn Cho Mạnh hỏi chút
1/ Khi mình truyền 1 tham Số đường dẫn File là Code như sau vào Delphi Thì nó Chạy tốt :

ExcelPath = ThisWorkbook.Path & "\Data.xlsb"

2/ Khi mình Viết cái đường dẫn mục 1 đó Lên Cells thì nó báo Lỗi Không chạy

D:\DelphiExamples\VBLibrary\Win32\Debug\Data.xlsb

2 đường dẫn trên là như nhau chỉ khác là trong Code và trên Cells
nó báo lỗi như sau ... Mong các Bạn Chỉ mình cách xài đường dẫn trên Cells với
View attachment 211596

To @thuyyeu99
Chỉ mạnh cách khai báo trong Delphi làm sao để xử lý bài này với khi truyền đường dẫn trên Cells vào Delphi

 

[thuyyeu99]

To @thuyyeu99
Chỉ mạnh cách khai báo trong Delphi làm sao để xử lý bài này với khi truyền đường dẫn trên Cells vào Delphi

TỨc là anh khai báo từ Excel truyền vào Delphi đó hả

 

[Kiều Mạnh]

TỨc là anh khai báo từ Excel truyền vào Delphi đó hả

đúng đấy ... làm sao cho Delphi nó nhận cái đường dẫn đó trên Cells

 

[thuyyeu99]

đúng đấy ... làm sao cho Delphi nó nhận cái đường dẫn đó trên Cells

trong Excell anh khai báo: ByVal ExcelPath1 As Variant
Trong Delphi anh khai bao ExcelPath: Variant
lấy string trong Delphi: VarToStr(ExcelPath)

 

[Kiều Mạnh]

trong Excell anh khai báo: ByVal ExcelPath1 As Variant
Trong Delphi anh khai bao ExcelPath: Variant
lấy string trong Delphi: VarToStr(ExcelPath)

trên VBA viết vậy đó mà ko được ... trong Delphi xài sao ???

 

[thuyyeu99]

trên VBA viết vậy đó mà ko được ... trong Delphi xài sao ???

Khi anh chuyền tham số vào Delphi anh khai bao ExcelPath: Variant
lấy string của biến ExcelPath : VarToStr(ExcelPath)

 

[Syn.nguyen]

Ai có bài toán về xử lý số liệu tự động trên excel đưa ra ví dụ mình lập trình rồi gửi code cho mà học là dễ hiểu nhất

Bài đã được tự động gộp: 1/2/19

Delphi bây giờ được Embarcadero phát triển rất mạnh, thư viện và package rất nhiều và đa dạng, các bạn chỉ cần học tốt các hàm cơ bản là được, các việc còn lại để component lo hết.

Bài đã được tự động gộp: 1/2/19

Dùng delphi có thể viết tool xử lý dữ liệu trên excel, text, pdf... Làm giảm thời gian bằng tay từ vài tiếng thậm chí cả ngày xuống còn vài phút hoặc vài giây, và làm tăng độ chính xác của số liệu.

 

[Kiều Mạnh]

To @thuyyeu99 & @Hai Lúa Miền Tây
Mạnh Tính cài cái SQL Server bản Free ... để sử dụng và học tập nghiên cứu một tẹo khi rảnh rỗi thì quậy chơi
Theo bạn bản nào nó nhẹ nhàng nhất .... cho Mạnh xin File Setup đó hay link để mạnh tải về cài coi sao ????

 

[thuyyeu99]

To @thuyyeu99 & @Hai Lúa Miền Tây
Mạnh Tính cài cái SQL Server bản Free ... để sử dụng và học tập nghiên cứu một tẹo khi rảnh rỗi thì quậy chơi
Theo bạn bản nào nó nhẹ nhàng nhất .... cho Mạnh xin File Setup đó hay link để mạnh tải về cài coi sao ????

Em thì có rành máy cái đó đâu, hiện em nhờ người khác cài bản SQL Express 2014

 

[Kiều Mạnh]

Em thì có rành máy cái đó đâu, hiện em nhờ người khác cài bản SQL Express 2014

cho mạnh xin file đó đo ... bản free mà ... nó giới hạn Database là 10G thì phải
không hiểu sao hôm cài bản 2017 vô thấy nó sao ấy hay mạnh chưa hiểu hết ... mà Check Port OK .... gở hết ra cái Port nó cũng chết theo luôn
Khó hiểu thật

Không biết có phải link sau là nó phải không

https://www.microsoft.com/en-us/download/details.aspx?id=42299
Link File
https://www.microsoft.com/en-us/download/details.aspx?id=42299

 

[thuyyeu99]

cho mạnh xin file đó đo ... bản free mà ... nó giới hạn Database là 10G thì phải
không hiểu sao hôm cài bản 2017 vô thấy nó sao ấy hay mạnh chưa hiểu hết ... mà Check Port OK .... gở hết ra cái Port nó cũng chết theo luôn
Khó hiểu thật

cái này em nhờ người ta cài, làm gì em sour, mà anh lên thiếu gì, với lại em đâu có sài nó nữa đâu, nắm được client Sever rồi sài Express mần chi. để qua tết mò cái Client sverver Excell

 

[Kiều Mạnh]

cái này em nhờ người ta cài, làm gì em sour, mà anh lên thiếu gì, với lại em đâu có sài nó nữa đâu, nắm được client Sever rồi sài Express mần chi. để qua tết mò cái Client sverver Excell

1/ Mạnh quậy cái Socket biết cách chuyển cái Query nó sang xong rồi .... xong thử mấy máy kết nối xem sao thấy nó lăn đùng ra chết luôn
Tìm hiểu thì thấy người ta nói nó không hổ trợ đa luồng ... mất hứng luôn ... mò mất gần 1 tháng mờ cả mắt

hay mình chưa biết làm cho nó thành đa luồng ta !!!???

2/ còn cái TidTCServer và TidTCPClient
Thì nó hổ trợ đa luồng mà cú pháp nó khác ... lại bắt đầu mò lại từ đầu .... thật khổ ghê

3/ Qua tết nghiên cứu cái mục 2 này .... xu hướng là người ta xài server hết đó ... mấy cái App trên điện thoại cũng Ser vờ mà he

hay đó qua tết rảnh chiến tiếp

 

[thanhthat]

Ai có bài toán về xử lý số liệu tự động trên excel đưa ra ví dụ mình lập trình rồi gửi code cho mà học là dễ hiểu nhất

Bài đã được tự động gộp: 1/2/19

Delphi bây giờ được Embarcadero phát triển rất mạnh, thư viện và package rất nhiều và đa dạng, các bạn chỉ cần học tốt các hàm cơ bản là được, các việc còn lại để component lo hết.

Bài đã được tự động gộp: 1/2/19

Dùng delphi có thể viết tool xử lý dữ liệu trên excel, text, pdf... Làm giảm thời gian bằng tay từ vài tiếng thậm chí cả ngày xuống còn vài phút hoặc vài giây, và làm tăng độ chính xác của số liệu.

Em rất khoái vụ code cho excel này nhưng mới tập tành nên chẳng biết mô tê với lại bận công việc quá, nên khi nào rảnh nhờ Anh trợ giúp em với nhé. Thanksss!

 

[thuyyeu99]

Ai có bài toán về xử lý số liệu tự động trên excel đưa ra ví dụ mình lập trình rồi gửi code cho mà học là dễ hiểu nhất

Bài đã được tự động gộp: 1/2/19

Delphi bây giờ được Embarcadero phát triển rất mạnh, thư viện và package rất nhiều và đa dạng, các bạn chỉ cần học tốt các hàm cơ bản là được, các việc còn lại để component lo hết.

Bài đã được tự động gộp: 1/2/19

Dùng delphi có thể viết tool xử lý dữ liệu trên excel, text, pdf... Làm giảm thời gian bằng tay từ vài tiếng thậm chí cả ngày xuống còn vài phút hoặc vài giây, và làm tăng độ chính xác của số liệu.

Nếu được bạn có thể nói hướng dẫn cách chia sẻ File Excel cho nhiều người dùng được không ?

 

[Kiều Mạnh]

Ai có bài toán về xử lý số liệu tự động trên excel đưa ra ví dụ mình lập trình rồi gửi code cho mà học là dễ hiểu nhất

Bài đã được tự động gộp: 1/2/19

Theo như ý tưởng bài link sau được không bạn
https://www.giaiphapexcel.com/diend...-theo-vùng-dữ-liệu-động-lấy-lên-sheet.140533/

 

[Kiều Mạnh]

Ai rảnh thử cái này xem sao
https://www.faweb.net/us/opc/sample_excel.html

 

[thuyyeu99]

Ai rảnh thử cái này xem sao
https://www.faweb.net/us/opc/sample_excel.html

Có chút ánh sáng rồi anh hihi

 

[Kiều Mạnh]

Có chút ánh sáng rồi anh hihi

Nó Nè xài Winsoc ... Có thời gian mò ra hết à ... có điều mờ mắt đó

Code Link Sau
https://codereview.stackexchange.com/questions/73348/building-an-opc-client-in-excel/73349

 

[Kiều Mạnh]

Thấy dân chúng xài Winsoc viết Server đó
Code viết trên VB6 ... To VBA nó khác nhau có 1 tẹo à
Bạn nào có hứng Mò là viết trên Excel 1 cái Server đó

Từ từ thong thả rồi mọi cái sáng như ban ngày đó

Code cho Server

Option Explicit
Dim iSockets As Integer
Dim sServerMsg As String
Dim sRequestID As String
 
Private Sub Form_Load()

    Form1.Show
    lblHostID.Caption = Socket(0).LocalHostName
    lblAddress.Caption = Socket(0).LocalIP
    Socket(0).LocalPort = 1007
    sServerMsg = "Listening to port: " & Socket(0).LocalPort
    List1.AddItem (sServerMsg)
    Socket(0).Listen
End Sub

Private Sub socket_Close(Index As Integer)
    sServerMsg = "Connection closed: " & Socket(Index).RemoteHostIP
    List1.AddItem (sServerMsg)
    Socket(Index).Close
    Unload Socket(Index)
    iSockets = iSockets - 1
    lblConnections.Caption = iSockets
   
End Sub

Private Sub socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    sServerMsg = "Connection request id " & requestID & " from " & Socket(Index).RemoteHostIP
  If Index = 0 Then
    List1.AddItem (sServerMsg)
    sRequestID = requestID
    iSockets = iSockets + 1
    lblConnections.Caption = iSockets
    Load Socket(iSockets)
    Socket(iSockets).LocalPort = 1007
    Socket(iSockets).Accept requestID
  End If

End Sub

Private Sub socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
   
   Dim sItemData As String
   Dim strData As String
   Dim strOutData As String
   Dim strConnect As String
 
       
    ' get data from client
    Socket(Index).GetData sItemData, vbString
    sServerMsg = "Received: " & sItemData & " from " & Socket(Index).RemoteHostIP & "(" & sRequestID & ")"
    List1.AddItem (sServerMsg)
 
    'strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Prices.mdb;Persist Security Info=False"
    Dim strPath As String
   
    'Change the database path in the text file
   
    Dim fso As New FileSystemObject, txtfile, _
    fil1 As File, ts As TextStream

    Set fil1 = fso.GetFile("path.txt")
    ' Read the contents of the file.
    Set ts = fil1.OpenAsTextStream(ForReading)
    strPath = ts.ReadLine
    ts.Close
    Set fso = Nothing

    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Persist Security Info=False;Data Source=" & strPath & _
      "; Mode=Read|Write"
     
    Dim rs As New ADODB.Recordset
   
    ' Get clients request from database
    strData = "Item = '" & sItemData & "'"
   
    rs.Open "select * from prices", strConnect, adOpenKeyset, adLockOptimistic
    rs.Find strData
    strOutData = rs.Fields("Price")
   
    'send data to client
    sServerMsg = "Sending: " & strOutData & " to " & Socket(Index).RemoteHostIP
    List1.AddItem (sServerMsg)
    Socket(Index).SendData strOutData  
End Sub

Code cho Client

Option Explicit

Private Sub cmdClose_Click()
Winsock1.Close
shpGo.Visible = False
shpWait.Visible = False
shpError.Visible = True
End Sub

Private Sub cmdConnect_Click()
Winsock1.RemoteHost = "127.0.0.1" 'Change this to your host ip
Winsock1.RemotePort = 1007
Winsock1.Connect
shpGo.Visible = True
txtItem.SetFocus
End Sub

Private Sub cmdSend_Click()
If Winsock1.State = sckConnected Then
    Winsock1.SendData txtItem.Text
    shpGo.Visible = True
    Label3.Caption = "Sending Data"
Else
    shpGo.Visible = False
    shpWait.Visible = False
    shpError.Visible = True
    Label3.Caption = "Not currently connected to host"
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString
'Label1.Caption = sData
txtPrice.Text = sData
Label3.Caption = "Received Data"
shpGo.Visible = True
shpWait.Visible = False
shpError.Visible = False

End Sub

Private Sub Winsock1_SendComplete()

Label3.Caption = "Completed Data Transmission"

End Sub

Tham khảo thêm từ Link chính chủ Của Bác Bill
https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa733709(v=vs.60)
Huy vọng qua năm mới sẻ có nhiều Bạn Tự tay viết cho mình một Cái Server và Client Trên Excel he

Chúc Thành công