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

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
Lần chỉnh sửa cuối:

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
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 :
Mã:
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
Mã:
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

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
919
Được thích
356
Điểm
735
Lần chỉnh sửa cuối:

Syn.nguyen

Thành viên mới
Tham gia ngày
1 Tháng hai 2019
Bài viết
17
Được thích
8
Điểm
15
Tuổi
32
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:

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:

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.
 
Lần chỉnh sửa cuối:

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
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 :p:p
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

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
919
Được thích
356
Điểm
735

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
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
 
Lần chỉnh sửa cuối:

thuyyeu99

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
919
Được thích
356
Điểm
735
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 :google_dk: 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
 

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
===\. cái này em nhờ người ta cài, làm gì em sour, mà anh lên :google_dk: 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

Thành viên chính thức
Tham gia ngày
30 Tháng năm 2008
Bài viết
83
Được thích
5
Điểm
670
Tuổi
39
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:

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:

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

Thành viên tích cực
Tham gia ngày
6 Tháng sáu 2008
Bài viết
919
Được thích
356
Điểm
735
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:

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:

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 ?
 

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
Lần chỉnh sửa cuối:

kieu manh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
3,292
Được thích
2,319
Điểm
560
Nơi ở
Bình Dương
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 đó :p:p:p:oops:

Code cho Server

Mã:
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
Mã:
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
 

File đính kèm

Lần chỉnh sửa cuối:
Top