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

Liên hệ QC

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia
13/6/06
Bài viết
4,649
Được thích
10,138
Giới tính
Nam
Nghề nghiệp
Giáo viên, CEO tại Bluesofts
Lần chỉnh sửa cuối:
Lần chỉnh sửa cuối:
Upvote 0
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
 
Upvote 0
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:
Upvote 0
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 ????
 
Upvote 0
Upvote 0
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:
Upvote 0
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
 
Upvote 0
===\. 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
 
Upvote 0
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!
 
Upvote 0
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 ?
 
Upvote 0
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
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

  • ServerClient.zip
    71.2 KB · Đọc: 17
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom